E-Mails mit Signaturen aus NAV senden

Häufig wurden wir gefragt, ob es möglich ist Signaturen in E-Mails anzufügen wenn diese aus der Kontaktkarte aus NAV erstellt werden.

Von Haus existiert diese Funktionalität so nicht, aber mit einem Workaround können wir dieses Gap schließen und mit wenig Code Signaturen an E-Mails anfügen. Eine kleine Limitierungen ist das wir dieses nur in Text-Format tun können.

In diesem Workaround müssen Sie einfach nur eine Textdatei in den z.B. Dokumente und Einstellungen Ordner erstellen.
In meinem Beispiel nenne ich diese Sig.txt

 

Max Mustermann

Muster Company

Musterstrasse 123

12345 Hamburg

 

Danach muss nur noch die Codeunit 397 Mail angepasst werden.

Gehen Sie in den Trigger NewMessage und erstellen dort 4 lokale Variablen.

ChrLineBreak vom Typ Char
ChrCarrigeReturn vom Type Char
Signature vom Type File
MyText vom Type Text 60

Folgender Code fügt nun die Signatur in die E-Mail ein:

// Signature --- New Code
ChrLineBreak := 13;
ChrCarrigeReturn := 10;
Signature.TEXTMODE(TRUE);

IF Signature.OPEN('C:Sig.txt') THEN BEGIN
AddBodyline(FORMAT(ChrLineBreak));
AddBodyline(FORMAT(ChrCarrigeReturn));
WHILE NOT (Signature.POS = Signature.LEN) DO BEGIN
Signature.READ(MyText);
AddBodyline(MyText);
AddBodyline(FORMAT(ChrLineBreak));
AddBodyline(FORMAT(ChrCarrigeReturn));
END;
END;
// Signature--- New Code

Fügen Sie den Code einfach unter den schon bestehenden Code in dem Trigger NewMessage ein:

...

MailGUIDValue := CREATEGUID;
OSendMail.SetUserProperty(GetMailGUIDFieldName,1,FORMAT(MailGUIDValue));
...

Danach wird die Signature als Text mit in die E-Mail eingefügt.

Disclaimer

“Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability or fitness for a particular purpose. This mail message assumes that you are familiar with the programming language that is being demonstrated and the tools that are used to create and debug procedures.”   

 

 

These postings are provided "AS IS" with no warranties and confer no rights. You assume all risk for your use.

Mit freundlichen Grüßen

Sebastian Röttel

Microsoft Dynamics Germany

Microsoft Customer Service and Support (CSS) EMEA