Fomulieren in Excel samenvoegen in PDF en mailen

[Jeneroy]

Allen,

Kan iemand mij helpen.
Ik gebruik een macro om formulieren in Excel om te zetten naar PDF. Dat werkt prima. Maar ik moet steeds deze handmatig samenvoegen en mailen.

Is het mogelijk met VBA om de formulieren in blad “Formulier” samen te voegen in PDF en deze direct mailen naar emailadres in Cel H1.

Het liefst wil ik dat de formulieren niet opgeslagen worden, maar direct gemaild worden en dan samengevoegd.

Ik hoop dat iemand mij kan helpen.

Mijn dank is groot.

 

[SjonR]

ik zie maar 1 formulier

 

[JEC.]

Bvb

Sub jvr()
   Filenaam = "U:\Desktop\Formulier3.pdf"
   Range("B3:H31").ExportAsFixedFormat xlTypePDF, Filenaam
   
    With CreateObject("outlook.application").createitem(0)
       .to = [H1]
       .Subject = "test"
       .Body = "Dit is een test"
       .attachments.Add Filenaam
       .display    [COLOR="#008000"]'.send om gelijk te verzenden[/COLOR]
    End With
    
    Kill Filenaam
End Sub

 

[edmoor]

Bedoel je zoiets?
Bekijk bijlage Formulieren in PDF samenvoegen.xlsm

 

[Jeneroy]

Bedankt @edmoor

Dit is precies wat ik wil.

Alleen hij loopt vast bij deze regel

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Environ("Userprofile") & "\Desktop\Formulier1.pdf"

Bekijk bijlage 358649

 

[edmoor]

Hier niet, dus laat ook de foutmelding weten.
Je bijlage is niet correct.
Voeg deze toe via de paperclip in Ga geavanceerd.