You cannot configure the TLS settings for SMTP communication in Microsoft Dynamics NAV 2009

File Information

The global version of this hotfix has the file attributes (or later file attributes) that are listed in the following table. The dates and times for these files are listed in Coordinated Universal Time (UTC). When you view the file information, it is converted to local time. To find the difference between UTC and local time, use the Time Zone tab in the Date and Time item in Control Panel.

Note This hotfix works for signed certificates. If the certificate is self-signed, you must manually sign the certifcate and install this hotfix as trusted.

To do this, follow these steps:

1. Copy the files that you extracted from the hotfix files to the following folder:
   %ProgramFiles%\Common Files\Microsoft Dynamics NAV\Mail

2. Register the new Microsoft.Navision.Mail.dll assembly through the Assembly Registration tool (Regasm.exe) by using the following command:
   regasm /codebase /tlb:Microsoft.Navision.Mail.tlb Microsoft.Navision.Mail.dll
   
   For example, you can make sure that the Regasm.exe file is in the Mail folder mentioned in step 1, open the command prompt, change the directory to "C:\Program Files (x86)\Common Files\Microsoft Dynamics NAV\Mail", and then run the following command to register the Microsoft.Navision.Mail.dll assembly:
   RegAsm.exe /codebase /tlb:Microsoft.Navision.Mail.tlb Microsoft.Navision.Mail.dll

3. Change the code in the SMTP Mail Setup table (409) as follows:
   Existing code

   ...
   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 }
   }
   ...

   Replacement code

   ...
   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. Change the code in the SMTP Mail Setup form (409) as follows:
   Existing code 1

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

   Replacement code 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;
   ...

   Existing code 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 }
   }
   ...

   Replacement code 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. Change the Mail variable in the SMTP Mail codeunit (400) as follows:
   Existing value

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

   Replacement value

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

6. Change the code in the SMTP Mail codeunit (400) as follows:
   Existing code

   ...
   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;
   ...

   Replacement code

   ...
   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;
   ...

Prerequisites

You must have one of the following products installed to apply this hotfix:

• Microsoft Dynamics NAV 2009 R2

• Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

Removal information

You cannot remove this hotfix.