Selectie maken naar pdf en mailen.

[Jay305]

Goedendag,

ik gebruik op dit moment een knop om de gehele tab te versturen naar mijn collega's.
ik probeer dit op te lossen om alleen een selectie te sturen waar ook oprecht een tekst staat.
alleen dit is elke keer anders dus is nooit een vaste selectie.
Het makkelijkste zou zijn dat ik door middel van 1 knop er voor kan zorgen dat de actieve slectie een pdf word gemaakt en deze automatisch naar 8 mailadressen word gestuurd.
Dit krijg ik alleen niet voor elkaar.
Iemand wat tips of mij wat hulp kan bieden.

MVG,
Jay

 

[edmoor]

Dat kan met Selection.ExportAsFixedFormat

 

[OctaFish]

Dat heeft Ron de Bruin prima uitgelegd.

 

[Jay305]

Heel erg bedankt, heb de toepassing gebruikt van Ron, deze zorgt voor de selectie maar niet voor een pdf bestand.
is dit ook mogelijk?

 

[OctaFish]

Die code vind je ook op de site van Ron.

 

[OctaFish]

Namelijk hier

 

[Jay305]

is gelukt maar nog 1 klein vraagje,
ik wil deze mail naar 8 mailadressen sturen en wil dit automatiseren.
nu staat er "mijnmail@gmail.com"
maar hoe zet ik er nog meer bij want als ik deze erachter zet dan gebeurt dit niet via de mail. en pakt hij alleen de eerste.

 

[edmoor]

Mail adressen mag je scheiden met een puntkomma.
Wel als 1 string:
"mijnmail@gmail.com;jouwmail@gmail.com;anderemail@gmail.com"

 

[JEC.]

Was toevallig ook bezig met het hetzelfde principe.
Hier een voorbeeldje.

Ik heb alle emails op een tabblad onder elkaargezet en vervolgens inene in de .To gezet. Zie rode lijn.

Sub mailstand()
If MsgBox("PDF maken en doorsturen?", vbYesNo, "Let op!") = vbYes Then
  With Sheets(1)
      Filenaam = "C:\xxxxx\xxxx\xxxxx\xxxx\xxxxx\xxxxxx\" & "Tussenstand " & Date & ".pdf"
     .Range("A1:L47").ExportAsFixedFormat xlTypePDF, Filenaam, , , , 1, 1, False
  End With
  With CreateObject("Outlook.Application").CreateItem(0)
     .To = [COLOR="#FF0000"]Join(Application.Transpose(Sheets("Emails").Cells(1).CurrentRegion), ";")[/COLOR]
     .BCC = ""
     .Subject = "xxxxxxx"
     .Body = ""
     .Attachments.Add Filenaam
     .display
  End With
End If
End Sub

 

[snb]

Meestal volstaat:

     .Range("A1:L47").ExportAsFixedFormat 0, Filenaam

 

[JEC.]

Dat dacht ik ook maar hij bleef telkens de 2e pagina ook meenemen...