VBAサンプル
=============================================
=== 開始!!====================================
=============================================
Sub メール送付()
'**********************************
'*** 備考
'*** OUTLOOKからメール送る仕掛け
*** 参照設定に「Microsoft Outlook 15.0 Object Library 」をチェック
'**********************************
'**********************************
'*** 1.定義
'**********************************
'定義とおなじない
Dim Obj As Object
Dim Mail_WK As MailItem
Set Obj = CreateObject("Outlook.Application")
Set Mail_WK = Obj.CreateItem(olMailItem)
'**********************************
'*** 2.メイン(設定、送付)
'**********************************
'あて先、CC、件名、本文、添付ファイルの設定
Mail_WK.To = "xxx@yahoo.co.jp"
Mail_WK.CC = "bbb@yahoo.co.jp"
Mail_WK.Subject = "件名を入力"
Mail_WK.body = "ここには本文を入れる" & vbNewLine & "改行もしてみた"
Mail_WK.Attachments.Add "C:\Users\h_fukumura\Desktop\ローカル\添付.txt"
'送付する
Mail_WK.send
'終了処理
Set Mail_WK = Nothing
Set Obj = Nothing
End Sub
==============================================
=== 終了!!=====================================
==============================================