Programación General > Visual Basic 6.0 e inferiores
Re: enviar correo electronico
bea:
Quisiera saber alguna manera de enviar correos electronicos en visual basic sin que se me abra el cliente de correo electronico y pudiendo escoger la direccion de correo desde la que quiero mandar el mensaje
Ya he probado con la API y se me abre el outlook.
muchas gracias
ROBER.29:
Para enviar correos utiliza la libreria cdonts.dll. Creo que viene por defecto en windows sino es así dimelo y te la envio.
Tienes que hacer lo siguiente:
1º/ Añade la referencia Microsoft CDO for NTS 1.2 Library (sino te aparece es que no tienes la libreria cdonts.dll en la carpeta system32 de windows y tendrías que copiarla y registrarla con regsvr32 cdonts.dll).
2º/ Añade las siguiente líneas de código:
Private Sub cmdEnviar_Click ()
Dim oMail As New CDONTS.NewMail
Dim Sender As String
Dim Recipient As String
Dim titulo As String
Dim Texto As String
oMail.BodyFormat = 0 'Indicas el formato del cuerpo
oMail.MailFormat = 0 'Indicas el formato del email
oMail.AttachFile Ficheros 'Aquí agregas los ficheros que desees al email
Sender = "GARCI_20@hotmail.com" ' Email de quien envia
Recipient = "GARCI_20@hotmail.com" ' Email de destino
titulo = "Prueba" 'Título del email
Texto = "<html><body>Hola</body></html>"
'Envio el correo
oMail.Send Sender, Recipient, titulo, Texto
'Destruyo el objeto y libero memoria
Set oMail = Nothing
End Sub
bea:
Oye que he buscado cdonts.dll y no lo encuentro en el ordenador. Si puedes mandarmelo te lo agradezco
Muchas gracias paisano
ROBER.29:
Dame tu correo y te la envio. Ocupa 154 kb comprimida.
Saludos.
bea:
Mandamela a beatrizmun1@hotmail.com
muchas gracias
Navegación
[#] Página Siguiente
Ir a la versión completa