Ustawienie czasu spotkania innego niż domyślne 30 minut
autor OShon 2011-06-09 16:44:00 w Makra
tagi: 30, spotkanie, czas, ustawienie, minut, domyślne, Outlook, wydarzenie
0 komenarze | Dodaj komentarz
tagi: 30, spotkanie, czas, ustawienie, minut, domyślne, Outlook, wydarzenie
0 komenarze | Dodaj komentarz
Zmianę skali czasu wydarzeń kalendarzowych dokonujemy przez kliknięcie prawym przyciskiem myszy na oknie kalendarza a potem wybieramy Inne ustawienia (Rys.1.).
Rys.1. Ustawienie parametrów widoku.
To ustawienie dotyczy jednak obiektów w danym folderze. W momencie wywołania wydarzenia bądź wezwania w innym widoku (np. folderu pocztowego) wartość ta dalej będzie realizowana na poziomie ustawień pierwotnych (czyli 30 minut) (Rys.2.).
Rys.2. Tworzenie obiektów z folderu poczty.
Niestety nie ma ustawień globalnych dotyczących domyślnego interwału czasowego dla spotkań, ani z poziomu interfejsu użytkownika, ani w rejestrze systemu.
Można jednak zaprogramować taką czynność realizowaną podczas tworzenia nowego obiektu typu spotkanie lub zaproszenie na spotkanie.
Dim WithEvents m_objApp As Outlook.AppointmentItem
Private Sub Application_ItemLoad(ByVal Item As Object)
If Item.Class = olAppointment Then m_objApp = Item
End Sub
Private Sub m_objApp_Open(ByVal Cancel As Boolean)
Dim plush As String
m_objApp.End = m_objApp.Start + 0.042
End Sub
Jeśli ta czynność realizowana jest cyklicznie, a treść zaproszenia na spotkanie jest stała, można zastosować dodatkowe linijki kodu:
m_objApp.Subject = "Operatywka"
m_objApp.Importance = olImportanceHigh
m_objApp.Categories = "CRM"
m_objApp.Recipients.Add "a@mail.pl"
m_objApp.Recipients.Add "b@mail.pl"
m_objApp.Location = "Sala Kraków"
m_objApp.Body = "Prosze o przygotowaniu raportów działan operacyjnych." _
& vbCr & "--Sekretariat--"
Rys.3. Przygotowanie wcześniej sparametryzowanego zaproszenia na spotkanie.
Shon Oskar – www.VBATools.pl
© Wszelkie prawa zastrzeżone. Żadna część ani całość tego artykułu nie może być powielana ani publikowana bez zgody autora.
