Пример отправки письма с вложением (3 вложения в данном примере) используя CDO

Автор: Михаил (Venom)
Сайт: http://www.forum.mista.ru/topic.php?id=613286
Описание:

Пример отправки письма с вложением (3 вложения в данном примере) используя CDO

 

//======================================================================

Функция ОтправитьПисьмоСДО()

cdoSendEmailAddress = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress" ;

cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" ;

cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" ;

cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" ;

cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ;

cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver";

cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";

cdoSMTPUseSSL = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";


iConf = СоздатьОбъект("CDO.Configuration");
iConf.fields(cdoSendUsingMethod).value = 2;
//cdoSendUsingPickup 1 Send message using the local SMTP service pickup directory.

//cdoSendUsingPort 2 Send the message using the network (SMTP protocol over the

// network).

//cdoSendUsingExchange 3 Send the message using the Exchange mail submission URI.

// This URI is found in the user's

// urn:schemas:httpmail:sendmsg mailbox folder property.

iConf.fields(cdoSMTPServer).value = "smtp.yandex.ru";
iConf.fields(cdoSMTPServerPort).value = 25;
iConf.fields(cdoSMTPAuthenticate).value = 1;
iConf.fields(cdoSendUserName).value = "твойемейл@yandex.ru";
iConf.fields(CdoSendPassword).value = "твой пароль";
iConf.fields(cdoSendEmailAddress).value = """1C"" ";
iConf.fields(cdoSMTPUseSSL).value = 0; //Secure Sockets Layer

iConf.fields.update();

iMsg=СоздатьОбъект("CDO.Message");
iMsg.configuration = iConf;

iMsg.to="КомуАдрес"; //адрес куда/кому шлём письмо

iMsg.from="""1C"" "; //адрес от кого шлём письмо

iMsg.subject="ТемаПисьма"; //тема письма


iMsg.textBody="ТелоПисьма"; //тело письма

iMsg.textBodypart.charset="iso-8859-5"; //либо "koi8-r"


iMsg.addAttachment(Файл1);
iMsg.addAttachment(Файл2);
iMsg.addAttachment(Файл3);


Отправленно = 0;

Попытка
iMsg.send();
Отправленно = 1;
Сообщить("Сообщение отправлено.");
Исключение
//Письмо отправить не удалось, возможно проблеммы с интернетом

Ошибка = ОписаниеОшибки();
Сообщить("Письмо не отправленно Ошибка ("+Ошибка,"!");
КонецПопытки;

Возврат Отправленно;

КонецФункции // ОтправитьПисьмо