Automatische out-of- office-Antwort funktioniert nicht mehr

Diskutiere Automatische out-of- office-Antwort funktioniert nicht mehr im Office Forum im Bereich Microsoft Community Fragen; Hallo zusammen, ich habe in Outlook ein VBA-Makro erstellt, welches beim Beenden von Outlook automatisch die out-of-office-Antwort aktiviert und...
  • Automatische out-of- office-Antwort funktioniert nicht mehr Beitrag #1
M

MSCom

Neuer Benutzer
Threadstarter
Dabei seit
20.09.2016
Beiträge
1
Hallo zusammen,


ich habe in Outlook ein VBA-Makro erstellt, welches beim Beenden von Outlook automatisch die out-of-office-Antwort aktiviert und beim Starten von Outlook automatisch deaktiviert.


In der Vergangenheit hat das auch funktioniert. Seit einigen Wochen aber, funktioniert dies nicht mehr. Kann mir jemand eine Erklärung dafür geben, wieso?


Hier der Code:


Private Sub Application_Startup()



Set m_Inspectors = Application.Inspectors



Const PR_STATUS = "http://schemas.microsoft.com/mapi/proptag/0x661D000B"

Dim olkStore As Outlook.Store, olkPropAcc As Outlook.PropertyAccessor


For Each olkStore In Session.Stores



If olkStore.ExchangeStoreType = olPrimaryExchangeMailbox Then



Set olkPropAcc = olkStore.PropertyAccessor



olkPropAcc.SetProperty PR_STATUS, False



End If



Next



End Sub





Private Sub Application_Quit()



' Abwesenheit False 'Aufruf Routine für Abwesenheitsnachricht



Const PR_STATUS = "http://schemas.microsoft.com/mapi/proptag/0x661D000B"

Dim olkStore As Outlook.Store, olkPropAcc As Outlook.PropertyAccessor


For Each olkStore In Session.Stores



If olkStore.ExchangeStoreType = olPrimaryExchangeMailbox Then



Set olkPropAcc = olkStore.PropertyAccessor



olkPropAcc.SetProperty PR_STATUS, True



End If



Next



End Sub
 
Thema:

Automatische out-of- office-Antwort funktioniert nicht mehr

Automatische out-of- office-Antwort funktioniert nicht mehr - Ähnliche Themen

Automatische out-of- office-Antwort funktioniert nicht mehr: Hallo zusammen, ich habe in Outlook ein VBA-Makro erstellt, welches beim Beenden von Outlook automatisch die out-of-office-Antwort aktiviert und...
Outlook VBA - Kategorien in spezifisches Postfach importieren: Hallo zusammen: Ich habe folgende Quelltexte zu diesem Thema gefunden: 1. Liste aller vorhandenen Kategorien im Standardpostfach erzeugen...
Excel 2016 Laufzeitfehler 9: Hallo! Ich hab zwei identische CSV-Dateien die ich einlese und jeweils den erste und letzten Wert einer Spalte ausgebe. Die beiden CSV-Dateien...
Mittels VBA verschiedene CSV's in Ordnern und Unterordner auslesen: Hallo! Hab eine etwas speziellere Frage. Ich bekomm mehrere CSV's welche gleich aufgebaut sind und mittels Semikolon getrennt sind. Jetzt...
Verhalten beim Einfügen von Bildern per Makro: Hallo zusammen, ich habe folgendes Makro: Sub InsertPics() Dim Rw&, PFAD$, Datei$, Bild As Shape PFAD = "C:\Users\….\" With...

Sucheingaben

nj online casino

,

big m cas3ino

,

what does tilt mean in poker

,
choctaw casinos
, choctaw $casinos, online Wpoker games, real money casino, dragon play pokeGr, casino noght, hsdb poker, hsdb pobker, casino online free, cas$ino online free, fireplace poker, hotel pcasino, nj online casFino, poker tells, 7poker tells, promo codes for doubledown cWasino, poker usa, pofker usa, zodiac casino, lock pok4er, victory c3asino cruise, poker hands ranking
Oben