Передача файла письмом через CDO

Question

hello.

аттачу файл к cdo.message в скрипте, выполняю .send, письмо с файлом отправляется, но...     письмо, полученное через почтового клиента, несет с собой файл неправильного размера. впечатление такое, что какая-то "борода" дописывается в заголовке письма.  в итоге: файл передан, но не тот, который отправил.  а нужен тот

Answer 1

код в  студию плиз..

Answer 2

Как-то так -работает точно:
Функция принимает recipient, который выглядит так: "[e-mail]"
Sub sendmail(recipient)
    Set cfg = CreateObject("CDO.Configuration")
    cfg.fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    cfg.fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.local"
    cfg.fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    cfg.fields.Update
    Set objMessage = CreateObject("CDO.Message")
    Set objMessage.Configuration = cfg
    objMessage.Subject = "Просто письмо"
    objMessage.from = "[e-mail]"
    objMessage.To = recipient
    objMessage.TextBody = "Ля-ля-ля"
    objMessage.AddAttachment "d:\Reports\" & recipient & ".xls"
    objMessage.Send
End Sub