在VBscript-can'；不要发送二进制附件

发送带有文本文件的电子邮件时，此功能有效（收到测试电子邮件）：

但当我尝试发送二进制文件时，这不起作用（未收到测试电子邮件）：

---

我需要添加/更改什么才能附加二进制文件？

解释“不工作”。文档未表明

AddAttachment

对“二进制”文件和“普通”文件有任何区别。随附文本文件，将收到测试电子邮件消息。使用.rtf附件时，不会收到电子邮件。是否没有错误？您是否有下一次错误恢复的

生效？把它关掉。
Set emailObj = CreateObject("CDO.Message")
emailObj.From = "sender@domain.tld"
emailObj.To = "recipient@domain.tld"
emailObj.Subject = "File attached" 
emailObj.TextBody = "Please have a look at the attached file. Thanks."
emailObj.AddAttachment "d:\temp\test.txt"

Set emailConfig = emailObj.Configuration
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server.webhost.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sender@domain.tld"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "top_secret"
emailConfig.Fields.Update

emailObj.Send

If err.number = 0 then Msgbox "Your file has been sent. Someone will respond as soon as possible."

Set emailObj = CreateObject("CDO.Message")
emailObj.From = "sender@domain.tld"
emailObj.To = "recipient@domain.tld"
emailObj.Subject = "File attached" 
emailObj.TextBody = "Please have a look at the attached file. Thanks."
emailObj.AddAttachment "d:\temp\test.rtf"

Set emailConfig = emailObj.Configuration
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "server.webhost.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sender@domain.tld"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "top_secret"
emailConfig.Fields.Update

emailObj.Send

If err.number = 0 then Msgbox "Your file has been sent. Someone will respond as soon as possible."