Visual Basic - Enviar E-Mail desde VB a Varios Destinos

Life is soft - evento anual de software empresarial
   
Vista:

Enviar E-Mail desde VB a Varios Destinos

Publicado por Christian Carter (23 intervenciones) el 06/04/2009 13:03:52
Estimados:

tengo el siguiente codigo para poder enviar E-Mail desde VB6 utilizando la referencia a Outlock 11, pero tengo 2 dudas.
1) como enviar a varios destinos el mismo correo, he probado colocando las direcciones de correo separadas por ; (punto y coma), pero solo lo envia a la primera de las direcciones escritas.

2) como agregar al pie la firma predeterminada de Outlock para asi poder personalizar el mensaje, o solo se puede agregar en el .body?

bueno les dejo el codigo para su ayuda.
gracias de antemano
'*********************************************
Dim objOL As Outlook.Application
Dim msg As Outlook.MailItem

Set objOL = New Outlook.Application
Set msg = objOL.CreateItem(olMailItem)

With msg
'Destinatario(s) del Correo
.To = text1.text
.Subject = "Título del email"
.Body = text1.text & vbcr & text2.text
' lo siguiente por si quieres adjuntar cualquier archivo
.Attachments.Add "c:UnArchivo1.jpg"
' Envia el correo
.Send
End With

Set objOL = Nothing
Set msg = Nothing
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:Enviar E-Mail desde VB a Varios Destinos

Publicado por Jesus (22 intervenciones) el 08/04/2009 07:43:21
Hola.
No se como se hace lo que pides, pero he copiado y codigo y me viene muy bien. Solo tengo dos preguntas. ¿Como quito las preguntas que hace el programa en ejecucion? (la primera es el tiempo que lo utilizare y la segunda que puede ser un viros). Y la segunda: tengo varias cuentas de correo electronico, ¿Como indico desde que cuenta quiero enviar el correo?

Muchas gracias
Un saludo
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

RE:Enviar E-Mail desde VB a Varios Destinos

Publicado por Andrés Rovira Frez (1 intervención) el 30/10/2009 16:17:23
Estimado, quizás ya resolviste el problema, de todas maneras dejo aquí la sentencia para enviar el correo a más de 1 destinatario:

Dim objOL As New Outlook.Application
Dim objMail As MailItem

Set objOL = New Outlook.Application
Set objMail = objOL.CreateItem(olMailItem)

With objMail
.To = "destinatario1;destinatario2;destinatario3;etc"
'aquí puedes poner cuantos destinatarios quieras
'puedes utilizar ".Cc" en caso de enviar con copia a más gente o bien usar el ".Cco" que son las copias ocultas
.Subject = "Adjuntar archivo"
'encabezado del correo
.Body = "Estimados, se adjunta el archivo de referencia. "
'Mensaje a enviar
.Attachments.Add ("D:\Archivo adjunto.xls")
'puedes adjuntar archivos
.Send
End With

Set objMail = Nothing
Set objOL = Nothing
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