You cannot attach a protected Word document to an interaction in Microsoft Dynamics NAV 2009

Installation information

Code changes

1. Add the following global variable:

   Text009@1009 : TextConst 'ENU=Sending individual mails...';

2. Change the code in the ExecuteMerge function as follows:
   Existing code

   ...
             FORMAT(TempDeliverySorter."Correspondence Type")));
           IF TempDeliverySorter.FIND('-') THEN
             NoOfRecords := TempDeliverySorter.COUNT;
     
   
           Attachment.GET(TempDeliverySorter."Attachment No.");
     
   
           WITH TempDeliverySorter DO BEGIN
             SETCURRENTKEY("Attachment No.","Correspondence Type",Subject);
             FIND('-');
           END;
   ...
   

   Replacement code

   ...
             FORMAT(TempDeliverySorter."Correspondence Type")));
           IF TempDeliverySorter.FIND('-') THEN
             NoOfRecords := TempDeliverySorter.COUNT;
     
   
           Attachment.GET(TempDeliverySorter."Attachment No.");
   
   // Add the following lines.
          // Handle Word documents without mergefields
          IF NOT DocContainMergefields(Attachment) THEN BEGIN
            MainFileName := ConstDocFilename;
            Attachment.ExportAttachment(MainFileName);
            CASE TempDeliverySorter."Correspondence Type" OF
              TempDeliverySorter."Correspondence Type"::"Hard Copy":
                BEGIN
                  wrdDoc := wrdApp.Documents.Open(MainFileName);
                  HandleWorddocwithoutmerge(wrdDoc,TempDeliverySorter,MainFileName);
                  ParamBln := FALSE;
                  wrdDoc.Close(ParamBln);
                END;
              TempDeliverySorter."Correspondence Type"::"E-Mail":
                BEGIN
                  // Send attachment to all contacts in buffer
                  Window.UPDATE(6,Text009);
                  Attachment.TESTFIELD("File Extension");
                  HandleWorddocwithoutmerge(wrdDoc,TempDeliverySorter,MainFileName);
                  DeleteFile(MainFileName);
                END;
            END;
            EXIT;
          END;
     // End of the lines.
   
           WITH TempDeliverySorter DO BEGIN
             SETCURRENTKEY("Attachment No.","Correspondence Type",Subject);
             FIND('-');
           END;
   ...
   

3. Change the code in the HandleWorddocwithoutmerge function as follows:
   Existing code

   ...
           IF EvalOK AND (Version >= 12.0) THEN
             EXIT('DOCX');
           EXIT(DefaultStr);
         END;
   
     
         BEGIN
         END.
       }
     }
   ...
   

   Replacement code

   ...
           IF EvalOK AND (Version >= 12.0) THEN
             EXIT('DOCX');
           EXIT(DefaultStr);
         END;
     
   // Add the following lines.
        PROCEDURE HandleWorddocwithoutmerge@18(VAR wrdDoc@1021 : Automation "{00020905-0000-0000-C000-000000000046} 8.1:{00020906-0000-0000-C000-000000000046}:Unknown Automation Server.Document";VAR TempDeliverySorter@1022 : Record 5074;MainFileName@1023 : Text[260]);
        VAR
          InteractLogEntry@1001 : Record 5065;
          Contact@1002 : Record 5050;
          Mail@1003 : Codeunit 397;
        BEGIN
          WITH InteractLogEntry DO BEGIN
            REPEAT
              LOCKTABLE;
              GET(TempDeliverySorter."No.");
              IF TempDeliverySorter."Correspondence Type" = TempDeliverySorter."Correspondence Type"::"E-Mail" THEN BEGIN
                Contact.GET(InteractLogEntry."Contact No.");
                Mail.NewMessage(
                  AttachmentManagement.InteractionEMail(InteractLogEntry),'',
                  TempDeliverySorter.Subject,'',MainFileName,FALSE);
                InteractLogEntry."Mail GUID" := Mail.GetMailGUIDValue;
              END ELSE
                wrdDoc.PrintOut;
              InteractLogEntry."Delivery Status" := InteractLogEntry."Delivery Status"::" ";
              InteractLogEntry.MODIFY;
              COMMIT;
            UNTIL TempDeliverySorter.NEXT = 0;
          END;
        END;
    
   // End of the lines.
   
         BEGIN
         END.
       }
     }
   ...
   

Prerequisites

• Microsoft Dynamics NAV 2009 R2
• Microsoft Dynamics NAV 2009 Service Pack 1

Removal information