คุณไม่สามารถกำหนดการตั้งค่า TLS สำหรับการสื่อสาร SMTP ใน Microsoft Dynamics NAV 2009

แฟ้มข้อมูล

รุ่นสากลของ hotfix นี้มีแอตทริบิวต์ของแฟ้ม (หรือแอตทริบิวต์ของแฟ้มที่ใหม่กว่า) ซึ่งแสดงอยู่ในตารางต่อไปนี้ วันที่และเวลาสำหรับแฟ้มเหล่านี้จะแสดงรายการไว้ในรูปแบบเวลามาตรฐานสากล (UTC) เมื่อคุณดูข้อมูลแฟ้ม ระบบจะแปลงข้อมูลนี้เป็นเวลาท้องถิ่น เมื่อต้องการค้นหาความแตกต่างระหว่างเวลา UTC กับเวลาท้องถิ่น ใช้แท็บ โซนเวลา ในรายการ วันที่และเวลา ในแผงควบคุม

หมายเหตุ  โปรแกรมแก้ไขด่วนนี้ใช้ได้สำหรับใบรับรองการเซ็นชื่อ ถ้าใบรับรองเซ็นชื่อด้วยตนเอง คุณต้องด้วยตนเองใบรับรองการเซ็นชื่อ และติดตั้งโปรแกรมแก้ไขด่วนนี้เป็นที่เชื่อถือ

เมื่อต้องการทำเช่นนี้ ให้ทำตามขั้นตอนเหล่านี้

1. คัดลอกแฟ้มต่าง ๆ ที่คุณแยกจากแฟ้มโปรแกรมแก้ไขด่วนไปยังโฟลเดอร์ต่อไปนี้:
   %ProgramFiles%\Common Files\Microsoft 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:\แฟ้ม (x86) \Common Files\Microsoft 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 Service Pack ที่ 1 (SP1)

ข้อมูลการเอาออก

คุณไม่สามารถเอาโปรแกรมแก้ไขด่วนนี้