エクセルVBAでのメール作成について

質問

お世話になります。エクセルVBAでのメール作成で、メール本文のファイルサーバのリンク貼り付けがうまくいきません。本文のフォント色を変更し、かつリンク貼り付けを行うためhtml形式に本文を変換すると、うまくいかなくなります。
対処方法をご教示頂きたく、どうぞ宜しくお願い致します。

Sub mail_try()

'Outlookオブジェクト生成
Dim OL As Outlook.Application
Dim MI As Outlook.MailItem
Set OL = CreateObject("Outlook.Application")
Set MI = OL.CreateItem(olMailItem)

'メール各設定
MI.SentOnBehalfOfName = "" '差出人
MI.To = "" 'TO
MI.Cc = "" 'CC
MI.Bcc = ""
MI.Subject = "【リンク先送信】" '件名

Dim buf As String

buf = ThisWorkbook.Path

'本文

MI.Body = "<font color = ""#ff0000"">" & "リンク先を送信致します。" & "</font>" _
& "<br>" & "<br>" & _
"<br>" & buf & "\" & "<br>" _
& "<br>" & "<br>" & "以上、宜しくお願い致します。"
'メール表示
MI.display
MI.HTMLBody = MI.Body

'オブジェクト解放
Set OL = Nothing
Set MI = Nothing

End Sub

回答No.1

kkkkkm · ベストアンサー

MI.Body = "<font color = ""#ff0000"">" & "リンク先を送信致します。" & "</font>" _
& "<br>" & "<br>" & _
"<br>" & "<a href= " & buf & "\" & "/> " & buf & "</a>" & "<br>" _
& "<br>" & "<br>" & "以上、宜しくお願い致します。"

で試してみてください。

お礼

kkkkkmさん

お世話になります。
ご教示頂いた内容にて解決致しました。本当に助かりました。感謝致します。
タグの使い方について勉強してみます。
ありがとうございました。

回答No.2

kkkkkm

No1でうまくいかなかった場合
ThisWorkbook.PathにたいしてURL エンコードを試してみてください。
UrlエンコードをするVBAマクロ
https://qiita.com/pocket8137/items/996392e35d4426c4b4d6

お礼

kkkkkmさん

追記ありがとうございました。
＞UrlエンコードをするVBAマクロ
こちらも試してみたいと思います。