Невозможно настроить параметры TLS для связи по протоколу SMTP в Microsoft Dynamics NAV 2009

Сведения о файлах

Глобальная версия этого исправления содержит атрибуты файла (или более поздние атрибуты файлов), приведенные в следующей таблице. Дата и время для этих файлов указаны в формате общего скоординированного времени (UTC). При просмотре сведений о файле, он преобразуется в локальное время. Чтобы узнать разницу между временем по Гринвичу и местным временем, откройте вкладку Часовой пояс элемента Дата и время в панели управления.

Примечание. Это исправление работает для подписанных сертификатов. Если самозаверяющий сертификат, необходимо вручную подписать сертификатом и установить это исправление как доверенные.

Чтобы сделать это, выполните следующие действия.

1. Скопируйте файлы, извлеченные из файлов исправления в следующую папку:
   %ProgramFiles%\Common создаваемую Dynamics NAV\Mail

2. Зарегистрируйте новую сборку Microsoft.Navision.Mail.dll через средство регистрации сборок (Regasm.exe) с помощью следующей команды:
   Regasm / codebase /tlb:Microsoft.Navision.Mail.tlb Microsoft.Navision.Mail.dll
   
   Например можно убедиться в том, что файл Regasm.exe в папке почты , упомянутого в шаге 1, откройте окно командной строки, измените каталог «C:\Program Files (x86) \Common Dynamics NAV\Mail» и запустите следующую команду, чтобы зарегистрировать сборку Microsoft.Navision.Mail.dll:
   RegAsm.exe /codebase /tlb:Microsoft.Navision.Mail.tlb Microsoft.Navision.Mail.dll

3. Измените код в таблице Настройка почты SMTP (409) следующим образом:
   Существующий код

   ...FIELDS
   {
   { 1 ; ;Primary Key ;Code10 ;CaptionML=ENU=Primary Key }
   { 2 ; ;SMTP Server ;Text250 ;CaptionML=ENU=SMTP Server }
   { 3 ; ;Authentication ;Option ;OnValidate=BEGIN
   IF Authentication <> Authentication::Basic THEN BEGIN
   "User ID" := '';
   Password := '';
   END;
   END;
   
   CaptionML=ENU=Authentication;
   OptionCaptionML=ENU=Anonymous,NTLM,Basic;
   OptionString=Anonymous,NTLM,Basic }
   { 4 ; ;User ID ;Text30 ;OnValidate=BEGIN
   TESTFIELD(Authentication,Authentication::Basic);
   END;
   
   CaptionML=ENU=User ID }
   { 5 ; ;Password ;Text30 ;OnValidate=BEGIN
   TESTFIELD(Authentication,Authentication::Basic);
   END;
   
   CaptionML=ENU=Password }
   }
   ...
   

   Код для замены

   ...FIELDS
   {
   { 1 ; ;Primary Key ;Code10 ;CaptionML=ENU=Primary Key }
   { 2 ; ;SMTP Server ;Text250 ;CaptionML=ENU=SMTP Server }
   { 3 ; ;Authentication ;Option ;OnValidate=BEGIN
   IF Authentication <> Authentication::Basic THEN BEGIN
   "User ID" := '';
   Password := '';
   END;
   END;
   
   CaptionML=ENU=Authentication;
   OptionCaptionML=ENU=Anonymous,NTLM,Basic;
   OptionString=Anonymous,NTLM,Basic }
   { 4 ; ;User ID ;Text30 ;OnValidate=BEGIN
   TESTFIELD(Authentication,Authentication::Basic);
   END;
   
   CaptionML=ENU=User ID }
   { 5 ; ;Password ;Text30 ;OnValidate=BEGIN
   TESTFIELD(Authentication,Authentication::Basic);
   END;
   
   CaptionML=ENU=Password }
   
   // Add the following lines.
   { 50000; ;SMTP Server Port ;Integer ;InitValue=25 }
   { 50001; ;Secure Connection ;Boolean ;InitValue=No }
   // End of the lines.
   
   }
   ...
   

4. Измените код в форме Настройка почты SMTP (409) следующим образом:
   Существующий код 1

   ...OnOpenForm=BEGIN
   RESET;
   IF NOT GET THEN
   INSERT;
   CurrForm."User ID".EDITABLE := Authentication = Authentication::Basic;
   CurrForm.Password.EDITABLE := Authentication = Authentication::Basic;
   END;
   ...
   

   Код для замены 1

   ...OnOpenForm=BEGIN
   RESET;
   IF NOT GET THEN
   BEGIN
   
   // Add the following line.
   INIT;
   
   INSERT;
   
   // Add the following line.
   END;
   
   CurrForm."User ID".EDITABLE := Authentication = Authentication::Basic;
   CurrForm.Password.EDITABLE := Authentication = Authentication::Basic;
   END;
   ...
   

   Существующий код 2

   ...CONTROLS
   {
   { 1 ;TabControl ;220 ;220 ;9350 ;5280 ;HorzGlue=Both;
   VertGlue=Both;
   PageNamesML=ENU=General }
   { 2 ;TextBox ;3850 ;990 ;5500 ;440 ;ParentControl=1;
   InPage=0;
   SourceExpr="SMTP Server" }
   { 3 ;Label ;440 ;990 ;3300 ;440 ;ParentControl=2 }
   { 6 ;TextBox ;3850 ;2090 ;5500 ;440 ;ParentControl=1;
   InPage=0;
   SourceExpr="User ID" }
   { 7 ;Label ;440 ;2090 ;3300 ;440 ;ParentControl=6 }
   { 8 ;TextBox ;3850 ;2640 ;5500 ;440 ;ParentControl=1;
   InPage=0;
   PasswordText=Yes;
   SourceExpr=Password }
   { 9 ;Label ;440 ;2640 ;3300 ;440 ;ParentControl=8 }
   { 4 ;TextBox ;3850 ;1540 ;2750 ;440 ;ParentControl=1;
   InPage=0;
   SourceExpr=Authentication;
   OnAfterValidate=BEGIN
   CurrForm."User ID".EDITABLE := Authentication = Authentication::Basic;
   CurrForm.Password.EDITABLE := Authentication = Authentication::Basic;
   END;
   }
   { 5 ;Label ;440 ;1540 ;3300 ;440 ;ParentControl=4 }
   { 10 ;CommandButton;7370 ;5720 ;2200 ;550 ;HorzGlue=Right;
   VertGlue=Bottom;
   PushAction=FormHelp }
   }
   ...
   

   Код для замены 2

   ...CONTROLS
   {
   { 1 ;TabControl ;220 ;220 ;9350 ;5280 ;HorzGlue=Both;
   VertGlue=Both;
   PageNamesML=ENU=General }
   { 2 ;TextBox ;3850 ;990 ;5500 ;440 ;ParentControl=1;
   InPage=0;
   SourceExpr="SMTP Server" }
   { 3 ;Label ;440 ;990 ;3300 ;440 ;ParentControl=2 }
   { 6 ;TextBox ;3850 ;2640 ;5500 ;440 ;ParentControl=1;
   InPage=0;
   SourceExpr="User ID" }
   { 7 ;Label ;440 ;2640 ;3300 ;440 ;ParentControl=6 }
   { 8 ;TextBox ;3850 ;3190 ;5500 ;440 ;ParentControl=1;
   InPage=0;
   PasswordText=Yes;
   SourceExpr=Password }
   { 9 ;Label ;440 ;3190 ;3300 ;440 ;ParentControl=8 }
   { 4 ;TextBox ;3850 ;1540 ;2750 ;440 ;ParentControl=1;
   InPage=0;
   SourceExpr=Authentication;
   OnAfterValidate=BEGIN
   CurrForm."User ID".EDITABLE := Authentication = Authentication::Basic;
   CurrForm.Password.EDITABLE := Authentication = Authentication::Basic;
   END;
   }
   { 5 ;Label ;440 ;1540 ;3300 ;440 ;ParentControl=4 }
   
   // Add the following lines.
   { 14 ;TextBox ;3850 ;2090 ;5500 ;440 ;Name=<SMTP Server Port>;
   ParentControl=1;
   InPage=0;
   DecimalPlaces=0:0;
   NotBlank=Yes;
   Numeric=Yes;
   SourceExpr="SMTP Server Port";
   MinValue=1 }
   { 15 ;Label ;440 ;2090 ;3300 ;440 ;ParentControl=14;
   CaptionML=ENU=SMTP Server Port }
   { 12 ;CheckBox ;3850 ;3740 ;440 ;440 ;ParentControl=1;
   InPage=0;
   ShowCaption=No;
   SourceExpr="Secure Connection" }
   { 11 ;Label ;440 ;3740 ;3300 ;440 ;ParentControl=12 }
   // End of the lines.
   
   { 10 ;CommandButton;7370 ;5720 ;2200 ;550 ;HorzGlue=Right;
   VertGlue=Bottom;
   PushAction=FormHelp }
   }
   ...
   

5. Измените переменную почты в функции сообщения по протоколу SMTP (400) следующим образом:
   Существующее значение

   Mail@1000 : Automation "{68AEAA7B-9523-3511-AF5F-F2381D2C6F04} 1.0:{F9DAE2A4-D2F8-37C3-86D5-E4FFE166D860}:'Microsoft Navision Mail'.SmtpMessage";

   Заменяющее значение

   Mail@1000 : Automation "{68AEAA7B-9523-3511-AF5F-F2381D2C6F04} 7.3:{F9DAE2A4-D2F8-37C3-86D5-E4FFE166D860}:'Microsoft Navision Mail'.SmtpMessage";

6. Измените код в функции сообщения по протоколу SMTP (400) следующим образом:
   Существующий код

   ...BEGIN
   WITH SMTPMailSetup DO
   Result :=
   Mail.Send(
   
   // Delete the following line.
   "SMTP Server",Authentication <> SMTPMailSetup.Authentication::Anonymous,"User ID", Password);
   
   Mail.Dispose;
   CLEAR(Mail);
   IF Result <> '' THEN
   ERROR(Text003,Result);
   END;
   ...
   

   Код для замены

   ...BEGIN
   WITH SMTPMailSetup DO
   Result :=
   Mail.Send(
   
   // Add the following lines.
   "SMTP Server",
   "SMTP Server Port",
   Authentication <> Authentication::Anonymous,
   "User ID",
   Password,
   "Secure Connection");
   // End of the lines.
   
   Mail.Dispose;
   CLEAR(Mail);
   IF Result <> '' THEN
   ERROR(Text003,Result);
   END;
   ...
   

Предварительные условия

Необходимы следующие продукты для установки данного исправления.

• Microsoft Dynamics NAV 2009 R2

• Microsoft Dynamics NAV 2009 Пакет обновления 1 (SP1)

Сведения об удалении

Установленное обновление удалить нельзя.