Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

VBA: Prozedur Kalendereintrag
#1
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
Antwortento top
#2
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
[-] Folgende(r) 1 Benutzer sagt Danke an silcono für diesen Beitrag:
  • Aces
Antwortento top
#3
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
Antwortento top
#4
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
[-] Folgende(r) 1 Benutzer sagt Danke an silcono für diesen Beitrag:
  • Aces
Antwortento top
#5
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
Antwortento top
#6
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.
[-] Folgende(r) 1 Benutzer sagt Danke an Rabe für diesen Beitrag:
  • silcono
Antwortento top
#7
@Rabe

Danke xDDDD

Gruß Silcono
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste