En este articulo se tratará de mostrar como enviar un correo electrónico desde Navision 4.0 S.P 2 con un adjunto. El articulo esta basado en otro de la Web www.tipsdbit.com en el que se explica el proceso de envío de un correo sin adjuntos.
Tras esta pequeña introducción pasamos a la explicación:
- Definimos las variables necesarias:
- Variable objApp del tipo ‘Microsoft Outlook 11.0 Object Library’.Application
- Variable objMail del tipo ‘Microsoft Outlook 11.0 Object Library’.MailItem
- Variable objAtach del tipo ‘Microsoft Outlook 11.0 Object Library’.Attachments
Nos quedara algo como esto:
- El código:
//Creamos la aplicaciones
IFISCLEAR(objApp) THENCREATE(objApp);
//Creamos el un objeto de tipo mail y otro del tipo attach
objMail := objApp.CreateItem(0);
objAtach := objMail.Attachments();
//Asignamos las propiedades del correo
objMail.»To»(Direccion/es de correo de destino);
objMail.Subject(Titulo del correo);
objMail.HTMLBody(Cuerpo del mensaje);
origen:= Ruta al archivo adjunto;
objAtach.Add(origen); // Aqui es cuando se adjunta el archivo con el correo
objMail.Display(1); // Con esto mostramos el correo para asegurarnos de que todo esta correcto ante de enviarlo
- Ahora solo falta colocar este código en el trigger onPush() de algún botón o en algún report.
Cuando inicializamos la instancia del objeto objMail utilizamos la función CreateItem(0), esto es asi por que los objetos creados con id 0 seran correos electronicos. A continuación os facilito la lista con los id’s posibles de objetos de Outlook:
- Id 0 = Mail
- Id 1 = Appointment
- Id 2 = Contact
- Id 3 = Task
- Id 4 = Journal
- Id 5 = Note
- Id 6 = Past
- Id 7 = Distlist
Espero que este mini-howto os sea de utilidad.