De kalender in outlook openen mbv vba

Status
Niet open voor verdere reacties.
A

Arno1969

Gebruiker
Lid geworden
24 apr 2017
Berichten
15
De kalender in outlook openen mbv vba


ik heb een hekel aan muisklikken, en als iets met een link kan dan bespaart mij dat een hoop muisgeklik.

Ik gebruik reeds deze code :

Private Sub CommandButton2_Click()

Application.ActivateMicrosoftApp xlMicrosoftWord

End Sub

Ik heb zelf al zitten kijken welk object ik waarschijnlijk moet gebruiken "olAppointmentItem" maar dan krijg ik een mooie compileerfout

? is het mogelijk om rechtstreeks de kalender in outlook te openen --> bespaart mij weer een aantal muisklikken per dag (ik weet dat ik nogal lui ben aangelegd)

Alvast reuze bedankt
 
En die code wil je dan starten door op een knop te klikken? :cool:
 
Klopt, helemaal. Hoe minder mensen moeten klikken om ergens te komen hoe minder kans op fouten.
 
Ik bedoel eigenlijk, in Outlook is het maar 1 klik om de agenda te openen.
Er lijkt me dus iets meer uitleg nodig.
 
Klopt, maar in dit geval is het ook pure nieuwschierigheid (opdoen van kennis) om te zien of het kan.
 
Dan kan je bijvoorbeeld zoiets doen:
Code: 
Sub GoToDate()
    Dim objCalendar As Outlook.MAPIFolder
    Dim olExp As Outlook.Explorer
    Dim dtmMyDate As Date
    Dim OL As Object
    Dim olns As NameSpace
    Dim viw As View
    
    dtmMyDate = Date + 30
    
    Set OL = CreateObject("Outlook.Application")
    Set olns = OL.GetNamespace("MAPI")
    Set objCalendar = olns.GetDefaultFolder(olFolderCalendar)
    objCalendar.Display
    Set olExp = objCalendar.GetExplorer
    Set viw = olExp.CurrentView
    viw.GoToDate dtmMyDate
End Sub
 
Bedankt

Hij werk perfect. En ik kan de de code ook nog volgen maar "Outlook.MAPIFolder" had ik eerlijk gezegd niet zo snel gevonden.

Bedankt Edmoor :thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan