Автор: Михаил (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;
Сообщить(«Сообщение отправлено.»);
Исключение
//Письмо отправить не удалось, возможно проблеммы с интернетом
Ошибка = ОписаниеОшибки();
Сообщить(«Письмо не отправленно Ошибка («+Ошибка,»!»);
КонецПопытки;
Возврат Отправленно;
КонецФункции // ОтправитьПисьмо