Access2003でOutlookを起動する方法

質問

Access2003のフォーム上に「メールを起動」というコマンドボタンを作成し、そのボタンをクリックするとOutlookが起動されるようにしたいのですが、方法が分かりません。
どなたかご存知の方がいらっしゃいましたら教えて頂きたいのですが、宜しくお願い致します。

回答No.1

piroin654 · ベストアンサー

開くだけなら、
http://www.ken3.org/vba/backno/vba183.html
にあるコードの一部で、以下のように。

Private Sub メールを起動_Click()
Dim oApp As Object
Dim myNameSpace As Object
Dim myFolder As Object

'outlook 起動
Set oApp = CreateObject("Outlook.Application")

Set myNameSpace = oApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(6)
myFolder.Display

'かならずオブジェクトの破棄をする
Set myFolder = Nothing
Set myNameSpace = Nothing
Set oApp = Nothing
End Sub

その他については以下も参考に。、
http://www.mahoutsukaino.com/ac/ac2000/monooki/maillist.htm
http://jsajax.com/accessOtehon/Chapter6/CH6-3.aspx

回答No.2

tate_san

コマンドボタンのクリックイベントに下記コードを記入。

Dim RetVal

RetVal = Shell(pathname, 1)

※　pathnameは、Outlookの実行ファイルのフルパスを記入。ヘルプで“Shell”と入力し、Shell関数のヘルプを確認してください。