.addattachmentは標準ファイル拡張子なしで動作しません

Question

添付ファイル付きで電子メールを送信するコードがあります。

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 

コードとは、例えば、「できるだけ早くいずれかのよう

『なし標準』の拡張機能が使用されている.zipファイル「.DOC」、「.XLS」を終了添付ファイル「.pptの」、」罰金と言う作品

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

不明なエラー"

任意のアイデアや回避策： ".msgのは、" 私は、エラーメッセージが表示されますか？

Answer 1

CDOを使用する前に添付ファイルを送信する際に問題が発生しました。私は正しい符号化メカニズムを指定することで問題を解決しました。実験をする必要があるかもしれません。私は正常に.pdf、.doc、.xls、.pptファイルをasp classicとCDOで添付します。

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

Reference available here