Не вдається настроїти параметри TLS SMTP-зв'язку в Microsoft Dynamics NAV, 2009

Відомості про файли

Універсальна версія цього виправлення на комп'ютері, має атрибути файлів (або новіші атрибути файлів) подані в нижченаведеній таблиці. Значення дати й часу для цих файлів наведено за всесвітнім координованим часом (UTC). Переглядаючи відомості про файл, час конвертується у місцевий час. Щоб визначити різницю між UTC і місцевим часом, використайте вкладку Часовий пояс у Дата й час на панелі керування.

Примітка. Це виправлення можна застосовувати до підписаних сертифікатів. Якщо сертифікат власним підписом, потрібно вручну входу до certifcate та інсталювати це виправлення, як надійне.

Щоб це зробити, виконайте такі дії:

1. Скопіюйте файли, які ви видобули, файли виправлення в таку папку:
   %ProgramFiles%\Common-Files\Microsoft Dynamics NAV\Mail

2. Зареєструйте новий вузол Microsoft.Navision.Mail.dll – складання реєстрації засіб (Regasm.exe), за допомогою такої команди:
   regasm /, вихідним кодом, /tlb:Microsoft.Navision.Mail.tlb Microsoft.Navision.Mail.dll
   
   Наприклад, ви можете зробити, Regasm.exe файл у папці пошти , описано на кроці 1, Відкрийте вікно командного рядка, змініть каталог "C:\Program Files (x86) \Common Files\Microsoft динаміки 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-codeunit (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-codeunit (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)

Відомості про видалення

Це виправлення не можна видалити.