VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
VBA Outlook - ItemChange und ItemRemove Event	24.05.2013 14:20:43	Zenic
VBA Outlook - ItemChange und ItemRemove Event	24.05.2013 15:19:53	Gast89549
VBA Outlook - ItemChange und ItemRemove Event	24.05.2013 15:27:06	Gast65957
VBA Outlook - ItemChange und ItemRemove Event	24.05.2013 15:48:45	Gast89549
VBA Outlook - ItemChange und ItemRemove Event	27.05.2013 10:41:03	Zenic
VBA Outlook - ItemChange und ItemRemove Event	28.05.2013 09:53:29	Zenic

Ansicht des Beitrags:

Von:
Gast89549

Datum:
24.05.2013 15:48:45

Views:
1125

Rating:

Antwort:

Thema:
VBA Outlook - ItemChange und ItemRemove Event

Dann denke ic das hilft dir weiter:

Option Explicit

Private WithEvents m_objCalFolder As Outlook.Folder
Private m_objDelFolder As Outlook.Folder

Private Sub Application_Quit()
  Set m_objCalFolder = Nothing
  Set m_objDelFolder = Nothing
End Sub

Private Sub Application_Startup()
  With ThisOutlookSession.GetNamespace("MAPI")
    Set m_objCalFolder = .GetDefaultFolder(olFolderCalendar)
    Set m_objDelFolder = .GetDefaultFolder(olFolderDeletedItems)
  End With
End Sub

Private Sub m_objCalFolder_BeforeItemMove(ByVal Item As Object, ByVal MoveTo As MAPIFolder, Cancel As Boolean)
  
  Dim bolDel As Boolean
  
  If TypeOf Item Is Outlook.AppointmentItem Then
  
    If MoveTo Is Nothing Then
      bolDel = True
    ElseIf MoveTo = m_objDelFolder Then
      bolDel = True
    End If
  
  End If
  
  If bolDel Then
    
    MsgBox Item.Subject
    
  End If
  
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
VBA Outlook - ItemChange und ItemRemove Event	24.05.2013 14:20:43	Zenic
VBA Outlook - ItemChange und ItemRemove Event	24.05.2013 15:19:53	Gast89549
VBA Outlook - ItemChange und ItemRemove Event	24.05.2013 15:27:06	Gast65957
VBA Outlook - ItemChange und ItemRemove Event	24.05.2013 15:48:45	Gast89549
VBA Outlook - ItemChange und ItemRemove Event	27.05.2013 10:41:03	Zenic
VBA Outlook - ItemChange und ItemRemove Event	28.05.2013 09:53:29	Zenic