Outlook XP, VBA (Open-Anweisung für Termin- und Aufgabenformular)

Dieses Thema Outlook XP, VBA (Open-Anweisung für Termin- und Aufgabenformular) im Forum "Windows XP Forum" wurde erstellt von spa, 14. Juni 2004.

Thema: Outlook XP, VBA (Open-Anweisung für Termin- und Aufgabenformular) Hallo Leute Befinde mich im VBA-Editor von Outlook XP und komme einfach nicht weiter. Meine Frage: Wie erstelle...

  1. spa
    spa
    Hallo Leute

    Befinde mich im VBA-Editor von Outlook XP und komme einfach nicht weiter.

    Meine Frage:
    Wie erstelle ich eine Prozedur, welche gestartet wird sobald ein neues oder bestehendes Element (Termin und Aufgabe) geöffnet wird?

    Bemerkung:
    In Excel löse ich das ganze mit der Workbook_Open-Anweisung unter Diese Arbeitsmappe. In Word mit Document_Open in ThisDocument. Aber eben. Wie funzt das mit dem Outlook?

    Mein unbrauchbarer Versuch:
    'Öffnet einen neuen Termin und zeigt eine Msgbox an
    Sub Test1()
    Set myolapp = CreateObject(Outlook.Application)
    Set myNameSpace = myolapp.GetNamespace(MAPI)
    Set myPrivateFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)
    Set myPrivateItem = myPrivateFolder.Items.Add
    myPrivateItem.Display
    MsgBox Element geöffnet, vbInformation, Test
    End Sub

    Wäre super wenn mir jemand von Euch Hilfestellung geben könnte.

    Gruss
    Michael Spa
     
  2. spa
    spa
    Habe die Lösung soeben aus anderer Quelle erhalten (hurra):

    'Alles in DieseOutlooksitzung kopieren
    Dim WithEvents myInspectors As Outlook.Inspectors

    Private Sub myInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim objItem As Object
    Set objItem = Inspector.CurrentItem
    MsgBox TypeName(objItem)
    End Sub

    Private Sub Application_Startup()
    Set myInspectors = Application.Inspectors
    End sub

    Gruss
    Michael Spa
     
  3. Ola und Dank für die Lösung
    ;D
     
Die Seite wird geladen...

Outlook XP, VBA (Open-Anweisung für Termin- und Aufgabenformular) - Ähnliche Themen

Forum Datum
OUTLOOK - PROFILE ERSTELLEN .... Windows 10 Forum 1. Nov. 2016
Outlook holt keine Mails mehr ab (0x80004005) Microsoft Office Suite 19. Juni 2016
Outlook 2010 Sicherheitszertifikat Zielprinzipalname Software: Empfehlungen, Gesuche & Problemlösungen 16. Juni 2016
Weg von Outlook 7 - aber wohin? E-Mail-Programme 10. Juni 2016
Synchronisierung Outlook Mail Windows 10 Forum 3. Mai 2016