2 adjuntos en un correo

Buenos tardes

Estoy intentando crear un proceso para adjuntar dos documentos este es el codigo pero no funciona, si adjunto cada unos por separado funciona pero los dos no, alguien puede ayudarnos???

SendEMAILWEB(VendorNo : Code[20])

RutaInforme := SaveReportAsPDFWEB(VendorNo);

IF COMPANYNAME = ‘IC Construction’ THEN
RutaManual := ‘\\navision\FTP\IC\ManualWEB.pdf’
ELSE
RutaManual := ‘\\navision\FTP\EFFI\ManualWEB.pdf’;

IF ( CompanyInformation.GET() = TRUE ) THEN;

Vend.GET(VendorNo);
Filename1 := ‘ManualWeb.pdf’;

WITH EmailItem DO BEGIN
Init;
VALIDATE(“Send to”,Vend.”E-Mail”);
Subject := SubjectTxt;
SetBodyText(STRSUBSTNO(BodyTexto, CompanyInformation.Name));

“Attachment File Path 2” := RutaInforme;
“Attachment Name 2” := STRSUBSTNO(FileName,VendorNo);

“Attachment File Path” := RutaManual;
“Attachment Name” := STRSUBSTNO(Filename1,VendorNo );

Send(FALSE);
END;