Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

15227 / 76807

←次へ　｜　前へ→


	【67063】Re:現在ブックを添付してメールするには

keisuke - 10/10/29(金) 23:59 -


	引用なし

	パスワード

しっかり、読みましたでしょうか？？？
書いてありますが、、、、
一度、実行してみてください。

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

3 hits

▼

【66754】現在ブックを添付してメールするには MASATO 10/10/3(日) 20:17