Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Abwesenheitsassisten
Gehe zu Seite 1, 2  Weiter
zurück: *T*eigenschaften eines emails absederinformationen weiter: Tray icon ausblenden Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
xxsteffenxx
Fortgeschrittener Excel Benutzer


Verfasst am:
10. Sep 2007, 09:04
Rufname:

Abwesenheitsassisten - Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

Hallo,

gibt es eine möglichkeit, dass der Abwesenheits assistent automatisch aktiviert wird sobald Outlook geschlossen wird ??

Gruß Steffen
Robsl
Unmögliches wollen, um Mögliches zu erreichen


Verfasst am:
10. Sep 2007, 16:10
Rufname:
Wohnort: München


AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

Hallo Steffen,

eine Recherche im Internet hat nichts Verwertbares erbracht. Ich denke, das hast du auch schon festgestellt.

Ich könnte mir vorstellen, dass was mit dem Ereignis Application.Quit mit VBA geht. Ich kenne aber leider das Outlook-Objektmodell zu wenig, um da auf die Schnelle was zu (er)finden.

Ich such noch ein bisschen im Internet. Hilfst du mit?

_________________
Grüße, Robsl (Office 2003)
Einen guten Programmierer erkennt man am Datendrang
xxsteffenxx
Fortgeschrittener Excel Benutzer


Verfasst am:
11. Sep 2007, 09:04
Rufname:

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

ich b in schon die ganze zeit am suchen ;) ^^
gruß Steffen
Andreas.Fischer
Outlook - Moderator


Verfasst am:
11. Sep 2007, 12:17
Rufname:
Wohnort: Berlin

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

Hallo,

Mit folgendem Script, welches ihr in DieseOutlookSitzung kopiert, könnt ihr den Abwesenheitsassistenten beim Beenden von Outlook aktivieren.
Ihr müsst nur noch einen Verweis auf die CDO 1.21 Library machen (VBA-Editor | Extras | Verweise).
Code:
Sub Application_Quit()

   Dim objsession As MAPI.Session

   Set objsession = Application.CreateObject("MAPI.Session")

   Call objsession.Logon(, , False, False)

   objsession.OutofOffice = True       'Abwesenheitsassistent aktivieren
   objsession.OutOfOfficeText = "Test" 'Text der Übermittelt wird.

End Sub

_________________
Gruß Andreas

Das besondere Erleben.
Gast



Verfasst am:
28. Sep 2007, 16:26
Rufname:


AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

Hallo Andreas,

irgednwie geht dies bei mir nicht. Ich finde auch die Datei CDO 1.21 Library nicht.

Gruß Steffen
Andreas.Fischer
Outlook - Moderator


Verfasst am:
01. Okt 2007, 06:27
Rufname:
Wohnort: Berlin

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

Hallo Steffen,

Microsoft CDO 1.21 Library ist eine optionale Komponente, die du von deiner Office-CD nachinstallieren mußt, wenn der Eintrag nicht in der Liste der Verweise aufgeführt ist.

_________________
Gruß Andreas

Das besondere Erleben.
Gast, neugieriger :)
Gast


Verfasst am:
23. Jan 2008, 10:19
Rufname:

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

Und was mache ich, wenn ich nicht an einem Privatrechner sitze sondern in einem recht großen Firmennetzwerk und daher keine sachen nachinstallieren kann?
Andreas.Fischer
Outlook - Moderator


Verfasst am:
23. Jan 2008, 10:29
Rufname:
Wohnort: Berlin

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

Hallo,

Dann deine Admins fragen. Denn ohne die CDO sieht es schlecht aus.

_________________
Gruß Andreas

Das besondere Erleben.
w_winzig
Gast


Verfasst am:
22. Feb 2008, 11:06
Rufname:

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office 2003

Hi, Very Happy
das Script ist soweit toll. Leider muß ich es jedesmal von hand starten, sonst funktioniert es nicht.
Andreas.Fischer
Outlook - Moderator


Verfasst am:
25. Feb 2008, 08:36
Rufname:
Wohnort: Berlin

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

Hallo,

Das sollte aber auch automatisch funktionieren, wenn alles richtig eingegeben wurde.

_________________
Gruß Andreas

Das besondere Erleben.
w_winzig
Gast


Verfasst am:
25. Feb 2008, 13:31
Rufname:

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office 2003

Ja, leider aber nicht. OL2003 mit SP2. Wenn ich das Marko von Hand starte, dann wird der AbwesenheitsAssi gestartet und beim nächsten start erscheint der entsprechnde Hinweis.
Andreas.Fischer
Outlook - Moderator


Verfasst am:
25. Feb 2008, 14:14
Rufname:
Wohnort: Berlin

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

Hi,

Probiere es mal mit dieser abgewandelten Variante. Hier wirst du gefragt, ob du OutofOffice aktivieren willst:
Code:
Sub Application_Quit()
Dim objsession As MAPI.Session
Set objsession = Application.CreateObject("MAPI.Session")
Call objsession.Logon(, , False, False)
If MsgBox("Soll der Abwesenheitsassistent eingeschaltet werden?", vbYesNo, "Auf Wiedersehen!") = vbYes Then
objsession.OutofOffice = True       'Abwesenheitsassistent aktivieren
objsession.OutOfOfficeText = "Test" 'Text der Übermittelt wird.
Else
End If
Call objsession.Logoff
End Sub

_________________
Gruß Andreas

Das besondere Erleben.
w_winzig
Gast


Verfasst am:
25. Feb 2008, 16:35
Rufname:

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office 2003

Hi,
leider auch keine Reaktion. Muss ich sonst noch etwas beachten?
Die Makro Sicherheit steht auf niedrig.

Danke schonmal für deine Mühe

Gruß
Andreas.Fischer
Outlook - Moderator


Verfasst am:
25. Feb 2008, 16:46
Rufname:
Wohnort: Berlin

AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office XP (2002)

Und das Makro ist auch unter DieseOutlookSitzung eingetragen oder in einem Modul?
_________________
Gruß Andreas

Das besondere Erleben.
w_winzig
Gast


Verfasst am:
26. Feb 2008, 09:14
Rufname:


AW: Abwesenheitsassisten - AW: Abwesenheitsassisten

Nach oben
       Version: Office 2003

Hi,
das wars! Es stand natürlich nicht an der richtigen Stelle. Manchmal sind es eben die Kleinigkeiten die den Tag verschönern.

Danke für deine Hilfe.

Gruß
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA