PDA

Vollständige Version anzeigen : Abwesenheitsassistent mit Makro aktivieren


Fips60
26.07.2017, 21:01
Hallo zusammen,

ich habe eine Frage an die Outlookexperten hier im Forum.
Ich habe z.Zt 4-Tage Woche, sprich jeden Montag frei. Da ich oftmals vergesse, den Abwesenheitsassistenten zu aktivieren,
habe ich mal Tante Googel befragt und habe folgendes Makro gefunden:

Private Sub Application_Quit()
OutOfOffice True
End Sub


Sub OutOfOffice(bolState As Boolean)
Const PR_OOF_STATE = "http://schemas.microsoft.com/mapi/proptag/0x661D000B"
Dim olkIS As Outlook.Store, olkPA As Outlook.PropertyAccessor
For Each olkIS In Session.Stores
If olkIS.ExchangeStoreType = olPrimaryExchangeMailbox Then
Set olkPA = olkIS.PropertyAccessor
olkPA.SetProperty PR_OOF_STATE, bolState
End If
Next
Set olkIS = Nothing
Set olkPA = Nothing
End Sub


Das Makro funktioniert auch bei jedem schließen von Outlook. Da ich aber den Assistenten nur Freitags aktivieren will, habe ich versucht, das Makro im ersten Teil entsprechend anzupassen:

Private Sub Application_Quit()
if Weekday(now, 6) = 1 then OutOfOffice True
End Sub

Das Problem ist, es funktioniert nicht, der Assistent wird nicht aktiviert.
Wo liegt der Fehler? (Wir haben Outlook 2013 im Geschäft)

Danke und Gruß
Fred

markusxy
27.07.2017, 10:19
es funktioniert nicht, der Assistent wird nicht aktiviert.


Was konkret funktioniert nicht?

Wird OutOfOffice nicht ausgelöst, oder funktioniert OutOfOffice generell nicht?

Fips60
27.07.2017, 12:42
Hallo markusxy,

OutOfOffice wird mit dem von mir geänderten Code nicht ausgelöst.
Wenn ich die Originalversion verwende, wird der Assistent bei jedem schliessen von Outlook aktiviert. Ich benötige ihn aber nur wenn ich Outlook am Freitag schliesse.

WaWa

markusxy
27.07.2017, 17:01
Du kannst das Event nicht nutzen . Siehe https://msdn.microsoft.com/en-us/library/ee720183(v=office.14).aspx

Da ich kein OL 2016 habe, weiß ich auch nicht welche Events es dort gibt.
Musst also schauen, ob es Alternativen gibt.
LG Markus