Visual Basic - mandar emails desde aplic. VBasic

------------------------------------------------------
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

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 = cuentacorreo@origen
Mensaje.FromDisplayName = cuentacorreo@origen
Mensaje.ReplyToAddress = cuentacorreo@origen

'Asignar las direcciones destino separados por ";"
Mensaje.Recipient = cuentacorreo@destino1;cuentacorreo@destin2;...
Mensaje.RecipientDisplayName = cuentacorreo@destino1;cuentacorreo@destin2;...

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