Probleem met uitvoering

[daghengst]

Hallo allemaal,

Ik heb met vba een bestelformulier geautomatiseerd waardoor het bestand op de juiste locatie wordt opgeslagen, geopend met Adobe en in een mail wordt geplaatst. Ik hoef in principe alleen nog op verzenden te klikken.
Dit werkt bij mij thuis perfect maar op mijn werk krijg ik een error-melding 1004. Thuis en op het werk log ik in met hetzelfde account.

Onderstaand de code:

    Dim OutApp As Object
    Dim OutMail As Object

    PdfFile = "C:\x\" & ActiveSheet.Range("C14") & ".pdf"
[COLOR="#FF0000"]    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PdfFile, OpenAfterPublish:=True[/COLOR]
    
    MailAdres = Sheets("naam1").Range("H7")
    CC = Sheets("naam1").Range("J10")
    BCC = Sheets("naam1").Range("J11")
    MailOnderwerp = Sheets("naam1").Range("C14")
    MailBody = "Geachte," & "<br>" & _
               "" & "<br>" & _
               "Bijgevoegd de bestelorder voor het bovengenoemde werk." & "<br>" & _
                "" & "<br>"
        
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
        .Display
        HTMLPart = .HTMLbody
        .To = MailAdres
        .CC = CC
        .BCC = BCC
        .Subject = MailOnderwerp
        .HTMLbody = MailBody & HTMLPart
        .Attachments.Add PdfFile
        .Display
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

Bij het rood gearceerde geeft Excel de foutcode aan.

Kan iemand mij zeggen wat er fout gaat?

Bij voorbaat dank.

 

[VenA]

Het pad C:\x\ bestaat niet.

 

[daghengst]

Duh....

ik heb het origele pad verwijdert en vervangen door "x". Net zoals sheet "naam1" een bedrijfsnaam heeft...

 

[VenA]

Duh... in C14 staat iets wat niet in een filenaam mag staan. Activesheet is overbodig. Al gezocht op error 1004?

 

[daghengst]

OK. Maar waarom werkt het thuis dan wel?

In cel C14 staat de naam onder welke het bestand moet worden opgeslagen.
Activesheet heb ik omdat ik 4 sheets heb die elk voor een andere leverancier zijn bedoeld en die ook elk op een aparte plaats worden opgeslagen.

 

[daghengst]

Opgelost!

Onder het motto: wie zoekt die vindt!

 

[VenA]

Da's mooi. En waar zat de fout?