Excel等からCDOを利用しメールクライアントを介さずにメールする(2)

「Excel等からCDOを利用しメールクライアントを介さずにメールする」で紹介したCDOをExcelに実装しました。

CDOtest(xls)
マクロを有効にしないと使用出来ません。
マクロはパスワードをかけていないので自由に改造して使用して下さい。

GoMail関数改

Sub GoMail(t As Variant, sj As Variant, bd As Variant, Optional at As Variant)

Set objMail = CreateObject("CDO.Message")

Worksheets("setting").Select
With Sheets("setting")

    objMail.to = t '送信先アドレス
    objMail.Subject = sj 'メール題名
    objMail.TextBody = bd  '本文
    If at <> "" Then objMail.AddAttachment at '添付ファイル

    objMail.From = .Range("B1")
    chars = .Range("B2")
    If chars = "" Then chars = "utf-8"
    objMail.BodyPart.Charset = chars
    objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = .Range("B3")
    objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = .Range("B4")
    objMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = .Range("B5")
    objMail.Configuration.Fields.Update
End With

objMail.Send

Set objMail = Nothing
End Sub

このコードは標準モジュールに記載してあります。


発信者メールアドレス、エンコード、送信方法(2=SMTP)、SMTPサーバー、ポート番号
は setting というシートから読み取りますから適切に設定して下さい。
送信先メールアドレス、メール件名、メール本文、添付ファイルのフルパス名は呼び出し側から引数で与えます。

呼び出し側

送信先メールアドレス、メール件名、メール本文、添付ファイルのフルパス名を入力して下さい。
「メール送信」ボタンをクリックしたら実行されます。