メール作成

Sub CreateMail()

    Dim objOutlook As New Outlook.Application
    Dim objMailitem As Outlook.MailItem
    Set objMailitem = objOutlook.CreateItem(olMailItem)
    
    
    With objMailitem
        .To = ""     '宛先
        .CC = ""     'CC
        .Subject = "" '件名
        .Body = ""  '本文
        .Display    '新規メール画面を表示
    End With
End Sub