【Excel VBA】Outlookメールを作成(4画像貼付編)

Excelワークシートの設定

B1:宛先
B2:CC
B3:タイトル
B4:本文
B5:画像のパス

VBA

Sub メール作成()
Application.ScreenUpdating = False
‘シート設定
Dim メール As Worksheet
Set メール = Worksheets(“メール”)
‘Outlookアプリケーションを起動
Dim outlookObj As Outlook.Application
Set outlookObj = CreateObject(“Outlook.Application”)
‘Outlookメールを作成
Dim mymail As Outlook.MailItem
Set mymail = outlookObj.CreateItem(olMailItem)
‘メール情報を設定
mymail.To = メール.Range(“B1”)
mymail.CC = メール.Range(“B2”)
mymail.Subject = メール.Range(“B3”)
mymail.BodyFormat = olFormatHTML
Dim Body As String
mymail.Body = メール.Range(“B4”)
image1 = “<img src =” & メール.Range(“B5″) &”>”
mymail.HTMLBody = Replace(mymail.HTMLBody, “画像1”, image1)
‘メール表示
mymail.Display
End Sub

この記事がお役に立ちましたら、是非いいねボタンをお願いします!

コメント

タイトルとURLをコピーしました