Ahoj,
trochu jsem zaserfoval, odzkoušel a kupodivu to fungovalo.
V preferencích projektu jsem si teda musel zapnout:
Microsoft Outlook 11.0 Objekt Library
Knihovna MSOUTL.OLB
a poté za předpokladu že do buňky A1 napíšu datum
a spustím proceduru:
Sub GoToDate()
If IsDate(Cells(1, 1)) = True Then
Dim objCalendar As Outlook.MAPIFolder
Dim olExp As Outlook.Explorer
dtmMyDate = Cells(1, 1)
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 If
End Sub
tak to otevře kalendář na daném datu.
M@citovat
trochu jsem zaserfoval, odzkoušel a kupodivu to fungovalo.
V preferencích projektu jsem si teda musel zapnout:
Microsoft Outlook 11.0 Objekt Library
Knihovna MSOUTL.OLB
a poté za předpokladu že do buňky A1 napíšu datum
a spustím proceduru:
Sub GoToDate()
If IsDate(Cells(1, 1)) = True Then
Dim objCalendar As Outlook.MAPIFolder
Dim olExp As Outlook.Explorer
dtmMyDate = Cells(1, 1)
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 If
End Sub
tak to otevře kalendář na daném datu.
M@citovat