.addattachment не работает ни с одним стандартным расширением файла - PullRequest
Новая
       40

.addattachment не работает ни с одним стандартным расширением файла

1 голос
/ 31 января 2011

У меня есть код, который отправляет электронные письма с вложением. 

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'

Неизвестная ошибка "

Есть идеи или обходные пути?

1 Ответ

0 голосов
/ 16 мая 2011

У меня были проблемы с отправкой вложений перед использованием CDO. Я решил свои проблемы, указав правильный механизм кодирования. Возможно, вам придется провести некоторые эксперименты. Я успешно прикрепляю файлы .pdf, .doc, .xls, .ppt через asp classic и CDO.Message

, например

myMail.BodyPart.ContentTransferEncoding = "8bit"

Ссылка доступна здесь

...