Information fra Exchange server in i VBA-kode i Excel.

Det haster åbenbart ikke med at lukke alle dine gamle spørgsmål.

Link: http://www.eksperten.dk/bruger.phtml?sort=&order=desc&start=0&catid=0&q=&navn=nicolailund&option=22

/per

Sorry.. Men hvis du kigger på de forskellige spørgsmål var det faktisk kun et af spørgsmålene der rent faktisk var kommet et svar på. Resten var kommentarer...

Men for at undgå at de bare skal ligge og hænge har jeg nu lukket alle mine spørgsmål.. Så nu skulle der være ryddet op... Men man skal sku holde tungen lige i munden her. Nogle gange bliver man røflet for at lukke for tidligt og andre gange for sent... Pyha, man må sku lære og begå sig... :o)

Tak for tippet... :o)

Prøv at kigge på http://msdn.microsoft.com/library/default.asp?url=/library/en-us/cdo/html/_olemsg_programming_tasks.asp

Hvad er det for data du gerne vil have ud, og for hvem?

VH CK

Kedde65: Jeg har brug for at vide "subject" på den aftale den pågældende person har på nuværende tidspunkt (Now). Desuden har jeg behov for at vide hvornår den aftale de har nu (Now) over færdig (EndTime).

Informationen er jo normalt tilgængelig for mig når jeg opretter en aftale i outlook, og så invitere personer til mødet. Idet jeg skriver deres navn i outlook, fremgår en statuslinje der fortæller hvornår de er optaget af andre møder. Hvis jeg holder musen hen over en af disse aftaler kan jeg se start og slut tidspunkt som emnet for aftalen. Det er præcis den information jeg er interesseret i. :o)

I hastighedsårsager skal jeg lige have omskrevet ovenstående kode, så jeg kan spørge direkte efter f.eks. "Hansen, Ole" - så jeg ikke behøver at gå hele min adressbook igennem...

Somaliomar: Jeg har kigget lidr rundt derinde, men det står ikke helt klart for mig hvilke jeg skal bruge. Kan du hjælpe? :o)

Hvis du ikke har fået et svar i løbet af 7 dage, så skal du hellere ikke regne med det.
Derefter bør du lukke spørgsmålet.

/per

Jeg skal nok lige lave et eksempel til dig senere på dagen :-)

VH CK

Super - takker på forhånd for din hjælp...

Du kan starte her:

Dim objSession
Dim objCalendarFolder
Dim objAppointments
Dim objAppointment

Set objSession = CreateObject("MAPI.Session")
objSession.Logon

Set objCalendarFolder = objSession.GetDefaultFolder _
                                  (CdoDefaultFolderCalendar)
                                 
Set objAppointments = objCalendarFolder.Messages

For Each objAppointment In objAppointments
    Debug.Print objAppointment.Subject & " " & _
        objAppointment.StartTime & "-" & _
        objAppointment.EndTime
Next

objSession.Logoff

Set objSession = Nothing
Set objCalendarFolder = Nothing
Set objAppointments = Nothing
Set objAppointment = Nothing

den første udgave her, den henter bare fra den pågældende bruger der er logget ind i systemet. Du skal huske at sætte en reference til Microsoft Outlook 9.0 Object Library for at det virker.

Sub test()
    Dim oApplication As Outlook.Application
    Dim ns As NameSpace
    Dim cal As MAPIFolder
    Dim calApp As Items
    Dim item As AppointmentItem
    Set oApplication = New Outlook.Application
    Set ns = oApplication.GetNamespace("MAPI")
   
    Set cal = ns.GetDefaultFolder(olFolderCalendar)
    Dato = Date
    Set calApp = cal.Items.Restrict("[start]>='#" & Dato & "#'")

    calApp.Sort "[start]"
    calApp.IncludeRecurrences = True
    For Each item In calApp
        If item.Start <= Now And item.End >= Now Then
            MsgBox item.Start & vbCrLf & item.Subject
            exit for
        End If
    Next
   
    Set ns = Nothing
    Set oApplication = Nothing
End Sub

Næste udgave henter fra en specifik bruger.

Sub test()
    Dim oApplication As Outlook.Application
    Dim ns As NameSpace
    Dim cal As MAPIFolder
    Dim calApp As Items
    Dim rec As Recipient
    Dim item As AppointmentItem
    Set oApplication = New Outlook.Application
    Set ns = oApplication.GetNamespace("MAPI")
    Set rec = ns.CreateRecipient(Range("a1").Value)
    Set cal = ns.GetSharedDefaultFolder(rec, olFolderCalendar)
   
    Dato = Date
    Set calApp = cal.Items.Restrict("[start]>='#" & Dato & "#'")

    calApp.Sort "[start]"
    calApp.IncludeRecurrences = True
    For Each item In calApp
        If item.Start <= Now And item.End >= Now Then
            MsgBox item.Start & vbCrLf & item.Subject
            Exit For
        End If
    Next
   
    Set ns = Nothing
    Set oApplication = Nothing
End Sub

VH CK

Har du fundet ud af det, eller er du stødt på problemer?

VH CK

Jeg får desværre først mulighed for at teste det i morgen (tirsdag) - jeg har desværre ikke været i nærheden af projektet siden fredag. Men jeg skal huske at vende tilbage med status. På forhånd tak for din hjælp.. Du hører fra mig.

Mvh Nicolai

Det ser ud som om at det virker, men det tager jo 1.000 år for den at søge efter en bestemt modtager. Min Outlook kommer op og siger: Requesting Data from Microsoft Exchange Server....bla bla bla.. Det tager omkring 20-25 sekunder.. Er det muligt at gøre noget ved dette? Den anden kode du gav mig helt i starten får jo fat i Free/Busy koden i løbet af få sekunder.. Det er måske ikke det samme??

Nej det er ikke det samme og du kan ikke gøre noget ved exchange serverens svartid.

VH CK

OK - det må jeg så bare leve med i koden... Øv øv... :o)

Tak for din hjælp, den har givet mig masser af indsigt i problemstilling, og jeg har nu fået en løsning jeg kan leve lidt med... Men hvis der eksistere andre og hurtigere løsninger, så hører jeg gerne fra dig...

Helt ok, du kan altid kontakte mig på ck@targetgruppen.dk for yderligere hjælp :-)

Takker... :-)