Asp classic .addattachment不使用任何标准文件扩展名

我有一些代码可以发送带有附件的电子邮件

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  

sch=”http://schemas.microsoft.com/cdo/configuration/"  
设置cdoConfig=CreateObject（“CDO.Configuration”）
设置cdoMessage=CreateObject（“CDO.Message”）
用cdoMessage
Set.Configuration=cdoConfig
.From=strEmail
.To=“地址已删除”
.Subject=“主题电子邮件”
strMessageBody=“消息”
.HTMLBody=strMessageBody
.AddAttachment（strFile）
.发送
以

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

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

“CDO.Message.1错误'80040218'

未知错误“

---

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

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

e、 g

myMail.BodyPart.ContentTransferncode=“8bit”

---

如果其他一切都失败，您可以压缩附件并将其压缩发送。：）有没有办法在一台我无法安装任何软件的服务器上即时执行此操作？我目前正在验证，以确保没有“流氓”附件通过。