Para enviar un email desde Navision mediante CAL, utilizaremos el siguiente código:
Hay que definir la variable objApp como Atomation asignándola a 'Microsoft Outlook 11.0 Object Library'.Application y la variable objMail como Atomation asignándola a 'Microsoft Outlook 11.0 Object Library'.MailItem
//Create application
IF ISCLEAR(objApp) THEN CREATE(objApp);
//Create mail item
objMail := objApp.CreateItem(0);
//Set properties
objMail."To"('joseppages@hotmail.com');
objMail.Subject('Mail from Navision');
objMail.Body('This is a mail send from Navision.');
//Uncomment for display email
//objMail.Display();
//Send mail
objMail.Send();
Evidentemente que a través del objeto objMail tenemos otras propiedades que podemos utilizar a nuestra conveniencia, como CC o Importance.
como se adjunta un archivo al correo? Gracias
ResponderEliminarSi creas una variable(varAttach) de tipo Automation Microsoft Outlook 12.0 Object Library.Attachments y la inicializas en el código con la línea:
ResponderEliminarvarAttach := objMail.Attachments();
ya podrás adjuntar archivos haciendo:
varAttach.Add([RUTA_DEL_ARCHIVO]);
Para que funciones el objeto Automation Microsoft Outlook tienes que tener instalado el Outlook en el equipo.
ResponderEliminar¿No hay una manera de mandar correo sin pasar por outlook?
oye si envio mas de 1 correo me manda un error del archivo extend.dat sabes como se puede solucionar esto
ResponderEliminarCOMO DIGO Q SI LA varAttach VARIABLE ESTA VACIA QUE COMANDO O PROPIEDAD DE ESTA SE UTILIZA
ResponderEliminar