Outlook でメールを作成する

Sub MakeMessage()
    Dim OutlookMessage As Outlook.MailItem
    Set OutlookMessage = Application.CreateItem(olMailItem)
    OutlookMessage.Subject = "Hello World!"
    OutlookMessage.Display
    Set OutlookMessage = Nothing
End Sub

Sub MakeMessage()

Dim OutlookMessage As Outlook.MailItem

Set OutlookMessage = Application.CreateItem(olMailItem)

OutlookMessage.Subject = "Hello World!"

OutlookMessage.Display

Set OutlookMessage = Nothing

End Sub

状況によっては、Outlook でメールを自動で作成することが必要になる場合もあります。この目的にはテンプレートも使用できます。

Outlook でメールを作成する

いいね:

コメント

共有:

いいね:

コメント