Forums Últimos mensajes - Powered by IBM
 

Macro para enviar correos desde word usando datos(destinatarios)hoja excel

19/06/2012 - 23:25 por carlosnieto | Informe spam
¡ Hola !
Buenos días

Estoy tratando de enviar unos correos desde word usando una base de excel, esta es la macro
For I = 1 To 11

"aqui va el resto de la macro"
Dim outl As Object
Dim Mail As Object
pdf = "C:\Users\cnietob\Documents\Consecutivo 0000" & I & ".pdf"

' Mail
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "prenomina Junio 2012"
Mail.Body = "Cordial saludo Adjunto al presente el desprendible de la prenomina de Junio 2012"
Mail.To = "D:\LISTADOS\Bases_correos\[base_correos_temporales.xls]Hoja1!$B$" & I
Mail.Attachments.Add pdf
Mail.Display

Next I
El macro copia hoja por oja del documento en word y lo guarda como pdf, la idea es enviar esos pdfs adjuntos cada uno a un destinatario diferente, los destinatarios estan en una hoja de excel en las celdas b1 hasta b11, pero como esta el macro, abre el outlook y en el campo para me pone toda la ruta PARA: "D:\LISTADOS\Bases_correos\[base_correos_temporales.xls]Hoja1!$B$" & I.

Agradezco la atencion y las soluciones que me puedan prestar.
 

Leer las respuestas

#1 Urbano Cabrera
28/06/2012 - 22:55 | Informe spam
El martes, 19 de junio de 2012 14:23:59 UTC-7, carlosnieto escribió:
¡ Hola !
Buenos días

Estoy tratando de enviar unos correos desde word usando una base de excel, esta
es la macro
For I = 1 To 11

"aqui va el resto de la macro"
Dim outl As Object
Dim Mail As Object
pdf = "C:UserscnietobDocumentsConsecutivo 0000" & I &
".pdf"

' Mail
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = "prenomina Junio 2012"
Mail.Body = "Cordial saludo Adjunto al presente el desprendible de la
prenomina de Junio 2012"
Mail.To > "D:LISTADOSBases_correos[base_correos_temporales.xls]Hoja1!$B$" &
I
Mail.Attachments.Add pdf
Mail.Display

Next I
El macro copia hoja por oja del documento en word y lo guarda como pdf, la idea
es enviar esos pdfs adjuntos cada uno a un destinatario diferente, los
destinatarios estan en una hoja de excel en las celdas b1 hasta b11, pero como
esta el macro, abre el outlook y en el campo para me pone toda la ruta PARA:
"D:LISTADOSBases_correos[base_correos_temporales.xls]Hoja1!$B$" &
I.

Agradezco la atencion y las soluciones que me puedan prestar.

Preguntas similares