asp-classic - .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  

代码适用于以“.doc”、“.xls”、“.ppt”、“.zip”结尾的附件

一旦使用任何“非标准”扩展名，例如说“.msg”，我就会收到一条错误消息：

“CDO.Message.1 错误‘80040218’

未知错误 ”

有什么想法或解决方法吗？

Answer 1

在使用 CDO 之前，我在发送附件时遇到了问题。我通过指定正确的编码机制解决了我的问题。你可能需要做一些实验。我通过 asp classic 和 CDO.Message 成功附加了 .pdf、.doc、.xls、.ppt 文件

例如

myMail.BodyPart.ContentTransferEncoding = "8bit"

此处提供参考