| Pregunta: | 24159 - ENVIAR MAIL DESDE PB PASANDO COMO PARáMETRO LA DIRECCION |
| Autor: | Jose Gasparini |
| Deseo enviar un mail desde un programa, pero no quiero que cuando desee enviar tenga que elegir desde la libreta de direcciones, quisiera pasar yo mismo la dirección del mail y que el programa envie directamente.
Desde ya muchas gracias. | |
| Respuesta: | José Gasparini |
| Ya puede solucionar y es de la siguiente manera
mailSession sesion_mail mailReturnCode codigo_retorno mailMessage mensaje_mail sesion_mail = create mailSession /*Intenta la conexcion mail*/ codigo_retorno = sesion_mail.mailLogon(mailNewSession! ) If codigo_retorno <> mailReturnSuccess! Then /*Si existe algun error en la conexcion esta se cancela*/ MessageBox ("Mail Logon", string(codigo_retorno)) codigo_retorno = sesion_mail.mailLogoff() If codigo_retorno <> mailReturnSuccess! Then MessageBox ("Mail Logoff", 'Inserte un Usuario y Password Correctos' ) return estado End If destroy sesion_mail End If mensaje_mail.Subject = 'Titulo del mail' mensaje_mail.notetext = 'Texto del mail' mensaje_mail.recipient[1].name = '[email protected]' codigo_retorno = sesion_mail.mailResolveRecipient(mensaje_mail.Recipient[1].Name) codigo_retorno = sesion_mail.mailsend(mensaje_mail) | |