pdf naam aanpassen

[spotter71]

ik wil een formulier versturen als pdf (heb dit werkend) maar nu wil ik de naam van de pdf het zelfde hebben als het mail onderwerp.
heb al zitten kijken en proberen maar tot nu toe nog niks gevonden dat werkt.

ActiveSheet.ExportAsFixedFormat xlTypePDF, ThisWorkbook.Path & "\storingen " & Range("B2") & " " & Range("J22") & ".pdf"
        With CreateObject("Outlook.Application").CreateItem(0)
            .To = "naam@test.nl" 
            .Subject = "Storingsmelding NR : " & Worksheets("Invulblad").Range("J3") & " wagen NR. " & Worksheets("Invulblad").Range("D6") & " " & Worksheets("Invulblad").Range("E6") & " met kenteken " & Worksheets("Invulblad").Range("J6")
            .Attachments.Add ThisWorkbook.Path & "\storingen " & Range("B2") & " " & Range("J22") & ".pdf"
            .Display
        End With

 

[edmoor]

    With Sheets("Invulblad")
        Onderwerp = ThisWorkbook.Path & _
            "\storingen\" & _
            "Storingsmelding NR : " & _
            .Range("J3") & _
            " wagen NR. " & _
            .Range("D6") & _
            " " & _
            .Range("E6") & _
            " met kenteken " & _
            .Range("J6")
    End With

    ActiveSheet.ExportAsFixedFormat xlTypePDF, Onderwerp & ".pdf"
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "naam@test.nl"
        .Subject = Onderwerp
        .Attachments.Add Onderwerp & ".pdf"
        .Display
    End With

 

[spotter71]

hij werkt hier niet ik krijg een fout melding bij

ActiveSheet.ExportAsFixedFormat xlTypePDF, Onderwerp & ".pdf"

kan het wezen dat het om een knop op het werkblad is niet in een menu?

 

[edmoor]

Zonder je document is daar niets van te zeggen.
"Werkt niet" is te kort door de bocht en als je zegt een foutmelding te krijgen vertel er dan ook bij welke van de 10.000 die zich voor kunnen doen dat is.
Foutmeldingen zijn er niet om gebruikers te pesten maar geven een idee van de oorzaak.

 

[bmwpiet]

Via een omweg? Ik kan een gescand document in Win7 opslaan als een pdf met een andere naam. Dus document printen, dan scannen en opslaan met andere naam.

 

[spotter71]

Bekijk bijlage Map1.xlsm
hier is het bestand waar het om gaat het is de bedoeling dat een gedeelte van het werkblad word verstuurd als pdf.
dit werkt wel alleen krijgt de pdf file de naam "storing .pdf" mee , en die wil ik graag veranderen dat hij gelijk komt met de tekst van het onderwerp van de mail.
de naam is dus geen vast gegeven vandaar de moeilijkheid.

 

[edmoor]

De fout zit in de naam van het bestand. Deze bevat een : en dat mag niet.
"Storingsmelding NR : " & _

 

[HSV]

@edmoor,

Scherp, ik zat al te kijken of het een tijd zou kunnen bevatten met :, maar : van jouw reactie over het hoofd gezien. :thumb:

 

[edmoor]

Tijdens #2 heb ik 'm zelf over het hoofd gezien

 

[spotter71]

je heb gelijk dat was de boosdoener.
hartelijk bedankt.

 

[VenA]

Hoewel het wel mag kan je ook beter de . achter wagen NR. weglaten.