Etiquetado: 

  • Este debate tiene 2 respuestas, 3 mensajes y ha sido actualizado por última vez el hace 1 año, 10 meses por Jon Ander (IGN).
Viendo 3 entradas - de la 1 a la 3 (de un total de 3)

2 adjuntos en un correo



  • maria.ar
    Participante
    maria.ar

    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;

    #1019863

    cristina.barron-1886
    Participante
    cristina.barron-1886

    Hola que tal yo he realizado algunos Desarrollos en donde he adjuntado documentos a un email pero viendo tu codigo no puedo eviar preguntar que version de Business Central usas y si es On-Cloud u On-Premise

    Te recomendaría leer algo sobre el CODEUNIT SMTP-MAIL SETUP puede que encuentres algo útil ahí

    Saludos

    #1019875

    Jon Ander (IGN)
    Participante
    Jon Ander (IGN)

    Hola,

    puedes utilizar la siguiente funcionalidad:

    EmailMessage.Create(Destinatario, Asunto,Cuerpo, isHTML);

    EmailMessage.AddAttachment(NombreFichero, Extension, [InStream del fichero]);

    EmailMessage.AddAttachment(NombreFichero2, Extension, [InStream del fichero]);

    EmailMessage.AddAttachment(NombreFichero3, Extension, [InStream del fichero]);

    Email.Send(EmailMessage)

    Las variables son:

    Email: Codeunit Email

    EmailMessage:Codeunit “Email Message”

    Saludos.

    #1020092
Viendo 3 entradas - de la 1 a la 3 (de un total de 3)

Debe iniciar sesión para responder a este tema.