mit #VBA in #Outlook die #Erinnerung #entfernen


geht so:

Sub Remove_Reminder()
 
Dim olApp As Object
Dim myNameSpace As Object
Dim myFolder As Object
Dim myAppointments As Object
Dim myAppointment As Object
 
Set olApp = CreateObject("Outlook.Application")
Set myNameSpace = olApp.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(9)
Set myAppointments = myFolder.Items
For Each myAppointment In myAppointments
    If myAppointment.Start = dteZeit Then
        myAppointment.ReminderSet = False
        myAppointment.Save
    End If
Next
olApp.Quit
Set myAppointment = Nothing
Set myAppointments = Nothing
Set myFolder = Nothing
Set myNameSpace = Nothing
Set olApp = Nothing
 
End Sub

Über katharinakanns

Microsoft Office Master Specialist mit viel Verständnis für IHR Geschäft - ich analysiere IHRE Situation, optimiere IHRE Prozesse, automatisiere IHRE Routineaufgaben, finde IHRE Lösung, unterrichte IHRE MitarbeiterInnen, mache Vorlagen mit IHRER CI, spare IHRE Zeit und IHR Geld. Ich freue mich darauf, SIE kennenlernen zu dürfen :-)
Dieser Beitrag wurde unter Outlook, VBA abgelegt und mit , , , , , , , verschlagwortet. Setze ein Lesezeichen auf den Permalink.

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden /  Ändern )

Google Foto

Du kommentierst mit Deinem Google-Konto. Abmelden /  Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden /  Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden /  Ändern )

Verbinde mit %s