22. april 2008 - 21:19Der er
8 kommentarer og 1 løsning
Formattering af private aftaler i Outlook
Hej Eksperter
Jeg har selv forsøgt mig, og jeg har googlet en del, men jeg sidder altså fast. Det er ikke sikkert at det er noget særlig stort problem, men jeg er ingen VBA haj!
Nedenstående er, hvad jeg selv er kommet frem til. Der er dog nogle mangler, før det overhovedet ikke fejler. ------- Dim objApp As Outlook.AppointmentItem
Set objApp = ? Her er jeg blank?
If objApp.Sensitivity = olPrivate Then ' do something End If -------
Jeg håber der er nogen derude, der kan hjælpe mig videre.
Det optimale vil være, hvis jeg kan få Etiket sat til Personlig. En alternativ løsning kan være, at Kategori sættes til Privat. Så kan jeg nemlig anvende autoformatering i Outlook.
Det blev alternativet - da jeg ikke kunne finde "Etiket"-objektet.
Public Sub markerAftaler() Dim olApp, Namespace, aftaler
Set olApp = CreateObject("Outlook.Application") Set Namespace = olApp.GetNamespace("MAPI") Set aftaler = Namespace.GetDefaultFolder(olFolderCalendar).Items
For Each aft In aftaler Rem test om privat If aft.Sensitivity = olPrivate Then aft.Categories = "Privat" aft.Save End If Next End Sub
Det ser rigtig godt ud :-) Et lille tillægsspørgsmål. Hvordan får jeg koden til at virke, når en aftale oprettes/gemmes? Som jeg har det nu, så skal jeg afvikle macroen, for at få aftalerne formatteret? Altså efter de er gemt.
Mvh Efes
PS. Du kan bare smide et svar, og så skal du få dine points. De er fortjent.
Hva dælen sker der her??? Jeg har nu trykket adskillige gange på Accepter, men det ser ikke ud som om der sker noget som helst?
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.
