SMTP Add CC From secondary email field

Business Central/NAV Developers Forum
1

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;

2

Hi,
I am not sure that i completely got your question but if you added the field “secondary mail” in Sales header table.
You can do like you are doing for others -
If SalesHeader.“secondary mail” <> ‘’ THEN
SMTPMail.AddCC(SalesHeader.“secondary mail”);