【Excel VBA】Outlookメールを作成(1スタンダード編)

Excelワークシートの設定

B1:宛先
B2:CC
B3:タイトル
B4:本文
シート名:”メール”

VBA

Sub メール作成()
‘シート設定
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”)
‘メール表示
mymail.Display
End Sub

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

コメント

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