04. august 2003 - 16:02Der er
13 kommentarer og 1 løsning
Hente information fra Outlook over i Excel.
Jeg har brug for at få hentet information fra Outllok til Excel.
Helt konkret har jeg brug for følgende:
I Excel har jeg en dato og klokkeslet registret. Desuden har jeg en liste over en masse personer som sidder på samme netværk og samme Exchange Server som mig. Alle personer har delt deres kalender så jeg kan læse den.
Jeg ønsker nu at en VBA kode skal oprette et sheet i Excel der fortæller mig hvad de forskellige personer har booket ind i deres kalender på det pågældene (i Excel nævnte) tidspunkt (Subject-info). Jeg ønsker samtidig at få at vide hvornår den pågældende aftale hos den enkelte er slut.
Jeg er rimelig habil i VBA, så jeg behøver ikke nogen lang udredning. :-) Jeg er bare kørt fast og kan ikke komme i tanke om hvordan jeg kan løse dette.
Jeg er naturligvis interesseret i at koden afvikles hurtigst muligt i applikationen.
Har du dem lige ved hånden? Eller måske har du en eksempel kode et aller andet sted?
Jeg kan godt følge det du skriver, men da Outlook/Exchange og VBA interaktionen er lidt ny for mig, vil jeg da gerne have det uddybet en smule.. Hvis du har tid... :-)
Takker... Jeg har fået det til at virke lidt, men har desværre ikke helt fattet hvordan jeg henter oplysninger om hvad den enkelte person laver og hvornår han/hun er færdig med det...
Har du nogen idé om hvordan denne information skaffes? Jeg taler om den infromation der er tilgængelig i det øjeblik du opretter en ny aftale og går ind under Schedule (el. Attendee Avaliability i Outlook 97). Herinde skriver du navnet på en af dine kollegaer, hvorefter en bjælke kommer op. Holder man så musemarkøren hen over en af bjækerne, fremkommer information omkring subject og start og sluttidspunkt. Det er denne information jeg er interesseret i at få fingre i.
Dette skulle give dig alle aftaler for en bestemt bruger (der ligger i addEntry):
'Declarations: Dim rec As Recipient Dim oFolder As MAPIFolder Dim appt As AppointmentItem Set ns = objOutlook.GetNamespace("MAPI")
'Insert in "entry"-loop: Set rec = ns.CreateRecipient(addEntry.Name) rec.Resolve Set oFolder = ns.GetSharedDefaultFolder(rec, olFolderCalendar) For Each appt In oFolder.Items MsgBox appt.Subject Next
Tak for al din hjælp, da har virkelig hjulpet mig på vej.
Men hvordan sørger jeg for at kun subject på den aftale der er registeret på "NOW" tidspunktet kommer frem. Jeg er interesseret i at finde ud af hvad den pågældende person laver i dette øjeblik og hvornår personen er færdig med den aktivitet han/hun laver nu.
Jeg lukker spørgsmålet og giver dig fuld skrue, men vil sætte pris på hvis du kan hjælpe med denne sidste ovenstående ting... :-)
Sorry... du skal skrive "Format(Now, "dd/mm/yyyy hh:nn")" og IKKE "Format(Now, "long date")".
Synes godt om
Ny brugerNybegynder
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.
