Power Builder - Enviar Correo desde PB

Hola a todos quisiera enviar correos electronicos desde PB (la version q uso es 8.0) directamente sin tener que configurarlo con el Outlook, si alguien tiene algun codigo o algun ejemplo me lo puede enviar a mi correo [email protected]

Gracias de antemano

Saludos
Lima - Peru

Hola

Aqui tienes un ejemplo usando mailsession
Si deseas busca en este foro y encontraras
tambien mucho sobre el tema

Saludos


//----------------------------------------------------
// -------------------Begin E Mail -------------------
//----------------------------------------------------

If Recipient = "" Then
MessageBox("E Mail ", " Debe Seleccionar una direccion de E Mail ")
Goto Fin
end if

Acepto = MessageBox("Enviar E Mail" ,"A: " +Recipient+ " Desde : " + Path_Origen + a_copiar ,Exclamation!, OKCancel!, 2)
If Acepto = 2 Then Goto fin
st_origencopy.text=Path_Origen + a_copiar
st_destino.Text = Recipient

Integer atach

mailSession mSes
mailReturnCode mRet
mailMessage mMsg
mailFileDescription mObject

// Create a mail session
mSes = create mailSession

// Log on to the session

// Este caso uso la sesion de correo de acuerdo al Usuario
// mRet = mSes.mailLogon ( mailNewSession! ) inicia una nueva session
Choose Case ls_Username
Case "Usuario1"
mRet = mSes.mailLogon("Usuario1","")
Case "Usuario2"
mRet = mSes.mailLogon("Usuario2","")
Case "Usuairo3"
mRet = mSes.mailLogon("Usuario3","")
Case Else
MessageBox("Envio por E Mail","No se encotró su Casilla")
Return
End Choose

IF mRet <> mailReturnSuccess! THEN
MessageBox("Mail", 'Logon Fallido.')
RETURN
END IF

// Populate the mailMessage structure
mObject.FileType = mailAttach!
mObject.Filename = A_Copiar
mObject.Pathname = Path_Origen + a_copiar
mMsg.Subject = "Rendiciones"
mMsg.NoteText = 'Adjunto archivo de Rendiciones'
mMsg.AttachmentFile[1] = mObject
mMsg.Recipient[1].name = Recipient

// Send the mail
mRet = mSes.mailSend(mMsg)

IF mRet <> mailReturnSuccess! THEN
MessageBox("Envio de Mail", 'Mail no Enviado ')
RETURN
elseif mRet = mailReturnSuccess! THEN
MessageBox("Envio de Mail", 'Mail Enviado Exitosamnete')

//----------------------------------------------------
// -------------------End E Mail -------------------
//----------------------------------------------------