.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”“。pt”，“。zip”

结尾的附件

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

“CDO.Message.1错误'80040218'

未知错误“

任何想法或解决方法？

Answer 1

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

e.g。

  

myMail.BodyPart.ContentTransferEncoding =“8bit”

Reference available here