Avatar billede fqthjoe Nybegynder
10. august 2010 - 12:52 Der er 1 løsning

fejl i script til print pdf fra outlook

Hej,

Har hentet/tilpaset dette script, som skal printe vedhæftede pdf filer fra bestemt folder.
Det virker sådan set godt nok, hvis kun en postkasse, men jeg har flere i outlook, og så kan jeg ikke finde ud af hvor i scriptet man skriver navnet på den postkasse det drejer sig om.
I dette tilfælde hedder postkassen "postkasse - Info" og har lavet en mappe der hedder udskrift... Men det virker desværre ikke.

nogen der kan trylle og hjælpe mig ;-)

vh thjoe

Public Sub PrintAttachments()
    Dim Inbox As MAPIFolder
    Dim Item As MailItem
    Dim Atmt As Attachment
    Dim FileName As String
    Dim i As Integer

    'Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("\\Postkasse - info\Indbakke\til udskrift")'
Set Inbox = Postkasse - info \ Indbakke \ udskrift
    For Each Item In Inbox.Items
        For Each Atmt In Item.Attachments
            FileName = "C:\temp2\" & Atmt.FileName
            Atmt.SaveAsFile FileName
            Shell """C:\Program Files\Adobe\Acrobat 9.0\Acrobat\acrobat.exe"" /h /p """ + FileName + """", vbHide
        Next

        'Item.Delete
    Next

    Set Inbox = Nothing
End Sub
Avatar billede fqthjoe Nybegynder
10. august 2010 - 14:16 #1
Dropper det. Laver en pc med kun en outlook konto, så virker det. Skal bare se om man kan køre scriptet automatisk efter outlook er startet op...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester