Пример отправки письма с вложением (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;
Сообщить(«Сообщение отправлено.»);
Исключение
//Письмо отправить не удалось, возможно проблеммы с интернетом

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

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

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

 

 

 

 

Добавить комментарий