Excel sheet in PDF + mailen

[Mohammad]

Goedemorgen,

In de bijlage heb ik het bestand waar ik maandelijks de getallen wijzig voor de te betalen premies.

Uitdaging:
Ik zou graag het werkblad in PDF-format sturen naar het e-mailadres in cel L13 met het bericht in cel L8.
het is me gelukt om het bestand in PDF op te slaan, maar het PDF bestand als bijlage toevoegen aan een mailbericht is me nog niet gelukt.

Ik hoop dat jullie ook als een uitdaging zien en met me meedenken.

Alvast bedankt voor de reacties.

 

[edmoor]

Er zit geen mail routine in dat document.
Dus wat heb je geprobeerd?

 

[Mohammad]

Klopt geen mail routine. Mijn kennis hield op bij het aanmaken van het PDF bestand.
Op zich als ik weet hoe het PDF bestand als bijlage wordt toegevoegd aan een outlook bericht, dan ben ik geholpen.

 

[edmoor]

Kijk eens bij de voorbeelden van Ron de Bruin:
https://www.rondebruin.nl/win/section1.htm

 

[Mohammad]

Goede site dank je wel!

 

[Mohammad]

2 vragen

Inmiddels mijn bestand aangepast en de VBA code verwerkt.

2 vragen:
1-Als ik op knop druk PDF + mailen, dan wordt het e-mailbericht gelijk verzonden. Ik wil graag zelf op de knop verzenden klikken, want het bericht wil misschien nog aanpassen.
2-Ik heb een simpel bericht in K9, dat ik graag in het mailbericht wil plaatsen. Maar dat lukt niet.

Alvast bedankt.

 

[edmoor]

Wat je vraagt is precies wat het document hier doet.

 

[Mohammad]

Klopt voor 99% wel.

Ik wil dat het e-mailbericht alleen aangemaakt wordt en niet automatisch wordt verzonden. En de tekst in de cel K9 wordt niet geplaatst in het bericht.

 

[edmoor]

Maar de mail wordt ook niet automatisch verzonden. Die komt eerst op het scherm.
Ook de gegevens uit K9 wordt in het bericht gezet.

Overigens is dit het hoogst noodzakelijke:

Sub Groep2_Klikken()
    Dim OutApp As Object
    Dim OutMail As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With Sheets("2018")
        FileNamePDF = Environ("temp") & "\" & .Name & Format(Now, "_DDMMYYYYHHMMSS") & ".pdf"
        .Range("A2:F18").ExportAsFixedFormat _
            Type:=xlTypePDF, _
            FileName:=FileNamePDF
            
        StrTo = .Range("K7")
        StrSubject = .Range("K8")
        StrBody = .Range("K9")
    End With
    
    With OutMail
        .To = StrTo
        .Subject = StrSubject
        .Body = StrBody
        .Attachments.Add FileNamePDF
        .Display
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing