VBA Outlook メール作成と送信

2019-11-23
Outlook, VBA

VBA Outlook メール作成

あんまり使うことないと思うけど、Outlook　VBA　で、メールの作成をする。
まぁ、同じメール内容で固定の場所のみ変更して送信するとかには役立つかも。

ソース

Sub Main()

    Dim sSubject As String
    
    sSubject = InputBox("件名を入力してください")

    '実行してみる
    CreateMail "xxxx@zero0nine.com", "ゲスト", sSubject
   
End Sub

Sub CreateMail(sMailTo As String, _
               sSubject As String)

    Dim oOutlook As Outlook.Application
    Dim oMail    As Outlook.MailItem
    
    Dim sBody As String
      
    
    'Outlookのオブジェクトを生成する
    Set oOutlook = CreateObject("Outlook.Application")
    
    'メール本体のオブジェクト作成
    Set oMail = oOutlook.CreateItem(olMailItem)
    
    
sBody = "〇〇さん" & vbCrLf & vbCrLf & _
"こんにちは。" & vbCrLf & vbCrLf & _
"テストメールです。" & vbCrLf & vbCrLf

    
    ' メールを作成する
    With oMail
        .To = sMailTo                 ' 宛先
        .Subject = sSubject           ' 件名
        .Display                      ' 表示
        .Body = sBody                 ' 本文
        .BodyFormat = olFormatPlain   ' メールの形式
    End With
   

　  '**************************************************************
    '
    '　oMail.Send　で作成されたメールが送信されてしまうので、
    '　VBAテストを十二分に行ってから、oMail.Sendを実行する。
    '
    '  このコードを使用して、問題が起きても責任とれません。。。
    '
    '**************************************************************
     
    '送信　→　送信する場合はコメント解除
    'oMail.Send
       
    
    Set oMail = Nothing
    Set oOutlook = Nothing

End Sub