mailmerge met pdf-bijlage

[Noordhoekie]

Vanuit Word start ik een mailmerge voor verzending van een bericht via email. De adressen staan in een excelbestand. De tekst komt in het emailbericht zelf. Nu wil ik ook een pfd-bijlage toevoegen. Dit is voor iedereen dezelfde bijlage. Hoe kan ik dit bereiken.

Alvast bedankt!

Inez

 

[TeuGem]

Hoi,

Gaat moeilijk worden.
Denk dat je beter de gegevens in Excel kunt importeren in Contactpersonen van Outlook.
Dan lukt het wel.

 

[Noordhoekie]

Dank je voor je reactie.

Ik ben er achter dat wat ik wil niet kan met de standaard functionaliteit. Ik heb inmiddels een andere oplossing gevonden.

Inez

 

[Prozac1970]

Ben ik stiekumpjes benieuwd hoe je het hebt opgelost...

 

[TeuGem]

Dank je voor je reactie.

Ik ben er achter dat wat ik wil niet kan met de standaard functionaliteit. Ik heb inmiddels een andere oplossing gevonden.

Inez

Hoi,

Ja, ik ben ook wel benieuwd naar je 'andere' oplossing.

 

[snb]

Kun je ook zelf bedenken:

Zend eerst de samengevoegde bestanden als email bericht met:

With ActiveDocument.MailMerge
  .Destination = wdSendToEmail
  .MailAsAttachment = True
  .MailAddressFieldName = "emailadres"
  .MailSubject = "testbericht"
  .SuppressBlankLines = True
  .Execute True
End With

Dan staan ze in Outlook in de conceptenmap.
Lees ze daar uit en voeg er nog een PDF-bijlage aan toe met:.

For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).items
   If it.Subject = "testbericht" Then
     it.Attachments.Add "C:\test.pdf"
     it.Send
   End If
Next

De hele macro wordt dan:

Sub emailzending_pdf()
  With ActiveDocument.MailMerge
    .Destination = wdSendToEmail
    .MailAsAttachment = True
    .MailAddressFieldName = "emailadres"
    .MailSubject = "testbericht"
    .SuppressBlankLines = True
    .Execute True
  End With

  For Each it In CreateObject("Outlook.application").GetNamespace("MAPI").GetDefaultFolder(16).items
    If it.Subject = "testbericht" Then
      it.Attachments.Add "C:\test.pdf"
      it.Send
    End If
  Next
End Sub