エクセルVBAでOutlookにリンク設定

質問

メール本文にファイルの保存場所を記載し、クリックでファイルが開くようにしたいのですが、どうすればいいでしょうか。
幾つか試しましたがうまくいきませんでした。

Cells(5, "AK")=C:\Users\taro\Documents\エクセル.xlsxとした時

Sub メール()
'Outlookの定義
Set myOutLook = CreateObject("outlook.application")
Set Omail = myOutLook.CreateItem(olMailItem)

'メール作成
With myitem
Omail.BodyFormat = 2

①.HTMLBody = .HTMLBody & "<a href=file:\\\""" & Cells(5, "AK") & """>意見書1</a>" & "<br>" →\\\以降の番地が表示されない
② .HTMLBody = .HTMLBody & "<a href=""" & Cells(5, "AK") & """>意見書2</a>" & "<br>" →<C:\Users\taro\Documents\エクセル.xlsx>と表示されるがリンクされない。

ローカルドライブとサーバーでは書き方が違うようです。
自分が最終的にしたいのはサーバーに保存しているファイルをクリックで開くことです。

正しい書き方をご教示ください。よろしくお願いいたします。

回答No.2

kkkkkm · ベストアンサー

No.1の追加です。

.HTMLBody = .HTMLBody & "<a href=file://" & Cells(5, "AK") & ">意見書1</a>" & "<br>"

でもいけたのですが

<a href="file://ファイルの場所">意見書1</a>

になる方が安心かもしれません。

.HTMLBody = .HTMLBody & "<a href=""file://" & Cells(5, "A") & """>意見書1</a>" & "<br>"

お礼

ばっちりいけました。本当にありがとうございます。今後ともよろしくお願いいたします。

回答No.1

kkkkkm

.HTMLBody = .HTMLBody & "<a href=file://" & Cells(5, "AK") & ">意見書1</a>" & "<br>"
でいいのではないでしょうか

Cells(5, "AK")の内容は以下のサイトを参考にしてください。
IPアドレスで設定してますがサーバー名にしたらいいのではないかと思います。

［HTML］：サーバ内のフォルダ／ファイルへリンクする
https://agrius-akita.hatenablog.com/entry/20090703/1246630499