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

  • Вопрос

  • hello.

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

    2 декабря 2008 г. 5:42

Ответы

  • Как-то так -работает точно:
    Функция принимает recipient, который выглядит так: "v.pupkin@domain.local"
    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 = "robot@domain.local"
        objMessage.To = recipient
        objMessage.TextBody = "Ля-ля-ля"
        objMessage.AddAttachment "d:\Reports\" & recipient & ".xls"
        objMessage.Send
    End Sub
    19 января 2009 г. 8:42

Все ответы

  • код в  студию плиз..
    12 января 2009 г. 9:31
  • Как-то так -работает точно:
    Функция принимает recipient, который выглядит так: "v.pupkin@domain.local"
    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 = "robot@domain.local"
        objMessage.To = recipient
        objMessage.TextBody = "Ля-ля-ля"
        objMessage.AddAttachment "d:\Reports\" & recipient & ".xls"
        objMessage.Send
    End Sub
    19 января 2009 г. 8:42