
Excelからnotesメールを自動で送信出来るマクロを見つけました。
下記、URL先のマクロを使わせて頂いています。
https://www.tekizai.net/entry/2019/07/24/080000
ここで、ファイルを添付することは出来たのですが、ショートカットファイル又はファイルのリンク先を貼る事は出来るのでしょうか?
マクロに詳しい方が居ましたら、教えて頂けますと幸いです。
No.1ベストアンサー
- 回答日時:
当方、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
とします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【マクロ】excelファイルを開く...
-
EXCELで日付を自動でファイル名...
-
EXCEL マクロ クリップボードク...
-
エクセルマクロが海外PCで開けない
-
別のパソコンでエクセルのマク...
-
エクセルファイルを自身のファ...
-
excelでpersonal.xlsを常に開く...
-
エクセルにマクロが!
-
Excel2002・マクロ ツールバー...
-
マクロを実行するとパス名が無...
-
秀丸で保存時のフォルダを固定...
-
コピーしたファイルのマクロを...
-
VBAを一度起動するとずっと出て...
-
エクセルのマクロを実行後、閉...
-
エクセル終了時の保存確認メッ...
-
Word用のマクロが急に働かなく...
-
「ACCESS」のフォームや...
-
EXCEL VBAで声を出すマクロ
-
Microsoft Excelのファイルのエ...
-
マクロの有効化するダイヤログ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで印刷する方法 エクセ...
-
VBAを一度起動するとずっと出て...
-
昨日まで動いていたエクセルの...
-
エクセル終了時の保存確認メッ...
-
excelファイルに使われているVB...
-
コピーしたファイルのマクロを...
-
別のパソコンでエクセルのマク...
-
Excelが勝手にシート移動してし...
-
【マクロ】宣言は、何のために...
-
Excelマクロ ファイル名が変わ...
-
【マクロ】エラーが発生⇒実行時...
-
VBA マクロ実行時エラー’1004Ra...
-
excelのマクロ実行でブロックさ...
-
エクセル2013vbaで、見えない名...
-
マクロを消すマクロは不可能?
-
エクセルマクロ実行中に別ファ...
-
EXCEL マクロ クリップボードク...
-
マクロを設定したのに、拡張子...
-
excelが別プロセスで起動してし...
-
アクセスでファイルを開いたと...
おすすめ情報