▼━質問テンプレ (出来れば使ってね) ━━━
【1 OSの種類 　 　 　 　 .】 Windows10
【2 Excelのバージョン 　 】 Excel2010
【3 VBAが使えるか　 　 .】 一応


マクロの記述について教えてください。

従業員全員（数百人）に、個別の内容でメール配信をします。
重要な内容なので、開封通知を受け取りたいのですが、開封通知を求める記述（objMail.MDNRequested = true）をすると、１件目の送信時点でエクセル自体が強制終了されてしまい、後の命令が実行されません。
その１件には、きちんと開封通知がついています。
↑の記述をコメント化すると、正しく動きます。

メール送信の記述は以下のとおりなのですが、解決できるものでしょうか？


sub test()
Dim objMail As Object
Dim strConfigurationField As String

Set objMail = CreateObject("CDO.Message")
strConfigurationField = "http://schemas.microsoft.com/cdo/configuration/";
With objMail.Configuration.Fields
.Item(strConfigurationField & "sendusing") = ｘ'送信先（外部SMTPサーバ）
.Item(strConfigurationField & "smtpserver") = "ｘ.ｘ.ｘ.ｘ" 'SMTPサーバIPアドレス
.Item(strConfigurationField & "smtpserverport") = ｘ'SMTPサーバポート
.Item(strConfigurationField & "smtpauthenticate") = ｘ '認証方式（匿名認証）
.Item(strConfigurationField & "smtpconnectiontimeout") = 60 'サーバ接続タイムアウト
.Update
End With