Enviar Email Usando SMTP de OUTLOOK

Enviar Correo desde Power Builder

Codigo:

//declaracion de variables necesarios 

mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mObject


// Crea una sesion de correo
mSes = create mailSession

// Iniciamos sesion
mRet = mSes.mailLogon(mailNewSession!)

//Si retorna negativo manda mensaje fallido
IF mRet <> mailReturnSuccess! THEN
MessageBox("Correo", 'Logueo Fallido.')
RETURN
END IF


string recipiente1="angelo_lip_545@hotmail.com"

// Estructura del correo:
//subject es el asunto
mMsg.Subject = 'PRUEBA DE CORREO DESDE POWER BUILDER'
//notetext es el cuerpo del mensaje
mMsg.NoteText = '02/09/2016 - CORREO ENVIADO EXITOSAMENTE'

//recipient es correo de envio del mensaje
mMsg.Recipient[1].name = 'angelo_lip_545@hotmail.com'
mMsg.Recipient[2].name = 'gchavez@gcmsystem.com'


// Enviar Mensaje
mRet = mSes.mailSend(mMsg)

//Si retorna negativo o cero manda mensaje error
IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail Send", 'Mail not sent')
RETURN
END IF

//salir sesion
mSes.mailLogoff()
//destruimos la sesion
DESTROY mSes

NOTA:

Recordar que el outlook tiene que estar instalado , configurado y tener una cuenta vigente
ya sea corporativa u otro