メールソフトに

質問

マクロボタンを押すとOutlookExpressが起動される
マクロ機能を作りたいのですが,どうしたらいいですか？

回答No.1

KenKen_SP

Private Sub CommandButton1_Click()
　　' 起動なら
　　' Shell "C:\Program Files\Outlook Express\msimn.exe"
　　' Outlook Express にコマンドラインでパラメータを渡すと
　　’新規メール作成も可能ですが、Windows 設定の標準メーラが
　　’OE で固定されているなら、WSH を使ってこんな感じ。
　　Dim sAddr As String
　　Dim sBody As String
　　Dim sSubj As String
　　Dim sComd As String
　　sAddr = "hoge@sample.ne.jp"
　　sSubj = "メールテスト"
　　sBody = "まあいいんだけどね.."
　　sComd = "Mailto:" & sAddr & "?Subject=" & sSubj & "&body=" & sBody
　　CreateObject("WScript.Shell").Run sComd
End Sub