※ ChatGPTを利用し、要約された質問です(原文:Excel : VBAからBecky!を介してメイルを発送する)
ExcelのVBAからBecky!を介してメイルを発送する
このQ&Aのポイント
ExcelのVBAを使用してBecky!を介してメイルを発信する方法について教えてください
Becky!を介してExcelのVBAからメイルを発送する方法について教えてください
ExcelのVBAからBecky!を使ってメイルを発信する方法について教えてください
Excel : VBAからBecky!を介してメイルを発送する
ExcelのVBAからBecky!を介してメイルを発送しようとしています。以下はBecky!の関連web siteから持ってきたコードです。しかし、これだとメイルを書く状態、あるいは送信箱に格納するところまでは行くのですが、メイルが発送されません。発送するには自分で「受信箱から送信」などのメニューを実行する必要があります。どうしたらマクロの実行だけでメイルを発送させることができるか教えてください。
Private Sub CommandButton1_Click()
ActiveWorkbook.Save
Set mapiSession = CreateObject("MSMAPI.MAPISession")
Set mapiMessages = CreateObject("MSMAPI.MAPIMessages")
mapiSession.SignOn
With mapiMessages
.SessionID = mapiSession.SessionID
.Compose
' .AttachmentPathName = ActiveWorkbook.FullName
.RecipAddress = ActiveSheet.Range("hoge@mail.com")
.MsgSubject = "シート"
.MsgNoteText = "abcdefghijklmnopqrstuvwxyz"
' .Send (False)
.Send (True)
End With
mapiSession.SignOff
End Sub
お礼
BSMTP.DLLを試したところ、非常に簡単に動作しました。快適です!ありがとうございました。
補足
解答、ありがとうございます。さっそく試してみて結果を報告させて頂きます。