はじめに
以前に公開したメール一括配信では、BASP21を利用したもので、Excelが32ビット限定でした。
今回は「CDO.Message」を利用して配信できます。Excelが64ビットでも利用できます。添付ファイルも同様に対応しています。
ダウンロード
ちょこっと解説
上記よりダウンロードして直接みていただければと思いますが、今回の大きな変更点は、標準モジュールのMailSendファンクション部分です。
BASP21を利用したときは以下の1行でよろしくやってくれましたが、
ret = SendMail(szServer, mailTo, szFrom, szSubject, szBody, szFile)
次の内容で置き換えております。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 |
Set objMessage = CreateObject("CDO.Message") objMessage.From = szFrom objMessage.To = mailTo 'objMessage.Cc = MailCc objMessage.Bcc = mailBcc objMessage.Subject = szSubject objMessage.TextBody = szBody ' 添付ファイル If Len(fileBuf) > 0 Then szFile = Split(fileBuf, vbCrLf) For i = LBound(szFile) To UBound(szFile) objMessage.AddAttachment (szFile(i)) Next i End If objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = szServer objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = szPort If authId <> "" Then objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = authId objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = authPass End If objMessage.Configuration.Fields.Update ret = objMessage.Send() Set objMessage = Nothing |
添付ファイルは、objMessage.AddAttachment を何度も実行することで複数追加できます。
上記のコード以外にもちょこちょこ修正していますので、前回のものを修正しようと思っている方はご注意ください。
最後に
それからメールアドレスやメールの内容を間違わないように十分にご注意ください。間違っても私の責任ではございませんので(⌒ω⌒;)