Como enviar Correo a varios destinatarios a la vez en copia oculta
Lo que tengo a continuación es un código el cual en un listbox filtra por determinada palabra y me muestra los correos de los proveedores que tengo, lo que quiero es enviar a dichos proveedores que me muestra el listbox un correo pero masivo a todos a la vez en copia oculta,
Código usado:
If ListBox1.ListCount = 0 Then
MsgBox "No hay correos a enviar"
Exit Sub
End If
'
For i = 0 To ListBox1.ListCount - 1
para = ListBox1.List(i, 4)
correo para
Next
Este código me crea un correo por cada uno, pero no he logrado que sea para todos masivamente.
1 respuesta
Dante como estas, tu me ayudaste un tiempo atras con esto, mira el codigo:
Sub correo(para)
nombre = "Jhonatan González Ricaurte"
cargo = "Pricing specialist"
ext = "238"
e_mail = "[email protected]"
'
bdy = "<p style='font-family:calibri;font-size:16'>" & _
"Hi<br>" & _
"<br>Could you please assist me with the following quotation?" & _
"<br>FROM:" & _
"<br>TO:" & _
"<br>COMMODIDY:" & _
"<br>CLASS:" & _
"<br>N.PIECES:" & _
"<br>DIMENSIONS:" & _
"<br>Total Weight:<br> <br>" & _
"<br>THANKS!<br><br>" & _
"<br>Saludos/Regards, <br>" & _
"<br>" & nombre & _
"<br>" & cargo & _
"<br>Logistics Freight Solutions " & _
"<br>Phone: 305 909 7870 ext: " & ext & _
"<br>E-mail: " & e_mail & _
"<br>web: www.lfs -inc.com" & _
"</p><img src='C:\Users\USER\Desktop\Jhony\Imagenes\FirmaLogo.PNG'>"
'****************************************************************************************************
Set dam = CreateObject("outlook.application").createitem(0)
With dam
.To = para
.Subject = ""
.BodyFormat = 2
.HTMLBody = bdy
.Display
End With
Set dam = Nothing
End Sub
Lo que quiero:
mira que al seleccionar la zona 0, me salen ciertos proveedores los cuales tienen cada uno un correo al cual contactarlos, al darle click al boton enviar correo origen, lo que hace es crearme un correo para cada uno, pero yo quiero enviar solo un correo para todos no como en este caso que serian 6 correos para los proveedores filtrados.
Así quedaría el código para seleccionar los correos:
Private Sub CommandButton3_Click() 'Por.Dante Amor 'Enviar correo Origen If ListBox1.ListCount = 0 Then MsgBox "No hay correos a enviar" Exit Sub End If ' para = "" For i = 0 To ListBox1.ListCount - 1 para = para & ";" & ListBox1.List(i, 4) Next If para <> "" Then correo para End If End Sub
Ahora, para enviar los correo en copia oculta, debe quedar así, lo que agregué fue esta línea:
.Bcc = para
Ahora la macro tiene estas 2 líneas:
.To = para
.Bcc = para
No sé en dónde vas a poner los correo en Para: o en Copia oculta, si los vas a poner en Copia Oculta, entonces tienes que cambiar esta línea:
.To = para? aquí tienes que poner un correo destinatario.
Sub correo(para) 'Por.Dante Amor nombre = "Jhonatan González Ricaurte" cargo = "Pricing specialist" ext = "238" e_mail = "[email protected]" ' bdy = "<p style='font-family:calibri;font-size:16'>" & _ "Hi<br>" & _ "<br>Could you please assist me with the following quotation?" & _ "<br>FROM:" & _ "<br>TO:" & _ "<br>COMMODIDY:" & _ "<br>CLASS:" & _ "<br>N.PIECES:" & _ "<br>DIMENSIONS:" & _ "<br>Total Weight:<br> <br>" & _ "<br>THANKS!<br><br>" & _ "<br>Saludos/Regards, <br>" & _ "<br>" & nombre & _ "<br>" & cargo & _ "<br>Logistics Freight Solutions " & _ "<br>Phone: 305 909 7870 ext: " & ext & _ "<br>E-mail: " & e_mail & _ "<br>web: www.lfs -inc.com" & _ "</p><img src='C:\Users\USER\Desktop\Jhony\Imagenes\FirmaLogo.PNG'>" ' Set dam = CreateObject("outlook.application").createitem(0) With dam .To = para .Bcc = para .Subject = "" .BodyFormat = 2 .HTMLBody = bdy .Display End With Set dam = Nothing End Sub
S a l u d o s . D a n t e A m o r
Recuerda valorar la respuesta.
