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

Emails mit selbem Betreff filtern im Posteingang,aktuellstes behalten, altes verschieben

Mitglied: 62741

62741 (Level 1)

14.03.2008, aktualisiert 22.10.2008, 4155 Aufrufe, 6 Kommentare

Hallo allerseits,

Wie bereits im Titel erwähnt suche ich eine Möglichkeit, eintreffende Emails im Outlook zu filtern, und bei solchen mit dem selben Betreff nur immer das aktuellste zu behalten.

Es geht um automatische Emailbenachrichtigungen, wir werden immer über Aktualisierungen informiert, da kommen täglich hunderte Mails, und da bräuchte ich jeweils nur das aktuellste.

Wisst ihr ob man:
- Wenn ein Email eintrifft abfragen kann ob ein Email mit demselben Betreff im Posteingang schon vorhanden ist

- Falls ja, das bereits vorhandene Email in einen Ordner verschieben und das neu eingetroffene (aktuellste Info) im Posteingang behalten

Ich hoffe ihr habt eine Idee.

Danke und liebe Grüsse

Lucy
Mitglied: Dani
15.03.2008 um 16:36 Uhr
Hi Lucy,
wie sind denn die Mails in deinem Posteingang sortiert?! Nach Erhaltsdatum, Titel, etc....
Am Einfachsten wäre nach DAtum, somit würde auto. die neuste Mail oben stehen.


Grüße
Dani
Bitte warten ..
Mitglied: 62741
17.03.2008 um 11:51 Uhr
Hallo Dani,

Danke für deine Antwort. Die Mails sind nach Datum sortiert, und ja genau, das aktuellste ist somit immer zu oberst! Hast du eine Idee?

Grüsse
Bitte warten ..
Mitglied: Dani
17.03.2008 um 19:54 Uhr
Abend Lucy,
hab mal mein Fall ein wenig umgestrickt. Testen konnte ich es nicht, weil meine Mails mir heilig sind.

01.
	'Deklaration
02.
    Dim FolderInbox As MAPIFolder
03.
    Dim FolderDest As MAPIFolder
04.
    
05.
    Dim Mails As Outlook.Items
06.
    Dim Mail As Object
07.
	Dim Jump as String
08.
    
09.
	
10.
    'Outlook als Object erstellen
11.
    Set MyOLApp = CreateObject("Outlook.Application")
12.
    Set myNameSpace = MyOLApp.GetNamespace("MAPI")
13.
    
14.
    'Default-Mailbox nehmen.. manche haben nur eine, andere ein Dutzend
15.
    ' die aktive Mailbox laut Profil ist logischerweise der Parent (neudeutsch für "Vadder" vom "Posteingang"
16.
    Set FolderInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
17.
    Set FolderDest = FolderInbox.Parent.Folders("Gelöschte Objekte")
18.
    
19.
    
20.
	jump="0"
21.
    Set Mails = FolderInbox.Items
22.
    Set Mail = Mails.Find("[Subject]  <> '\-\-\-\-\-\-\-\-\-\-\-\-/-/-/-/-/-/-/-/-/-/-/' ")
23.
    Do While TypeName(Mail) <> "Nothing"
24.
	
25.
		If (1, jump, "0", vbTextCompare) <> 0 Then 
26.
			jump=1
27.
			
28.
		ElseIf (InStr(1, Mail.Subject, "Dein BETREFF", vbTextCompare)) <> 0 Then
29.
            Mail.UnRead = False
30.
            Mail.Move FolderDest
31.
			
32.
        End If
33.
		
34.
		'Makiert die nächste Mail
35.
        Set Mail = Mails.FindNext
36.
    Loop
37.
 
38.
	
39.
    'Variablen löschen
40.
    Set myNameSpace = Nothing
41.
    Set FolderDest = Nothing
42.
    
43.
    Set Mails = Nothing
44.
    Set Mail = Nothing
Nicht vergessen, die entsprechenden Stellen anzupassen!


Grüße
Dani
Bitte warten ..
Mitglied: 62741
18.03.2008 um 13:07 Uhr
Hallo Dani,

Danke für den Code, ich habs jetzt mal ausprobiert, bei folgender Zeile bringt mir Outlook jedoch eine Fehlermeldung (Fehler beim Komplimieren, Syntaxfehler):

If (1, jump, "0", vbTextCompare) <> 0 Then

So weit ich den Code verstanden habe, wird der Betreff fest drin stehen.. ich habe aber mehrere solcher fälle mit diversen betreffs, muss ich dann jeden betreff im code einbauen?

liebe Grüsse

Lucy
Bitte warten ..
Mitglied: Dani
18.03.2008 um 20:14 Uhr
Abend,
ändere mal die Pasche "jump="0"" durch "Set jump="0" ab. Dann sollte es gehen. Im Moment schon...schau einfach mal bei meinem alten Beitrag nach. Da hat bastla eine Schleife drum rum gebaut. *g*


Grüße
Dani
Bitte warten ..
Mitglied: paty84
22.10.2008 um 09:02 Uhr
Hallo Dani

Ich beschäftige mich mit dem selben Problem.

Nach dem Ändern der Zeile:
If (1, jump, "0", vbTextCompare) <> 0 Then
in
If StrComp(Jump, "0", vbTextCompare) <> 0 Then
habe ich dein Script zum Laufen gebracht.

Das Problem ist nun aber dass alle Mails mit dem genannten Betreff gelöscht werden und nicht die neuste Version im Posteingang stehen bleibt. Ist es überhaupt möglich eine Abfrage nach dem "Neusten", bzw nach dem Prinzip "is newer/older then" zu machen?

Gruss
Paty
Bitte warten ..
Ähnliche Inhalte
VB for Applications

Outlook VBA, Alternative zu NewMailEx, neue bereits gelesene Email im Posteingang

gelöst Frage von joha1908VB for Applications12 Kommentare

Hallo zusammen, ich habe ein Skript in VBA für Outlook, dass bei neuen Emails den PDF-Anhang unter bestimmten Bedingungen ...

Exchange Server

Exchange 2007 Abwesenheitsassistent Betreff ändern

Frage von AvaatarExchange Server2 Kommentare

Hallo zusammen, ich habe ein kleines Problem mit dem Abwesenheitsassitenten im Exchange 2007. Hintergrund: Wir haben ein zentrales Postfach ...

CMS

EGroupware Benachrichtigung einen Betreff vorgeben?

Frage von D1Ck3nCMS

Hallo zusammen, ich habe mal eine kleine Frage zur eGroupware Community Edition 1.8: Jeder der zu einem Termin eingeladen ...

Outlook & Mail

Outlook Berechtigung: Ordner Posteingang

gelöst Frage von BellociOutlook & Mail7 Kommentare

Hallo zusammen, ich verzweifel gerade an folgendem Szenario: Ich möchte gerne einer AD-Gruppe Berechtigungen auf den Ordner Posteingang eines ...

Neue Wissensbeiträge
Humor (lol)
Administrator.de Perlen
Tipp von DerWindowsFreak2 vor 2 TagenHumor (lol)4 Kommentare

Hallo, Heute beim stöbern auf dieser Seite bin auf folgenden Thread aus dem Jahre 2006 gestossen: Was meint ihr? ...

Erkennung und -Abwehr
OpenSSH-Backdoor Malware erkennen
Tipp von Frank vor 3 TagenErkennung und -Abwehr

Sicherheitsforscher von Eset haben 21 Malware-Familien untersucht. Die Malware soll Hintertüren via OpenSSH bereitstellen, so dass Angreifer Fernzugriff auf ...

iOS
WatchChat für Whatsapp
Tipp von Criemo vor 7 TageniOS5 Kommentare

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor!
Tipp von Criemo vor 7 TageniOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Heiß diskutierte Inhalte
Grafikkarten & Monitore
PCIe 1.0 Grafikkarte für 3840x2160
Frage von Windows10GegnerGrafikkarten & Monitore30 Kommentare

Hallo, mein Vater hat einen neuen Monitor gekauft, welcher eine native Auflösung von 3840*2160 hat. Diese muss jetzt auch ...

Windows Server
Dienstnamen und oder Deutsche und Englische Beschreibung in services.msc gleichzeitig anzeigen
gelöst Frage von vafk18Windows Server23 Kommentare

Guten Morgen, die Suche nach Diensten in services.msc gestaltet sich immer wieder schwierig, weil mir je nach Aufgabe die ...

Windows 10
Windows Enterprise 1809 Eval nicht bootbar
Frage von Sunny89Windows 1022 Kommentare

Hallo zusammen, bevor ich mich jetzt noch stundenlang rumärger wollte ich euch fragen, ob Ihr die gleichen Probleme habt ...

JavaScript
Javascript: WebSql
gelöst Frage von internet2107JavaScript14 Kommentare

Guten Morgen zusammen, zunächst einmal einen schönen dritten Advent. Ich habe ein Problem mit Javascript und WebSQL. Bisher habe ...