Mailing en Word con un pdf adjunto

Hola,

Existe una solución alternativa que se puede aplicar si el número de correos electrónicos no es muy grande. Esta solución es un tratamiento manual que requiere un poco de tiempo.

El primer paso consiste en poner Outlook "fuera de línea".
Luego, se realiza el envío de correos a partir de Word utilizando el modo de combinación de correspondencia (procedimiento normal para hacer un envío de correos en Word).
Todos los correos electrónicos así personalizados quedarán bloqueados en la bandeja de salida.
Simplemente hay que abrirlos uno por uno, adjuntar los archivos que se deseen, validar el correo electrónico con "enviar".
Cuando todos sus correos electrónicos estén modificados con los archivos adjuntos y en espera de envío, se reconecta Outlook y los correos electrónicos se envían.

Hola

Desde hace varios meses me planteo el mismo problema.

Lo he resuelto por ahora utilizando el asistente de correo de Writer de Open Office, que ofrece la posibilidad de enviar el documento fusionado como archivo adjunto en formato Open Office, Word, HTML o PDF.

También estoy buscando la misma solución directamente con Word, ya que el envío masivo con Open Office sigue siendo más complicado que con Word.

Gracias

¿Quieres que las cartas de mailings en Word sean PDFs para poder enviarlas por correo?
--
Recuerden marcar sus mensajes como resueltos cuando lo estén.
Para aquellos que son anónimos, piensen en avisar a los moderadores con el triángulo amarillo que su tema está resuelto.
Gracias

Super, ¡gracias!

También he hecho algunas pequeñas modificaciones a la macro VB (mi Outlook no la aceptaba):

Public publipostajePJ As Variant
Sub setPublipostaje()
On Error Resume Next
If publipostajePJ(0) = "" Then publipostajePJ = Array("fin", "fin", "fin", "fin", "fin", "fin", "fin", "fin", "fin", "fin")
While publipostajePJ(i) <> "fin"
contenido = contenido & vbCr & publipostajePJ(i)
i = i + 1
Wend
If contenido = "" Then contenido = "vacío"
modificar = MsgBox(contenido & vbCr & "¿Desea elegir un archivo para adjuntar?", vbYesNo, "Archivos configurados")
If modificar = vbYes Then
For i = 0 To 9
If i > 0 Then encore = MsgBox("¿Otro?", vbYesNo)
quest:
If encore <> vbNo Then
PJ = InputBox("¿Ubicación del archivo adjunto al PUBLIPOSTAJE?", "Configuración del PUBLIPOSTAJE para la sesión", publipostajePJ(i))
MsgBox "Su publipostaje debe incluir el término :" & vbCr & "PUBLIPOSTAJE" & vbCr & "en el asunto." & vbCr & "Este será retirado al enviar"
If "" = Dir(PJ, vbNormal) Then GoTo quest
publipostajePJ(i) = PJ
Else: Exit For
End If
Next i
End If
End Sub

¡Hola a todos,
Gracias por sus publicaciones, ¡me han ayudado mucho hoy! ¡Larga vida a los participantes de CCM! ¡Que tengan un buen día!

Hola a todos,

¡Muchas gracias por sus indicaciones!

Tengo un pequeño problema en la última etapa...

He puesto correctamente la ruta de acceso; la ventana que advierte que "la palabra CORREO MASIVO debe aparecer en el asunto" se muestra correctamente.

Sin embargo, cuando hago clic en OK, me devuelve a la ventana anterior, es decir, ingresar la ruta de acceso del archivo, y así se repite en bucle...

¿Alguien tendría una explicación para esto?

¡Gracias de antemano y que tengan un buen día!

Super tutorial.
Gracias.

Todo funcionó, pero al día siguiente, mensaje de error:
"Las macros para este proyecto están desactivadas".

¿Cómo activar la macro? (que está presente en la lista de macros)

Gracias.

Hola,

No hay una solución nativa de Word para realizar un mail merge con archivo adjunto. La única solución existente es enviar el texto del correo como archivo adjunto.

Dicho esto, con una macro de Outlook, se puede lograr. La macro fue escrita por Oliv' para la FAQ de Outlook, y he explicado todo el funcionamiento aquí:
http://faqword.fr/...

Sigue bien el procedimiento y no deberías tener problemas.

m@rina
--
Innecesario que me hagas preguntas por MP... 
Definitivamente no respondo ... El foro está hecho para eso.

Hola,

Solo una pequeña precisión sobre la macro VB en Outlook; funciona bien en Office 2010. Solo es necesario corregir las siguientes dos líneas:

PJ = InputBox("¿Ubicación del archivo adjunto al ENVÍO MASIVO?", "Configuración del ENVÍO MASIVO para la sesión", publipostagePJ(i))

MsgBox "Su envío masivo debe incluir el término:" & vbCr & "ENVÍO MASIVO" & vbCr & "en el asunto." & vbCr & "Este será retirado al enviar"

que deben estar en la misma línea; solo con un espacio de separación.

Buena mailing.

Olivier