1

添付ファイル付きのメールを送信するコードがいくつかあります。

sch = "http://schemas.microsoft.com/cdo/configuration/"  
Set cdoConfig = CreateObject("CDO.Configuration") 
Set cdoMessage = CreateObject  ("CDO.Message")   
With cdoMessage 
    Set  .Configuration = cdoConfig  
    .From = strEmail  
    .To = "address removed"   
    .Subject = "subject email"  
    strMessageBody = "<h2>Message</h2>"   
    .HTMLBody = strMessageBody  
    .AddAttachment (strFile)  
    .Send  
End With

「.doc」、「.xls」、「.ppt」、「.zip」で終わる添付ファイルのコードは正常に機能します

「非標準」拡張子が使用されるとすぐに、たとえば「.msg」と言うと、エラーメッセージが表示されます。

"CDO.Message.1 エラー '80040218'

未知のエラー "

アイデアや回避策はありますか？

4

1 に答える 1

0

CDO を使用する前に、添付ファイルの送信に問題がありました。正しいエンコーディングメカニズムを指定することで問題を解決しました。いくつかの実験を行う必要があるかもしれません。asp classic および CDO.Message 経由で .pdf、.doc、.xls、.ppt ファイルを正常に添付できました。

例えば

myMail.BodyPart.ContentTransferEncoding = "8 ビット"

参考資料はこちら

于 2011-05-16T14:39:02.833 に答える