Outlook起動・メールアイテム自動作成（ExcelVBA)

Outlook起動・メールアイテム自動作成（ExcelVBA)



以下、エクセルの標準モジュール作成、該当ボタンにマクロの紐づけをしたら、
一発、Outlook起動でっ感激っ！！

Sub MAKE_MAIL_ITEM()

 Dim oApp As Object

 Dim myNameSpace As Object

 Dim myFolder As Object

 Dim objMAIL As Object 'メールのオブジェクト

Dim strMOJI As String '本文

'outlook 起動

Set oApp = CreateObject("Outlook.Application")

 Set myNameSpace = oApp.GetNameSpace("MAPI")

 Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダーを指定

myFolder.Display

 'メールアイテムの作成

Set objMAIL = oApp.CreateItem(0)

 '宛先・件名・本文 などのデータを代入する

objMAIL.to = "********@**.jp" 'ここに自分のアドレスを

objMAIL.Subject = "テストメール" '件名

'objMAIL.Attachments.Add "C:\Users\***".xls"

 '本文を作る

strMOJI = "メールします。" & vbCrLf _

 & " 宜しくお願いします。"

objMAIL.Body = strMOJI '本文の代入

objMAIL.Display '途中で編集したい時（メール編集画面を表示してみた)

 '終了処理：ここで、普通はオブジェクトの開放など、後始末をする。

Set oApp = Nothing

 Set myFolder = Nothing

 Set objMAIL = Nothing

 End Sub