Envío de correos utilizando GeneXus [SMTP].

&MailRecipient.Address = ‘Mail destinatario’
&MailRecipient.Name = ‘Nombre destinatario’
&MailMessage.To.Clear()
&MailMessage.To.Add(&MailRecipient)
&MailMessage.Subject = ‘Prueba Envio de correo’
&MailMessage.Text = ‘Hola Mundo!!’
&MailMessage.HTMLText = ‘<b> HOLA MUNDO!! </b>’

&Attach = ‘C:\Archivos\Adjunto\HolaMundo.pdf’
&MailMessage.Attachments.Add(&Attach)
---------------------------------------------------------------------------------------------------------------
&SMTPSession.Host = ‘smtp.gmail.com’ //nombre Server o IP
&SMTPSession.Port = 465 //puerto, puede ser en ocasiones el 587 ó 25

&SMTPSession.Sender.Name = ‘Nombre remitente’
&SMTPSession.Sender.Address = ‘Correo remitente’
&SMTPSession.Authentication = 1&SMTPSession.Secure = 1 //Verificar que el server soporte conexiones seguras
&SMTPSession.UserName = ‘Correo remitente o nombre de usuario’
&SMTPSession.Password = ‘Password’
&SMTPSession.Login()
---------------------------------------------------------------------------------------------------------------
//Código de error al iniciar sesión
msg(str(&SMTPSession.ErrCode) + ‘ ‘+ &SMTPSession.ErrDescription)

&SMTPSession.Send(&MailMessage)

//Código de error al enviar mail
msg(str(&SMTPSession.ErrCode) + ‘ ‘+ &SMTPSession.ErrDescription)

&SMTPSession.Logout()