Re: VBScript: автоматическая отправка письма

2008-01-24T19:34:23Z

Вставка картинки в тело письма:

Set Message = CreateObject("CDO.Message") 
Message.To = "to@bk.ru"
Message.From = "from@bk.ru"
Message.Subject = "Тема"
Message.BodyPart.Charset = "windows-1251"
Message.AddRelatedBodyPart "C:\Windows\Web\WallPaper\Windows XP.jpg", "pic", 1
Message.htmlbody = "Текст сообщения
"

Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.bk.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
Flds.Update
Message.Configuration = iConf

Message.Send

Благодарность за идею - Xameleon.

VBScript: автоматическая отправка письма

2006-07-07T15:14:19Z

Отправка письма с вложением с помощью библиотеки CDO (библиотека входит в поставку MS Outlook и устанавливается из дистрибутива MS Outlook - компонент "Collaboration Data Objects" или "Объекты для совместной работы"). На сервере вполне возможна установка только этого компонента MS Office.

Call SendPost("smtp.mail.ru", "to@mail.ru", "from@mail.ru", "Subj", "Body")
Function SendPost(strSMTP_Server, strTo, strFrom, strSubject, strBody)
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP_Server
    Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
    Flds.Update
    iMsg.Configuration = iConf
    iMsg.To = strTo
    iMsg.From = strFrom
    iMsg.Subject = strSubject
    iMsg.TextBody = strBody
    iMsg.AddAttachment "C:\boot.ini"
    iMsg.Send
End Function

Серый форум — VBScript: автоматическая отправка письма

Re: VBScript: автоматическая отправка письма

VBScript: автоматическая отправка письма