alroy
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору пример использования Call SendPost(" ТУТ Сервер почтовый", " тут кому", "Тут от кого", "Тут тема ", "тело сообщения ") 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 "ТУТ можно прикрепить файл каконибудь!! " iMsg.Send End Function |