test.xlsm
Sub test()
'宣言
Dim outlook As Object
Dim mail_to As String
Dim mail_cc As String
Dim mail_subject As String
Dim mail_body As String
Dim mail_file_path As String
'代入
Set outlook = CreateObject("Outlook.Application")
mail_to = "sozaiya@dummy.com"
mail_cc = "info@dummy.com"
mail_subject = "test"
mail_body = "テストです。"
'空白だったら添付ファイルなしと判定
mail_file_path = "C:\Users\xxxx\Desktop\test.txt"
With outlook.CreateItem(0)
.to = mail_to
.cc = mail_cc
.Subject = mail_subject
.body = mail_body
If mail_file_path <> "" Then .Attachments.Add mail_file_path
'送信確認画面を表示
.display
'いきなり送信
.send
End With
End Sub