Excelからnotesメールを自動で送信出来るマクロを見つけました。 下記、URL先のマクロを使わ

Excelからnotesメールを自動で送信出来るマクロを見つけました。

下記、URL先のマクロを使わせて頂いています。
https://www.tekizai.net/entry/2019/07/24/080000

ここで、ファイルを添付することは出来たのですが、ショートカットファイル又はファイルのリンク先を貼る事は出来るのでしょうか？

マクロに詳しい方が居ましたら、教えて頂けますと幸いです。

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2023/03/23 08:43

当方、notesメールを扱ってません。

動作確認はしておりませんので、ご了承ください。

https://www.tekizai.net/entry/2019/07/24/080000
のマクロの
.EmbedObject EMBED_ATTACHMENT, "", "C:\sample.txt"
の箇所が、ファイルの添付になります。

"C:\sample.txt"の代わりに、
ショートカットファイルのパス名を記述すれば、ショートカットのファイルが添付できます。

ショートカットファイルから、リンク先のファイル名を取得するには、以下のようにします。

下記の例では、"D:\goo\sample.lnk"がショートカットファイルのパス名です。
このショートカットファイルは、"C:\sample.txt"へのショートカットとします。

target_file　にリンク先のファイル名を取得するとします。

Dim link_file As String
Dim target_file As String
link_file = "D:\goo\sample.lnk"
With CreateObject("WScript.Shell").CreateShortcut(link_file)
target_file = .TargetPath
End With
MsgBox (target_file)・・・確認用

メッセージボックスに C:\sample.txt が表示されます。

①ショートカットファイルを添付したいなら、
.EmbedObject EMBED_ATTACHMENT, "", link_file
とします。

②リンク先のファイル名を添付したいなら
.EmbedObject EMBED_ATTACHMENT, "", target_file
とします。