Navision tiene la posibilidad de enviar correos mediante la Code Unit 400 y el Automation ‘Microsoft Navision Mail.SmtpMessage‘, que se registra en la instalación del cliente de Navision.
Gracias a esto tenemos la posibilidad de realizar desarrollos que nos permitan por ejemplo enviar correos electrónicos a nuestros clientes adjuntando sus facturas.
Este Automation nos es muy útil pero a su vez es limitado. En ocasiones queremos poder tener más potencia en cuanto al envío de correos electrónicos. Este tipo de características que no son cubiertas, las podemos cubrir en muchos casos con los Automations de Outlook.
Gracias a estos Automations, podremos por ejemplo mandar los correos con acuse de recibo y lectura, enviar correos con plantillas creadas en Outlook e incluso interactuar con sus contactos. Para ello en cada equipo cliente de Navision deberemos de tener instalado y configurado un cliente de Outlook (versión 2003 en adelante).
Vamos a ver un ejemplo de un envío de correo con adjunto, con acuse de recibo y lectura y con una plantilla creada en Outlook.
Para el ejemplo he utilizado Microsoft Dynamics NAV R2 con Outlook 2003.
Lo primero será tener un plantilla de Outlook (*.oft) con el diseño deseado. Nótese que la función de plantillas es incompatible con la función de escribir un cuerpo en el correo, es decir o decidimos poner una plantilla o escribir el cuerpo con el texto deseado.
Creamos las siguientes variables en la Code Unit donde vayamos a poner el código:
Name DataType Subtype Length
OMail Automation 'Microsoft Outlook 11.0 Object Library'.MailItem
OApp Automation 'Microsoft Outlook 11.0 Object Library'.Application
Y el código sera el siguiente:
//Envío correo mediante dll Outlook
IF ISCLEAR(OApp) THEN
CREATE(OApp,FALSE,TRUE);
//OMail := OApp.CreateItem(0);//Si no utilizamos plantillas
OMail := OApp.CreateItemFromTemplate('C:\Plantilla Correos\plantilla.oft');
OMail."To" := 'correodestino@correo.com';
OMail.Attachments.Add('C:\Plantilla Correos\adjunto.xml'); //Si queremos adjuntar un fichero
OMail.Subject := 'Asunto del correo';
//OMail.Body := 'El cuerpo del mensaje'; //O ponemos este código o el de la plantilla.
OMail.OriginatorDeliveryReportRequested := TRUE; //Confirmación de recepción.
OMail.ReadReceiptRequested := TRUE; //Confirmación de lectura.
OMail.Send;
Como curiosidad debido a un tema de límite de tamaño interno de nombres cuando escribimos o seleccionamos la función OMail.OriginatorDeliveryReportRequested, Navision nos copia OMail.OriginatorDeliveryReportRequest, con lo que cada vez que entramos en la Code Unit y modificamos código nos da error de que no existe la variable OriginatorDeliveryReportRequest porque no reconoce ese nombre y debemos de poner ‘ed’ al final del nombre de la función cada vez.
