早速お返事をいただきありがとうございます。 エラーは、デバックモードで確認したところメールを送信するところの以下の行で発生していました。 doc2.Body="送信元:" & doc.From(0) & Chr$(13)+Chr$(10) & Chr$(13)+Chr$(10) & rtitem.GetFormattedText( False, 0 ) なお、エラーロジックを追加して実行したところエラーが出なくなってしまいました・・・