Mails automatisch löschen

Moderator: ModerationP

Mails automatisch löschen

Beitragvon yco1993 » 15. Apr 2018, 14:18

Hallo zusammen
Ich habe folgende Problematik:
Im Ordner "Kundenanfragen" werden die erledigten Anfragen mit der Rubrik "Gelöst" markiert.
Nach 20 Tagen werden diese Mails manuell gelöscht.
Wie kann ich diesen Vorgang automatisieren?

Danke für eure Hilfe
yco1993
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 21
Registriert: 06. Jan 2017, 00:16

Re: Mails automatisch löschen

Beitragvon yco1993 » 19. Apr 2018, 20:01

Hallo zusammen
Hab mal diesen Code gefunden und angepasst, aber wie bringe ich jetzt noch die Prüfung auf die Kategorie rein?


Code: Alles auswählen
Public Sub DeleteItemsAfter20Days()

Dim olApp          As Outlook.Application
Dim olName         As Outlook.NameSpace
Dim olFolder       As Outlook.MAPIFolder
Dim lngItemsCount  As Outlook.MailItem


   
   Set olApp = Application
   Set olName = olApp.GetNamespace("MAPI")
   Set olFolder = olName.Session.Folders("Kontoname").Folders("Kundenanfragen")
   

   For Each lngItemsCount In olFolder.Items
       If Date - lngItemsCount.ReceivedTime > 20 Then lngItemsCount.Delete
   Next lngItemsCount


End Sub

yco1993
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 21
Registriert: 06. Jan 2017, 00:16

Re: Mails automatisch löschen

Beitragvon mmarkus » 20. Apr 2018, 11:00

Ich habe dir ja einen Link mit Mustercodes gegeben.

Da gibt es 8 Codes bei denen es um Kategorien geht.

Schau dir die Codes an, und versuche sie zu verstehen, dann sollte es sich lösen lassen.
Du solltest es nicht anstreben, irgend was zu kopieren, sondern die Arbeitsweise zu verstehen.

http://www.vboffice.net/de/developers
ms access what else
mmarkus
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1529
Registriert: 16. Apr 2012, 16:07
Wohnort: Oberösterreich


Zurück zu Outlook Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste