お世話になっております。
業務で週次で送付しているメールがあり、そちらをVBAを用いて自動送信したいと考えております。
本環境ですと、Outlookでメールを送信しようとすると「送信確認」というウィンドウが出て、
宛先と添付ファイルを確認する必要があります。
特に添付ファイルは、ファイル名の左側にあるチェックボックスにチェックを入れないと
送信することが出来ません。
本件では添付ファイルを使用しておりますので、どうにかVBAでチェックを入れて
送信するまでを自動化したいと考えております。
つきましては、その方法をご存知でしたらご教授頂けないでしょうか。
以下、サイトを参考に作成したコードです。
VBA
1Sub send_mail() 2 3Dim oApp As New Outlook.Application 4Dim oItem As Outlook.MailItem 5 6' メールを作成します 7Set oItem = oApp.CreateItem(olMailItem) 8 9' 宛先、CC、BCC、件名、添付ファイルを挿入 10oItem.To = Range("B2").Value 11oItem.CC = Range("B3").Value 12oItem.BCC = Range("B4").Value 13oItem.subject = Range("B5").Value 14oItem.Attachments.Add Range("B9").Value 15 16' 本文を挿入 17oItem.BodyFormat = olFormatHTML 18strstyle = "<font size=""2"" face=""MS ゴシック"" color=""#000000"">" & Range("B6").Value & vbCrLf & vbCrLf & Range("B7").Value & "</b></font>" 19oItem.HTMLBody = Replace(strstyle, vbLf, "<br>") 20 21' メール送信 22oItem.Send 'ここの処理で「送信確認」が出る 23 24End Sub 25
以上、宜しくお願い致します。
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。