Avatar billede bluestrike Nybegynder
31. januar 2005 - 13:43

Hente Etiket typen på en outlook appointment fra Outlook.

Hej.
Jeg har lavet en del kode, som kan synkronisere en online kalender med ens outlook kalender, men jeg har ikke kunnet løse den opgave at skulle hente etiket typen på aftalen ud.

Er der nogen der kan give mig en hånd med det problem??

Her er koden jeg bruger for at få fat i kalender objectet, samt slette en attribut jeg sætter tidligere....

    Dim objNS
    Dim objApptFolder, objAppt
    Dim objItems, intX
    Dim tempDate
    tempCount = 0
    Set App = CreateObject("Outlook.Application")
   
    Set objNS = App.GetNamespace("MAPI")
    objNS.Logon

    Set objApptFolder = objNS.GetDefaultFolder(9)
    Set objItems = objApptFolder.Items
    teststr = ""
    For intX = 1 To objItems.Count
        Set objAppt = objItems.Item(intX)
        Set TraceIDProperty = objAppt.UserProperties.Find("tempID")
       
        If Not TypeName(TraceIDProperty) = "Nothing" Then                   
            If objAppt.Start > CDate("31-12-2004") Then
                alert(""&TraceIDProperty)
                TraceIDProperty.Delete
                objAppt.Save   
            End if
        End If       
    Next

Håber nogen kan hjælpe.
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