Excel VBAメモ

プログラミング

Excelマクロを使ってメールを送信するサンプル

Private Sub sendMail()
'メール送信
    Dim oMsg As Object
    Set oMsg = CreateObject("CDO.Message")

    oMsg.From = "aaa@test.com"
    oMsg.Subject = "これはテストです。"
    oMsg.TextBody = "こんにちは。"
    oMsg.AddAttachment ExcelFilePath

    oMsg.To = "test@test.com"
    oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.test.co.jp"
    oMsg.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25	
    oMsg.Configuration.Fields.Update
    oMsg.Send

    MsgBox "送信完了", vbInformation

End Sub