【Excel VBA】Outlookメールを作成(2ハイパーリンク編)

Excelワークシートの設定

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

Excelワークシートの設定

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.BodyFormat = 2
mymail.To = メール.Range(“B1”)
mymail.CC = メール.Range(“B2”)
mymail.Subject = メール.Range(“B3”)
mymail.HTMLBody = Replace(メール.Range(“B4”), vbLf, “<br>”)
Dim url As String
url = “<a href=””” & メール.Range(“B5”) & ““”>” & メール.Range(“B5”) & “</a>”
mymail.HTMLBody = Replace(mymail.HTMLBody, “リンク1”, url)
‘メール表示
mymail.Display
End Sub

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

コメント

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