|
しっかり、読みましたでしょうか???
書いてありますが、、、、
一度、実行してみてください。
Sub CreateOutlookMail()
Dim olApp As Outlook.Application
Dim olMailMessage As Outlook.MailItem
Dim olRecipient As Outlook.Recipient
Dim blnKnownRecipient As Boolean
' Outlook の新しいインスタンスを作成または現在のインスタンスを開きます。
Set olApp = New Outlook.Application
' 新しいメッセージを作成します
Set olMailMessage = olApp.CreateItem(olMailItem)
' メッセージの受信者に通知し、アドレスを解読して、
' 送信または表示します。
With olMailMessage
Set olRecipient = .Recipients.Add(InputBox("メッセージの受信者名を入力します", _
"受信者名"))
blnKnownRecipient = olRecipient.Resolve
.Subject = "オートメーションでメールをテストする"
.Body = "このメッセージはオートメーションを使用して Outlook を " _
& "起動する VBA コードによって作成されました。"
If blnKnownRecipient = True Then
.Send
Else
.Display
End If
End With
Set olMailMessage = Nothing
olApp.Quit
Set olApp = Nothing
End Sub
|
|