ExcelVBA(メール関係)

更新日 2015-02-08 (日) 08:31:15

VBAでメール送信

Excel VBAからOutlook利用でメール送信

Sub Send_Click()
'メール送信

    Set oApp = CreateObject("Outlook.Application")

    Set objMAIL = oApp.CreateItem(0) 'olMailItem=0
   strMOJI = "こんにちは!" & vbNewLine & "テストメールです。" & vbNewLine & "よろしくおねがいします。"


'宛先はどちらでもOK
'    objMAIL.To = "tyamada2@vmw.ism21.net" '宛先
    objMAIL.To = "tyamada2"
    objMAIL.Subject = "テスト" '件名
    objMAIL.Body = strMOJI '本文の代入
'    objMAIL.display '表示
    objMAIL.Send '送信'
           
    Set objMAIL = Nothing
    Set oApp = Nothing

End Sub

参考ページ


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2015-02-08 (日) 08:31:15 (1321d)