Sub Outlookからメールを送信する()

    Set Outlook設定 = CreateObject("Outlook.Application")
    Set Mail設定 = Outlook設定.CreateItem(olMailItem)
    
    With Mail設定
        .To = "xxx@sample.com" 'メールアドレス
        .Subject = "ここに件名を入力" '件名
        .Body = "ここに本文を入力" '本文
        .Send
    End With

End Sub