opslaan als Pdf en mailen.

[schilderehbo]

Ik heb een vraag.
hoe kan ik actieve excel sheet opslaan als Pdf met als naam gegevens uit A1 + A2 (iets met stringnaam??)
en vervolgens mailen met Outlook.

Ik heb al gezocht op forum maar is niet precies wat ik zoek.

 

[edmoor]

Hier kan je er alles over vinden:
https://www.rondebruin.nl/win/section1.htm

Verder:
PDFnaam = Range("A1") & Range("A2") & ".pdf"

 

[schilderehbo]

oke dankje maar hier kom ik niet uit. ik ga verder zoeken en klooien

 

[edmoor]

Zie dit bestand:

 

[schilderehbo]

ja helemaal top simpel zoals het er uitziet (niet voor mij) THANKS

 

[schilderehbo]

Opslaan als pdf

nog 1 vraagje ik merk dat ik bestandje niet opslaat als pdf wat moet ik nog toevoegen ?

 

[edmoor]

Zoals ik het heb geplaatst wordt het PDF bestandje opgeslagen in de folder waar je document staat.

 

[schilderehbo]

Ja klopt ik zie het nu. Kan ik ook iets aanpassen dat hij mijn handtekening ook gebruikt, Hij opent nu standaard outlook zonder handtekening.

 

[edmoor]

Dat kan zo:

Sub Ovaal1_Klikken()
    Dim Handtekening As String
    Dim PDF As Variant
    Dim OutApp As Object
    Dim OutMail As Object
    
    PDF = ThisWorkbook.Path & "\" & Range("A1") & Range("B1") & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDF
    
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
        .Display
        Handtekening = .HTMLBody
        .To = "iemand@bedrijf.nl"
        .CC = ""
        .BCC = ""
        .Subject = "Dit is het onderwerp"
        .HTMLBody = "Bij deze het PDF bestand" & Handtekening
        .Attachments.Add PDF
        .Display [COLOR="#008000"]'Of .Send[/COLOR]
    End With
    [COLOR="#008000"]'Kill PDF[/COLOR]
End Sub

 

[schilderehbo]

Ja super dit is top, nog 1 kleinigheidje als nu outlook opent dan staat de cursor voor het woord Bij deze het pdf bestand kan de cursor ook eronder komen te staan.
heb al wat dingen geprobeerd maar krijg wel een punt of komma maar deze staat direct het woord en de cursor staat nog steeds voor het woord.

 

[edmoor]

Daar zal best wat voor mogelijk zijn, maar 1 muisklik doet dat ook.
Ga ik dus geen tijd aan besteden.

 

[schilderehbo]

Snap ik hahaha maar erg bedankt.