Имя: Пароль:
1C
1С v8
Отправка писем из 1с 8.2, через прокси.
0 байт
 
10.12.14
12:08
Коллеги всем привет, формирую отправку письма следующим кодом, если отправлять ч/з прямой доступ к интернету, письмо уходит без проблем ч/з прокси выходит ошибка "Произошла исключительная ситуация (CDO.Message.1): Транспорту не удалось подключиться к серверу.". Каким образом прописать настройки прокси в нижеуказанном коде?

    cdoSendPassword              = "http://schemas.microsoft.com/cdo/configuration/sendpassword";;      
    cdoSendEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress";;  
    cdoAutoPromoteBodyParts      = "http://schemas.microsoft.com/cdo/configuration/autopromotebodyparts"; ;
    cdoFlushBuffersOnWrite       = "http://schemas.microsoft.com/cdo/configuration/flushbufferson;write"; ;
    cdoHTTPCookies               = "http://schemas.microsoft.com/cdo/configuration/httpcookies"; ;
    cdoLanguageCode              = "http://schemas.microsoft.com/cdo/configuration/languagecode"; ;
    cdoNNTPAccountName           = "http://schemas.microsoft.com/cdo/configuration/nntpaccountname"; ;
    cdoNNTPAuthenticate          = "http://schemas.microsoft.com/cdo/configuration/nntpauthenticate"; ;
    cdoNNTPConnectionTimeout     = "http://schemas.microsoft.com/cdo/configuration/nntpconnectiontimeout"; ;
    cdoNNTPServer                = "http://schemas.microsoft.com/cdo/configuration/nntpserver"; ;
    cdoNNTPServerPickupDirectory = "http://schemas.microsoft.com/cdo/configuration/nntpserverpickupdirectory"; ;
    cdoNNTPServerPort            = "http://schemas.microsoft.com/cdo/configuration/nntpserverport"; ;
    cdoNNTPUseSSL                = "http://schemas.microsoft.com/cdo/configuration/nntpusessl"; ;
    cdoPostEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/postemailaddress"; ;
    cdoPostPassword              = "http://schemas.microsoft.com/cdo/configuration/postpassword"; ;
    cdoPostUserName              = "http://schemas.microsoft.com/cdo/configuration/postusername"; ;
    cdoPostUserReplyEmailAddress = "http://schemas.microsoft.com/cdo/configuration/postuserreplyemailaddress"; ;
    cdoPostUsingMethod           = "http://schemas.microsoft.com/cdo/configuration/postusing"; ;
    cdoSaveSentItems             = "http://schemas.microsoft.com/cdo/configuration/savesentitems"; ;
    cdoSendEmailAddress          = "http://schemas.microsoft.com/cdo/configuration/sendemailaddress"; ;
    cdoSendPassword              = "http://schemas.microsoft.com/cdo/configuration/sendpassword"; ;
    cdoSendUserName              = "http://schemas.microsoft.com/cdo/configuration/sendusername"; ;
    cdoSendUserReplyEmailAddress = "http://schemas.microsoft.com/cdo/configuration/senduserreplyemailaddress"; ;
    cdoSendUsingMethod           = "http://schemas.microsoft.com/cdo/configuration/sendusing"; ;
    cdoSMTPAccountName           = "http://schemas.microsoft.com/cdo/configuration/smtpaccountname"; ;
    cdoSMTPAuthenticate          = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"; ;
    cdoSMTPConnectionTimeout     = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"; ;
    cdoSMTPServer                = "http://schemas.microsoft.com/cdo/configuration/smtpserver";;
    cdoSMTPServerPickupDirectory = "http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory";;
    cdoSMTPServerPort            = "http://schemas.microsoft.com/cdo/configuration/smtpserverport";;
    cdoSMTPUseSSL                = "http://schemas.microsoft.com/cdo/configuration/smtpusessl";;
    cdoURLGetLatestVersion       = "http://schemas.microsoft.com/cdo/configuration/urlgetlatestversion";;
    cdoURLProxyBypass            = "http://schemas.microsoft.com/cdo/configuration/urlproxybypass";;
    cdoURLProxyServer            = "http://schemas.microsoft.com/cdo/configuration/urlproxyserver";;
    cdoUseMessageResponseText    = "http://schemas.microsoft.com/cdo/configuration/usemessageresponsetext";;
    Notification                 = "urn:schemas:mailheader:disposition-notification-to";
    Receipt                      = "urn:schemas:mailheader:return-receipt-to";
    
    cdoDSNDefault                 = 0; //       No DSN commands are issued.
    cdoDSNNever                   = 1; //       No DSN commands are issued.
    cdoDSNFailure                 = 2; //       Return a DSN if delivery fails.
    cdoDSNSuccess                 = 4; //       Return a DSN if delivery succeeds.
    cdoDSNDelay                   = 8; //       Return a DSN if delivery is delayed.
    cdoDSNSuccessFailOrDelay      = 14;//      Return a DSN if delivery succeeds, fails, or is delayed.
    sFrom = "От кого";
    
    iConf = Новый COMObject("CDO.Configuration");
    
    iConf.fields(cdoSMTPServer).value         = "smtp.gmail.com";
    iConf.fields(cdoSMTPServerPort).value     = "465";
    iConf.fields(cdoSMTPAuthenticate).value   = 1;
    iConf.fields(cdoSendUserName).value       = "почта@gmail.com";
    
    iConf.fields(CdoSendPassword).value       = "пароль";
    iConf.fields(cdoSendEmailAddress).value   = "<почта@gmail.com>";
    iConf.fields(cdoSMTPUseSSL).value         = 1;
    
    iConf.fields(cdoSendUsingMethod).value    = 2;
    iConf.fields.update();            
    
    //iMsg=createObject("CDO.Message");
    iMsg = Новый COMObject("CDO.Message");
    
    //iMsg = NewObject("CDO.Message");
    iMsg.configuration = iConf;
    
    iMsg.fields(Notification).value = "<smtp.gmail.com>";
    iMsg.fields(Receipt).value = "<smtp.gmail.com>";
    iMsg.Fields.Update();
    
    //_Получатели = "";
    iMsg.to="получатель@matrixufa.ru";//АдресПолучатель;
    
    iMsg.subject="ЗапросПоследнегоДокумента"; //"ТемаПисьма";
    
    //iMsg.textBody=?(ФорматТекста=Перечисления.ФорматТекста.HTML, ЭлементыФормы.ПолеHTMLДокумента.ПолучитьТекст(), ТекстПисьма);
    iMsg.textBody="ДатаНачала " + ДатаНачала + Символы.ПС + "ДатаКонца " + ДатаКонца;
    iMsg.textBodypart.charset="windows-1251"; // "windows-1251";  
    iMsg.send();
1 sapphire
 
10.12.14
12:18
(0) CDO устаревший инструмент.
Используйте EWS API:
http://msdn.microsoft.com/ru-ru/library/dn592140(v=exchg.150).aspx
2 ДенисЧ
 
10.12.14
12:33
Прокси для почты? Давно такого не слыхал...
3 sapphire
 
10.12.14
12:47
(0)
iConf.fields(cdoURLProxyServer).Value        = "server:80"
iConf.fields.(cdoURLProxyBypass).Value        = "<local>"
iConf.fields.(cdoURLGetLatestVersion).Value   = True
4 байт
 
10.12.14
15:28
Попробовал отправить почту, отправляет, но прочитать письма не удается пишет что "Данная операция не может быть выполнена, не установлено соединение IMAP.", вставляю протокол подключения imap, выскакивает ошибка: "Certificate failure for ***.***.*.***: Self-signed certificate or untrusted authority: C=RU, O=Universal-Treiding, CN=post.matrixufa.ru", код такой:

    Отправитель =  "почта@*****.ru";
    Пользователь = "почта";
    Сервак = "***.***.*.***";
    Пароль = "***";
    мПрофиль = Новый ИнтернетПочтовыйПрофиль;
    мПрофиль.АдресСервераIMAP = Сервак;
    мПрофиль.АдресСервераSMTP = Сервак;
    мПрофиль.АдресСервераPOP3 = Сервак;    
    мПрофиль.ПортPOP3 = 110;    
    мПрофиль.ПортSMTP = 25;
    мПрофиль.ПортIMAP = 143;  
    мПрофиль.POP3ПередSMTP=ложь;      
    мПрофиль.АутентификацияPOP3 = СпособPOP3Аутентификации.Обычная;    
    мПрофиль.АутентификацияSMTP = СпособSMTPАутентификации.Login;
    мПрофиль.ПользовательIMAP = Пользователь;
    мПрофиль.ПользовательSMTP = Пользователь;
    мПрофиль.Пользователь =      Пользователь;        
    мПрофиль.Пароль =        Пароль;
    мПрофиль.ПарольIMAP = Пароль;        
    мПрофиль.ПарольSMTP = Пароль;
    мПрофиль.ВремяОжидания = 20;  
    мПрофиль.ИспользоватьSSLIMAP = Истина;
    мПочта = Новый ИнтернетПочта;     
    Попытка        мПочта.Подключиться(мПрофиль,ПротоколИнтернетПочты.IMAP);
    Исключение
5 байт
 
10.12.14
15:31
кто-нибудь сталкивался с подобным?
6 Йохохо
 
10.12.14
15:36
(5) а если скачать сертификат и установить?
7 байт
 
11.12.14
08:40
(6) админ говорит это не поможет, советует в обработке прописать скачку сертификата с сервера сам сертификат самоподписанный.
8 shuhard
 
11.12.14
09:45
(5) не занимайся хернёй - почтовые протоколы не работают через прокси
9 байт
 
11.12.14
10:05
(8) ключевая ошибка такая:Certificate failure for ***.***.*.***: Self-signed certificate or untrusted authority: C=RU, O=Universal-Treiding, CN=post.matrixufa.ru", ранее все считывалось без проблем как ее решить понятия не имею.
10 Йохохо
 
11.12.14
10:06
(9) скачать и добавить в список доверенных
11 байт
 
11.12.14
10:06
+(9) скажем так с таким впервые сталкиваюсь поэтому куда копать и как реализовать не знаю.
12 байт
 
11.12.14
10:09
(10) есть возможность установить сертификат, добавил в довверенные зоны не помогло.
13 kobzon2
 
11.12.14
10:13
Извиняюсь, а для обновление 1с 8. через прокси, какой порт должен быть открыт?