ExcelVBAで宛先や本文や件名を設定するためのコード

outlook_start2.vb

Option Explicit

Sub メール作成2()
    'メール作成時のおまじない

    'Outlookアプリケーションオブジェクトの取得
    Dim MyOutlook As Outlook.Application
    Set MyOutlook = New Outlook.Application

    'メールitemオブジェクトの取得
    Dim Mailitem As Outlook.Mailitem
    Set Mailitem = MyOutlook.CreateItem(olMailItem)
  
    '宛先やCcの設定
    With Mailitem
        
        .To = Range("C2") '宛先
        .CC = Range("C3") 'Cc
        .BCC = Range("C4") 'Bcc
        
        .Subject = Range("C6") '件名
        .Body = Range("C7") '本文
    
    End With
    
    'メールの表示
    Mailitem.Display
    
End Sub