pdf openen in vba

[thst]

Hallo allemaal,

ik gebruik deze code om een pdf file toe te voegen aan mijn email.

 .Attachments.Add sPDFPath & "\" & (Range("O29").Value) 'Factuur word gemaild. (0123456789.pdf)

Met welke code krijg ik zo voor elkaar dat die hem opent ?

Angela

 

[thst]

Ben er al uit...............

Voor de liefhebbers, hier de code.

Sub PDFbestandOpenen()

    Dim dbResultaat As Double
    Dim sPadAdobe As String
    Dim sBestand As String
    
    sPadAdobe = "C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
    
    sBestand = "C:\papers\43.pdf"
    
    dbResultaat = Shell(sPadAdobe & " " & sBestand, vbMaximizedFocus)

End Sub

Angela

 

[Wigi]

http://www.erlandsendata.no/english/index.php?d=envbafoldersfileopen

 

[Warme bakkertje]

Zet je de vraag dan ook nog even op opgelost, Angela