Clever-Excel-Forum

Normale Version: VBA: Prozedur Kalendereintrag
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo zusammen,

ich habe folgendes Problem: Ich möchte den VBA-Code für die Aktion eines Doppelklicks auf einen Kalendereintrag wissen. Es soll bspw. eine Internetseite geöffnet werden, wenn ich auf einen Kalendereintrag bzw. einen "leeren" Tag in Outlook klicke. Mir genügt es, wenn Ihr mir verratet wie die Prozedur lautet, die hinter dieser Aktion steckt.

Vielen Dank und beste Grüße
Aces
Hallo,

ich hab da mal was gefunden. Einfach bei ThisOutlookSession einfügen:

Code:
Private WithEvents m_Inspectors As Outlook.Inspectors
Private WithEvents m_Inspector As Outlook.Inspector

Private Sub Application_Startup()
 Set m_Inspectors = Application.Inspectors
End Sub

Private Sub m_Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
 Set m_Inspector = Inspector
     MsgBox "Hallo"
End Sub
Die Prozedur 'Application_Startup einmal rennen lassen. Wenn du nun einen Doppelklick auf ein Datum in der Monatsansicht machst, sollte die MsgBox auftauchen.

Quelle
Grüße
Silcono
Hi, ich habe den Code in ThisOutlookSession eingefügt, allerdings finde ich die Prozedur nicht unter Makros ausführen oder wie soll ich diese ausführen. Entschuldige die Unwissenheit.

Beste Grüße
Aces
Code:
Private WithEvents m_Inspectors As Outlook.Inspectors
Private WithEvents m_Inspector As Outlook.Inspector

Private Sub Application_Startup()   <<<<<<<<<<<<<<<<<----------------Hier rein klicken und dann ausführen.
 Set m_Inspectors = Application.Inspectors
End Sub

Private Sub m_Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
 Set m_Inspector = Inspector
     MsgBox "Hallo"
End Sub
Wenn du im Code bei Application_Startup reinklickst und dann auf ausführen gehst, sollte es funktionieren.
Dann einfach mal einen Tag im Monatskalender mit Doppelklick anhauen und dann sollte die MsgBox kommen.
Grüße
Silcono
Hallo, leider sagt er mir "Fehler beim Kompilieren: Sub oder Function nicht definiert." und markiert mir die dritte Zeile des Codes. Option Explicit in der ersten Zeile habe ich bereits entfernt.

Beste Grüße
Aces
Hi,

dann versuche mal, das hier zu entfernen:

<<<<<<<<<<<<<<<<<----------------Hier rein klicken und dann ausführen.

ob es dann geht.

Oder setze ein ' davor.

[edit]
später:
Bei mir hat das einwandfrei funktioniert.
@Rabe

Danke xDDDD

Gruß Silcono
Cool, danke für die Fragen und Antworten. Probiere das gleich selbst auch mal aus.