Thema Datum  Von Nutzer Rating
Antwort
09.07.2024 12:51:21 Gast97680
NotSolved
09.07.2024 17:49:53 Gast47608
NotSolved
10.07.2024 10:14:32 Gast51160
NotSolved
Blau Wie lautet deine konkrete Frage?
 10.07.2024 14:44:02 ralf_b
NotSolved
10.07.2024 18:16:46 Gast47608
NotSolved

Ansicht des Beitrags:
Von:
ralf_b		 Datum:
10.07.2024 14:44:02		 Views:
103		 Rating:
     
Antwort:
  Ja
Thema:
Wie lautet deine konkrete Frage?

https://4sysops.com/archives/automate-out-of-office-messages-in-outlook-with-visual-basic-for-applications-vba/

so wie ich das verstanden habe, erstellt man die regel für die autorespondernachricht und  dann schaltet man das ein.  Mir schein dieses Makro  erledigt das.

 

Sub OutOfOffice(bolState As Boolean)
'Calling this with a state of True enables out of office and calling it with a state of False disables out of office
On Error GoTo eh
    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 
Exit Sub
eh:
    MsgBox "The following error occurred: " & Err.Description  
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
09.07.2024 12:51:21 Gast97680
NotSolved
09.07.2024 17:49:53 Gast47608
NotSolved
10.07.2024 10:14:32 Gast51160
NotSolved
Blau Wie lautet deine konkrete Frage?
 10.07.2024 14:44:02 ralf_b
NotSolved
10.07.2024 18:16:46 Gast47608
NotSolved