Ga naar inhoud

Mailen met pdf van de sheet.


Rob Embrace
 Delen

Aanbevolen berichten

Hallo ,

 

In een stukje VBA heb ik er voor gezorgd dat met een druk op de knop een excel sheet wordt opgeslagen in een map en word gemaild naar mij.

Nu wil ik graag de code uitbreiden dat als er wordt opgeslagen en gemaild dat er een pdf van de sheet mee wordt gestuurd.

kan iemand mij hier mee helpen?

Zie de huidige code in de bijlage.

 

Alvast bedankt,

 

Rob

Opslaan en mailen.docx

Link naar reactie
Delen op andere sites


Sub opslaan()
ThisWorkbook.SaveAs Filename:= _
"G:\Office\Bedrijfsburo Naaldwijk-Tuinbouw-HE\Tekenwerk\Tekenprojecten\" & Range("k1") & ".xlsm"
Bestand = ThisWorkbook.Path & "\" & Range("K1").Value & ".pdf"
    ThisWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Bestand
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .To = "r.keulen@elektravon.nl"
        .CC = ""
        .BCC = ""
        .Subject = "Nieuw tekenwerk"
        .Body = "Nieuw tekenwerk"
        .Attachments.Add Bestand
        .send
    End With
 Kill (Bestand)
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

 

Link naar reactie
Delen op andere sites


  • kape sloot dit topic
Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

×
×
  • Nieuwe aanmaken...