あれこれ – ページ 6 – ｍａｂｏのｂｌｏｇです。

2024年10月11日2024年10月11日

CDOによるメール送信ーエクセル　VBA　ＩＰロック

CDOを使うと，エクセルVBAから，OUTLOOK等を経由しなくてもメールが送れるということを知りました。
そこで，下記のサイトを参考（コピペ）にして，トライしてみることにしました。

下記のコピペのプロシャージャyの必要な部分を自分の環境に合わせてやってみましたが，メールが送れま
せんでした。CDOそのものが使えないのかとも思いましたが，２０２４年現在お使いの方いるということで設
の定間違いだろうと検討をつけてあれこれやりました。

VBAを使ってスクレイピングの結果をメール送信する（さくらのレンタルサーバー使用)

Function SendSakuraMail(kenmei As String, mozi As String, address As String) As Boolean

    Dim objCDO As New CDO.Message

    On Error GoTo Errlabel    'エラー処理

    With objCDO

        With .Configuration.Fields
            .Item(cdoSMTPServer) = "****.sakura.ne.jp"
            .Item(cdoSendUsingMethod) = cdoSendUsingPort
            .Item(cdoSMTPServerPort) = 587                          '送信サーバーのポート番号
            .Item(cdoSMTPConnectionTimeout) = 15                    'タイムアウト
            .Item(cdoSMTPAuthenticate) = cdoBasic                   'SMTP認証
            .Item(cdoSMTPUseSSL) = False                            'SSL
            .Item(cdoSendUserName) = "--------@****.sakura.ne.jp"
            .Item(cdoSendPassword) = "?????????????????"
            .Item(cdoLanguageCode) = CdoCharset.cdoShift_JIS        '文字セット指定
            .Update '設定を更新
        End With
        With .Fields
            '重要度、通常は以下のどちらかで良いでしょう
            .Item("urn:schemas:mailheader:X-Priority") = 1
            .Item("urn:schemas:mailheader:X-MsMail-Priority") = "High"
            .Update '設定を更新
        End With
        .MDNRequested = False                   '開封確認
        .MimeFormatted = True                   'MIMEを使って書式設定
        .From = "------------@-----------.jp"
        .To = address                           '関数の引数で受け取った送信先
        .CC = ""
        .Subject = kenmei                       '関数の引数で受け取った件名
        .TextBody = mozi                        '関数の引数で受け取ったメール本文
        .Send                                   '送信
    End With
    Set objCDO = Nothing
    SendSakuraMail = True
    Exit Function
Errlabel:
  SendSakuraMail = False      '何かしらのエラーの場合はfasleをreturanする

End Function

結果，無事，メールを送ることができました。
原因は，送信メールアドレスのドメインを，初期のものにしていませんでした。

　　　　　誤　*********.jp——-取得独自ドメイン
　　　　　正　***.sakura.ne.jp—初期ドメイン

といっても，無事送れたのは，１回だけです。頭を悩ましましたが，１時間後にまた送信成功。
おかしいなと思い，あれこれ検索してみると，下記のような記事を見つけました。

特定の時間に一定時間メールの送受信ができない

この記事の中に，

さくらのレンタルサーバではセキュリティ対策により、パスワード認証を続けて失敗した、
あるいはその他、攻撃とみなされるようなアクセスがあった場合に、接続元のグローバル
IPアドレスから以下のプロトコルでのサーバへの接続を一定時間制限させていただくことが
あります。

というような記述がありました。その症状として，

・毎週、休暇明けの月曜日8:00～9:00にメールの送受信ができない。
・断続的に1時間程度メールの送受信ができない時間が発生する。

ということで，これに当てはまるのかなと納得いたしました。

結論として，何度も間違た設定で接続したので，ＩＰ　ロックがかかってしまったと，考えるのがいいようです。

＝＝＝追記＝＝＝
サクラのレンタルサーバーでの動作確認をする過程で，ｇｍａｉｌ．ｙａｈｏｏ　のメールでも試しました
が，どちらもだめでした。ｙａｈｏｏ　については，すでに，二段階認証になっていたので，だめかなと思
ってました。ｇｍａｉｌ　については，わずかな期待もっていましたが，ｇｍａｉｌ　については，
「安全性の低いアプリ」からの接続は，順次廃止されるようで，ｇｍａｉｌ　のアカウント内で作成
した「アプリパスワード」が必要なようです。

2024年10月6日2024年10月7日