Enviar mail desde power builder
¿Cómo se pede enviar mail desde powerbuilder 10.5? ¿Usando sql server 2005 express?
Te paso el código que conseguí pero no logro hacerlo funcionar
/*Enviar por correo el archivo que se genero en excel */
MailSession mSes, m
MailReturnCode mRet
MailMessage mMsg
MailFileDescription mAttach
// Create a mail session
//m.mailHandle()
mSes = create mailSession
// Log on to the session
mRet = mSes.mailLogon()
if mRet <> mailReturnSuccess! Then
MessageBox("Mail", 'Logon failed, 1.')
//RETURN
end if
//Preparando la estructura del MailMessage
//mMsg.Recipient[1].name = ' '
//mMsg.Recipient[2].name = ' '
String ls_e_mail
ls_e_mail = ' '
mMsg.Recipient[1].name = ls_e_mail
mMsg.Subject = "Articulos Cancelados"
//mMsg.NoteText = mle_1.text//""
//Archivo a enviar
mAttach.FileType = mailAttach!
mAttach.PathName = ''//'C:\Correos\solicitus_de_proveedores_canceladas.x...
mAttach.FileName = 'solicitus_de_proveedores_canceladas.xls'
mAttach.Position = len(mMsg.NoteText) -1
mMsg.AttachmentFile[1] = mAttach
//crea el mensage del mail (con esto manda abre solo la libreta de direciones)
//mRet = mSes.mailAddress(mMsg)
//
//IF mRet <> mailReturnSuccess! THEN
// MessageBox("Mail", 'Addressing failed, 2.')
// //RETURN
//END IF
// Send the mail
mRet = mSes.mailSend(mMsg)
if mRet <> mailReturnSuccess! Then
MessageBox("Mail", 'Sending mail failed, 3.')
//RETURN
end if
MSes. MailLogoff()
Destroy mSes
/* Termina de enviar el correo */
¿Cómo se puede enviar mail desde powerbuilder sin que se abra el outlook?
¿Si existe alguna .ocx de donde puedo bajarla?
El error me da en esta parte del código
if mRet <> mailReturnSuccess! Then
MessageBox("Mail", 'Sending mail failed, 3.')
Te paso el código que conseguí pero no logro hacerlo funcionar
/*Enviar por correo el archivo que se genero en excel */
MailSession mSes, m
MailReturnCode mRet
MailMessage mMsg
MailFileDescription mAttach
// Create a mail session
//m.mailHandle()
mSes = create mailSession
// Log on to the session
mRet = mSes.mailLogon()
if mRet <> mailReturnSuccess! Then
MessageBox("Mail", 'Logon failed, 1.')
//RETURN
end if
//Preparando la estructura del MailMessage
//mMsg.Recipient[1].name = ' '
//mMsg.Recipient[2].name = ' '
String ls_e_mail
ls_e_mail = ' '
mMsg.Recipient[1].name = ls_e_mail
mMsg.Subject = "Articulos Cancelados"
//mMsg.NoteText = mle_1.text//""
//Archivo a enviar
mAttach.FileType = mailAttach!
mAttach.PathName = ''//'C:\Correos\solicitus_de_proveedores_canceladas.x...
mAttach.FileName = 'solicitus_de_proveedores_canceladas.xls'
mAttach.Position = len(mMsg.NoteText) -1
mMsg.AttachmentFile[1] = mAttach
//crea el mensage del mail (con esto manda abre solo la libreta de direciones)
//mRet = mSes.mailAddress(mMsg)
//
//IF mRet <> mailReturnSuccess! THEN
// MessageBox("Mail", 'Addressing failed, 2.')
// //RETURN
//END IF
// Send the mail
mRet = mSes.mailSend(mMsg)
if mRet <> mailReturnSuccess! Then
MessageBox("Mail", 'Sending mail failed, 3.')
//RETURN
end if
MSes. MailLogoff()
Destroy mSes
/* Termina de enviar el correo */
¿Cómo se puede enviar mail desde powerbuilder sin que se abra el outlook?
¿Si existe alguna .ocx de donde puedo bajarla?
El error me da en esta parte del código
if mRet <> mailReturnSuccess! Then
MessageBox("Mail", 'Sending mail failed, 3.')
1 Respuesta
Respuesta de carloscharly
1
cual es el link - Gilmar Chavez