Visual Basic - mandar emails desde aplic. VBasic

Life is soft - evento anual de software empresarial
 
Vista:

mandar emails desde aplic. VBasic

Publicado por susana deledda (9 intervenciones) el 23/08/2005 17:01:38
------------------------------------------------------
hola amigos del foro
necesito manadar emial masivos desde mi aplicacion de Vb,
en una tabla tengo los datos de los clientes ( direccion de email)
y en una caja de texto al cuerpo del email.
Como puedo combinar el outllok con vb para que me genere todos
esos email..??
Es mas se puede porner una lista de distribucion creada en el
outllok
Si alguien yab lo hizo, me puede contar como
desde ya muchas gracias

saludos a todos SUSANA
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:mandar emails desde aplic. VBasic

Publicado por peibol (14 intervenciones) el 24/08/2005 10:12:54
Yo uso una dll que hay por Internet se llama sendmail.dll. Carga la DLL en Visual Basic. Se llama SMTP sen mail for Visual Basic 6.0. (Proyecto\Referencias)

Una vez eso, puedes construirte una clase con lo siguiente

Private WithEvents Mensaje As vbSendMail.clsSendMail

Private Sub EnviarMensaje(ByVal Mensaje_Mail As String)

Set Mensaje = New vbSendMail.clsSendMail

' Asignar el HOST
Mensaje.SMTPHost = host.correo

'Asignar la dirección de origen
Mensaje.From = [email protected]
Mensaje.FromDisplayName = [email protected]igen
Mensaje.ReplyToAddress = [email protected]

'Asignar las direcciones destino separados por ";"
Mensaje.Recipient = [email protected];[email protected];...
Mensaje.RecipientDisplayName = [email protected];[email protected];...

Mensaje.Subject = "Aquí va el asunto del mensaje"
Mensaje.Message = "Aqui va el mensaje" (yo le paso una variable con el mensaje que quiero que salga (Mensaje_Mail ))

' Enviar el mensaje
Mensaje.Send
' Liberar la memoria asignada a los objetos
Set Mensaje = Nothing

Exit Sub

TratarError:
' Liberar la memoria asignada a los objetos
Set Mensaje = Nothing

End Sub

Espero que te sirva de ayuda

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar