Avatar billede fhansen82 Mester
23. juni 2015 - 11:58 Der er 5 kommentarer

VBScript: Luk outlook pænt med kladde åben

Jeg vil gerne via et VBScript lukke Outlook pænt ned, og hvis der er åbne vinduer, som fx. en kladde, skal denne gemmes også. Har fundet noget kode på nettet, men kan ikke få det til at virke. Kører Win 7 og Outlook 2010. Har prøvet at udlæse om der bliver registreret kladder, og den tæller fra 0 til 1 når jeg åbner en ny kladde, så den del virker.

Får fejl: Wrong number of arguments or invalid property assignment: 'Inspectors'

Kode:
Dim oOL 'As Outlook.Application
Set oOL = GetObject(, "Outlook.Application")
If oOL Is Nothing Then
'no need to do anything, Outlook is not running
Else
'Outlook running
Do while oOL.Inspectors.Count <> 0
    lngCount = oOL.Inspectors.Count
    For i = lngCount To 1 Step -1   
        oOL.Inspectors(i).CurrentItem.Save
        oOL.Inspectors(i).Close True
    Next
Loop
oOL.Session.Logoff
oOL.Quit
End If
Set oOL = Nothing
Avatar billede supertekst Ekspert
23. juni 2015 - 14:39 #1
Måske fordi Inspectors ikke er defineret
Avatar billede fhansen82 Mester
23. juni 2015 - 19:48 #2
Hvordan definerer jeg den?
Avatar billede supertekst Ekspert
23. juni 2015 - 23:34 #3
Prøv: Dim myinspector As Outlook.Inspector
og så juster i koden
Avatar billede fhansen82 Mester
24. juni 2015 - 10:43 #4
Er ikke helt klar på hvordan du mener/hvordan jeg gør det.

Skal jeg lave en

Dim myInspector
Set myInspector = CreateObject(, "Outlook.Inspector")

Eller er det


Dim myInspector
Set myInspector = GetObject(, "Outlook.Inspector")

Og hvad og hvor skal rettes i koden?
Avatar billede supertekst Ekspert
24. juni 2015 - 11:08 #5
Eksempel til inspiration:
Sub xvidereSend()
    Dim myolApp As New Outlook.Application
    Dim myinspector As Outlook.Inspector
    Dim myItem As Outlook.MailItem
    Dim myattachments As Outlook.Attachments
    Set myolApp = Outlook.Application
    Set myinspector = myolApp.ActiveInspector
    If Not TypeName(myinspector) = "Nothing" Then
        Set myItem = myinspector.CurrentItem.Forward
        myItem.Display
        myItem.Recipients.Add "aa@aafirma.dk"
        myItem.Send
    Else
        MsgBox "There is no active inspector."
    End If
End Sub
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