Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VB-Makro für Outlook gesucht - Suche Mails nach "Angezeigtem Namen" und Lösche alle bis auf die neuesten Anzahl n

Frage Entwicklung VB for Applications

Mitglied: volker01

volker01 (Level 1) - Jetzt verbinden

18.01.2015 um 17:22 Uhr, 1024 Aufrufe, 3 Kommentare, 1 Danke

Hallo,

ich erhalte täglich Mails mit Sicherungs-Logs und suche ein VB-Makro das folgendes können soll:

Suche - in einer pst in einem Ordner der Wahl - nach Mails.
Durchsuche diesen Ordner nach "Angezeigte Namen" und Lösche von jedem anzeigten Namen alle Mails – bis auf die n neuesten.

Absender- und Empfänger Adresse sind bei allen Mails gleich.
Die eingehenden Mails werden bei Eintreffen von einer Outlook Regel geprüft
und in eine andere PST mit Namen „KundenSicherungen“ dort in einen Unterordner mit Namen „_Alle“ verschoben.

Wer kann helfen?

Viele Grüße
Volker
Mitglied: colinardo
18.01.2015, aktualisiert um 18:31 Uhr
Hallo Volker,
lässt sich machen
Das sieht dann z.B. so aus ... (Kommentare findest du im Code)
01.
Sub keepNewestXMailsFromIndividualSenders() 
02.
    Dim folderMails As Folder, mail As MailItem, dic As Object, intKeep As Integer, itms As items, x As Integer, i As Integer, keys As Variant 
03.
    'Anzahl Mails die pro Sendername erhalten bleiben sollen 
04.
    intKeep = 5 
05.
    'Dictionary 
06.
    Set dic = CreateObject("Scripting.Dictionary") 
07.
    'Ordner aus dem die Mails verarbeitet werden 
08.
    Set folderMails = Application.Session.Stores("KundenSicherungen").GetRootFolder.Folders("_Alle") 
09.
     
10.
    'lade alle individuellen Sendernamen in ein Dictionary 
11.
    For Each mail In folderMails.items 
12.
        If Not dic.Exists(mail.SenderName) Then 
13.
            dic.add mail.SenderName, "" 
14.
        End If 
15.
    Next 
16.
     
17.
    'Iteriere über das Dictionary 
18.
    keys = dic.keys 
19.
    For i = 0 To dic.count - 1 
20.
        'Mails nach Sendername filtern 
21.
        Set itms = folderMails.items.Restrict("[Sendername] = '" & keys(i) & "'") 
22.
        If Not itms Is Nothing Then 
23.
            ' wenn die Anzahl der zu behaltenen Mails den angegebenen Wert übersteigt 
24.
            If itms.count > intKeep Then 
25.
                'Mails nach Datum absteigend sortieren 
26.
                itms.Sort "[ReceivedTime]", True 
27.
                'Überzählige Mails des Sendernamens löschen 
28.
                For x = itms.count To intKeep + 1 Step -1 
29.
                    itms.Item(x).Delete 
30.
                Next 
31.
            End If 
32.
        End If 
33.
    Next 
34.
    Set dic = Nothing 
35.
End Sub
Grüße Uwe
Falls der Beitrag gefällt, seid so nett und unterstützt mich durch eine kleine Spende / If you like my contribution please support me and donate
Bitte warten ..
Mitglied: volker01
18.01.2015 um 19:21 Uhr
Hallo colinardo,

bis restlos begeistert.
funktioniert wie gewünscht.

Viele Grüße
Volker

PS: Spende ist unterwegs.
Bitte warten ..
Mitglied: colinardo
18.01.2015, aktualisiert um 19:24 Uhr
Hallo Volker,
bis restlos begeistert.
funktioniert wie gewünscht.
freut mich
PS: Spende ist unterwegs.
Herzlichen Dank !!

Viel Erfolg weiterhin.
Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
Exchange Server
E-Mail-Adresse statt Angezeigter Name?
gelöst Frage von sunicsExchange Server7 Kommentare

Hallo zusammen, ich habe eine Frage betreffend Anzeigename. Im Einsatz ist ein Exchange Server 2013 auf einem Windows Server ...

Outlook & Mail
Outlook Kontakte suchen für Mail
gelöst Frage von Micky770Outlook & Mail3 Kommentare

Kann mir mal irgendwer sagen, wie ich ich im Outlook in Verbindung mit Exchange, im "an" oder "cc" Feld, ...

Microsoft Office
Excel-Makro für Textdatenbank gesucht
gelöst Frage von FishersFritzMicrosoft Office2 Kommentare

Hallo zusammen, ich benötige mal wieder Eure Hilfe. Ich suche für ein Autohaus eine einfache Möglichkeit, eine Liste mit ...

Microsoft Office
Probleme bei Makro in Outlook zum kopieren von Daten aus Mail in Excel
gelöst Frage von fiAScoMicrosoft Office6 Kommentare

Servus beinander Ich habe eine Frage bzw möchte folgendes haben/machen. Ich würde gern ein Makro in Outlook haben, welches ...

Neue Wissensbeiträge
Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 8 StundenInternet2 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 12 StundenDSL, VDSL1 Kommentar

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Windows 10

Microsoft bestätigt DMA-Policy-Problem in Win10 v1709

Information von DerWoWusste vor 12 StundenWindows 10

Wer sein Gerät mit der DMA-Policy absichert, bekommt evtl. Hardwareprobleme in v1709 von Win10. Warum? Weil v1709 endlich "richtig" ...

Verschlüsselung & Zertifikate

Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows

Information von ticuta1 vor 15 StundenVerschlüsselung & Zertifikate

Interessant Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows SSH-Kommando in CMD.exe und PowerShell

Heiß diskutierte Inhalte
Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement21 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...

Windows Server
Anmeldung direkt am DC nicht möglich
Frage von ThomasGrWindows Server15 Kommentare

Hallo, ich habe bei unserem Server 2016 Standard ein Problem. Keine Ahnung wie das auf einmal passiert ist. Ich ...

TK-Netze & Geräte
VPN-fähige IP-Telefone
Frage von the-buccaneerTK-Netze & Geräte14 Kommentare

Hi! Weiss noch jemand ein VPN-fähiges IP-Telefon mit dem man z.B. einen Heimarbeitsplatz gesichert anbinden könnte? Habe nur einen ...