現在のブックを添付しメール作成する【xlDialogSendMail】【ExcelVBA】

Dialogsプロパティの引数に「xlDialogSendMail」を設定し、メール作成をします。

xlDialogSendMailのサンプルコード

Public Sub sample()
 
    Application.Dialogs(xlDialogSendMail).Show _
    arg1:="sample@vba-create.jp", _
    arg2:="ファイルを添付します", _
    arg3:=True
    
    'arg1→宛先(To)※CC、BCCは設定不可
    'arg2⇒件名
    'arg3⇒現在のブックを添付→True/添付しない→False
End Sub

注意点

• メールはWindowsで標準メーラーとして設定しているソフトで起動します。
• 逆に標準メーラーとして設定していないとエラーが発生します。
• あくまでも宛先、タイトル、添付ファイルのみ設定が可能です。
• To以外のCc、Bccの付与、本文の付与、自動送信などは出来ません。
• 本記事の場合、現在のブックのみ添付可能です。

関連記事

• 共有のエクセルファイルを誰が開いたか記録する【ExcelVBA】