CDOメール送信が出来なくなった

質問

CDOでメール送信が５年以上正常に出来ていたのですが
突然送信されなくなり、CDOの設定内容がおかしいのだとは
思いますが、何が悪いのか教えて下さい。

↓今まで正常だったときのCDOパラメータ設定内容
.Item(cdoSendUsingMethod) = 2
.Item(cdoSMTPServer) = "smtp.ocn.ne.jp"
.Item(cdoSMTPServerPort) = 587
.Item(cdoSMTPConnectionTimeout) = 60
.Item(cdoSMTPAuthenticate) = True
.Item(cdoLanguageCode) = strCharacter
.Item(cdoSendUserName) = "outlookのアカウント名"
.Item(cdoSendPassword) = "outlookのパスワード"
.Item(cdoSMTPUseSSL) = False
↑
outlookアカウント設定内容は添付します

どこの設定を変更すれば良いか？
ご教授下さい
宜しくお願い致します

回答No.1

HohoPapa · ベストアンサー

Outlook側はssl対応、
CDOでの送信はssl非対応のようです。

　With objCDO
　　With .Configuration.Fields　　　　　　　　　　　　　'設定項目
　　　.Item(cdoSendUsingMethod) = cdoSendUsingPort　　'外部SMTP指定
　　　.Item(cdoSMTPServer) = MailSmtpServer　　　　　 'SMTPサーバ名
　　　.Item(cdoSMTPServerPort) = 465　　　　　　　　　'ポートNo.　
　　　.Item(cdoSMTPConnectionTimeout) = 60　　　　　　'タイムアウト
　　　.Item(cdoSMTPAuthenticate) = cdoAnonymous　　　 '0
　　　.Item(cdoLanguageCode) = strCharacter　　　　　 '文字セット指定
　　　.Item(cdoSMTPAuthenticate) = true
　　　.Item(cdoSendUserName) = MailSmtpAccount　　　　'SMTPアカウント
　　　.Item(cdoSendPassword) = MailSmtpPassWord　　　 'SMTPパスワード
　　　.Item(cdoSMTPUseSSL) = True　　　　　　　　　　 　　　　　　　　
　　　.Update　　　　　　　　　　　　　　　　　　　　 '設定を更新
　　End With
以下省略

でいけると思います。

お礼

返信がおそくなってすみません。
教えて頂いた内容で修正したら、メール送信出来ました
ありがとうございます