Dyamics NAV V7
Hi,
I have added a secondary mail field on T36, and i would like to send to this email as CC, how can i manage this ?
Here is the codeunite that i use and a screenshot of the received email.
Thanks for the help.
// Confirmation to PDF
SalesHeader.SETRANGE("Document Type",SalesHeader."Document Type"::Order);
SalesHeader.SETRANGE("No.",SalesHeader."No.");
Etat_Confirmation.SETTABLEVIEW(SalesHeader);
FileName := SalesHeader."External Document No.";
DirSave := 'd:\Transferts\';
Etat_Confirmation.SAVEASPDF(DirSave + 'Confirm_Mails\' + FileName + '_AR.pdf');
// Copie sur le serveur therefore
COPY(DirSave + 'Confirm_Mails\' + FileName + '_AR.pdf', '\\SERVEUR2012\Import\' + FileName + '_AR.pdf');
// Récupération Email Représentant
IF SalesPerson.GET(SalesHeader."Salesperson Code") THEN
EmailRepr := SalesPerson."E-Mail";
// Envoi du mail
SMTPSetup.GET;
SalesHeader.TESTFIELD("Bill-to Contact Email");
SalesHeader.TESTFIELD("Bill-to Contact Email 2");
MESSAGE('La commande %1 va être envoyé à %2 %3 %4',SalesHeader."No.",SalesHeader."Bill-to Contact Email",SalesHeader."Bill-to Contact Email 2",SalesPerson."E-Mail");
Subject := 'AR ' + FileName + ' / ' + SalesHeader.Contremarque;
//SMTPMail.CreateMessage(SenderName,SenderAddress,Recipients,Subject,Body,HtmlFormatted) //Parameters
SMTPMail.CreateMessage('Company',SMTPSetup."Email Sendor Email",
SalesHeader."Bill-to Contact Email",Subject,'',TRUE);
{SMTPMail.AppendBody('Bonjour,');
SMTPMail.AppendBody('<br><br>');
SMTPMail.AppendBody('Veuillez trouver ci-joint votre confirmation de commande Company.');
SMTPMail.AppendBody('<br><Br>');
SMTPMail.AppendBody('Cordialement,');
SMTPMail.AppendBody('<br>');
SMTPMail.AppendBody('FirstName / LastName);}
IF Customer."Language Code" <> '' THEN
IF Customer."Language Code" = 'DEU' THEN Mess := MsgDE
ELSE IF Customer."Language Code" = 'ENU' THEN Mess := MsgEN
ELSE IF Customer."Language Code" = 'NLB' THEN Mess := MsgNL
ELSE IF Customer."Language Code" = 'FRA' THEN Mess := MsgFR
ELSE Mess := MsgFR
ELSE Mess := MsgFR;
SMTPMail.AppendBody(Mess);
SMTPMail.AppendBody('<br><br>');
SMTPMail.AppendBody('<HR>');
// SMTPMail.AppendBody('This is a system generated mail. Please do not reply to this email ID.');
SMTPMail.AddAttachment(DirSave + 'Confirm_Mails\' + FileName + '_AR.pdf');
// Ajout des plans en PJ
CLEAR(Plans);
Plans.RESET;
Plans.SETFILTER(Path, DirSave + 'LinkFilesWCC\');
IF FileName = '' THEN BEGIN
MESSAGE('Le numéro de document externe est manquant');
EXIT;
END ELSE
Plans.SETFILTER(Name, FileName + '*.*');
// MESSAGE(Plans.Name);
IF Plans.FINDFIRST THEN REPEAT
// MESSAGE(Plans.Name);
SMTPMail.AddAttachment(DirSave + 'LinkFilesWCC\' + Plans.Name);
UNTIL (Plans.NEXT = 0);
// Ajout des Copies
Customer.GET(SalesHeader."Sell-to Customer No.");
IF Customer."E-Mail" <> SalesHeader."Bill-to Contact Email" THEN
IF Customer."E-Mail" <> '' THEN
SMTPMail.AddCC(Customer."E-Mail");
IF Customer."Email 2" <> SalesHeader."Bill-to Contact Email 2" THEN
IF Customer."Email 2" <> '' THEN
SMTPMail.AddCC(Customer."Email 2");
IF EmailRepr <> '' THEN SMTPMail.AddCC(EmailRepr);
{IF SalesHeader."Ship-to Contact Email" <> Customer."E-Mail" THEN
SMTPMail.AddCC(SalesHeader."Ship-to Contact Email");}
// Ajout des Copies Cachées
// SMTPMail.AddBCC(SMTPSetup."Email Sendor Email");
// IF EmailRepr <> '' THEN SMTPMail.AddBCC(EmailRepr);
SMTPMail.AddBCC('xxxxx@yyyyyy.com');
SMTPMail.Send;