Envio Mail mediante X++

Escrito por Administrador. Posted in X++

A continuación os dejo un código para poder enviar correos electrónicos mediante Dynamics Ax 2009, espero que os sirva de ayuda ;)

En caso que os dé un error al enviar el mail, podéis consultar la siguiente lista de errores, para detectar que está pasando

SysEmailParameters sysEmailParameters = SysEmailParameters::find();
InteropPermission  interopPermission;
SysMailer            sysMailer;
;
 
//Inicialización de los parámetros de correo electrónico.
interopPermission = new InteropPermission(InteropKind::ComInterop);
interopPermission.assert();
sysMailer = new SysMailer();
 
if(sysEmailParameters.smtpRelayServerName)
{
 sysMailer.SMTPRelayServer(sysEmailParameters.smtpRelayServerName,
 sysEmailParameters.smtpPortNumber,
 sysEmailParameters.smtpUserName,
 SysEmailParameters::password(),
 sysEmailParameters.ntlm);
}
else
{
 sysMailer.SMTPRelayServer(sysEmailParameters.smtpServerIPAddress,
 sysEmailParameters.smtpPortNumber,
 sysEmailParameters.smtpUserName,
 SysEmailParameters::password(),
 sysEmailParameters.ntlm);
}
 
//Montamos el Mail
sysMailer.htmlBody("Mensaje de prueba :)");
sysMailer.subject("Test 1");
sysMailer.fromAddress("dirección mail origen");
sysMailer.tos().appendAddress("dirección mail destino");
 
//Documento Adjunto
sysMailer.attachments().add("Ruta y nombre dle fichero adjunto");
 
sysMailer.sendMail();