[VBA]ExcelのマクロからOutlookのメールを新規作成

yizm

6年前

ExcelマクロからOutlookの新規メールを立ち上げる方法のメモ

１．[ツール] - [参照設定]からOutlookを操作できる様に設定する。

このパソコンの場合は、「14.0」だけども数字はOfficeバージョンによって変わります。

２．新規メールを作成するコードはこんな感じ

Sub メールを新規につくる()

    Dim objOL As Outlook.Application
    Dim objML As MailItem
    
    Set objOL = New Outlook.Application
    Set objML = objOL.CreateItem(olMailItem)
    
    objML.To = "宛先アドレス"
    objML.Subject = "メール件名"
    objML.Body = "メールの本文"
    
    objML.Display

End Sub

これで、新規メールが立ち上がって表示されるよ。