Office: Mit Makro Emails durchsuchen und in Exceltabelle löschen

Hallo allerseits und guten Abend,

ich habe im Grunde drei Fragen bzw. Probleme und fange deshalb einfach mal von vorne an:

Ich habe in Excel eine Tabelle mit Unternehmen und dazu jeweils einen Ansprechpartner mit Vor- und Nachnamen. Mit diesem Unternehmensnamen und dem Vor- und Nachnamen habe ich verschiedene Emailadresskombinationen generiert.

Nun möchte ich eine Serienemail an alle von mir generierten Emails mit dazugehöriger Anredeformel erstellen.

Ich denke das geht am besten mit Word und der Serienemailfunktion?

Das nächste Problem ist, dass wahrscheinlich von diesen ca. 10 generierten Emails 9 falsch sind. Diese werden zurückkommen und müssen irgendwie gefiltert werden. Also es müssen dann zu jedem Namen die 9 falschen Emails gelöscht werden, sodass nur noch die 1 richtige übrig bleibt.
Also müssten die rückemail ("deliveremails" und "mailerdamons") in ihrem textkörper nach der falschen emailadresse durchsucht, diese dann gespeichert und in excel gelöscht werden. Textkörper deshalb, da ja die emails eben vom absender deliveremail oder mailerdamon stammen und nur im text selbst steht an welche email nicht zugestellt werden konnte.

Ich habe keinen blassen Schimmer und hoffe stark auf die kompetenten Teilnehmer dieses Forums

Mit besten Grüße

Euer Markus

:)

 

Hallo!

Warum fragst du die Leute nicht einfach nach den E-Mail Adressen? Dann kannst du/uns dir die Arbeit hier sparen!

Es hört sich für mich ziemlich nach einer Art Spam-Generator an. *nene Ob das nun deine Absicht ist oder nicht. *mad.gif*

Gruß
rastrans

 

Hallo,

nein, es handelt sich dabe nicht um Spam. Es geht um eine europaweite Umfrage und Marktanalyse zum Thema Hedgefonds im Zuge meiner Promotion.

Ich muss die Emails einfach filtern. Ich weiß zwar wie ich mittels VBA in einzelnen Emails nach einem @ suche. Weiß aber nicht wie ich den gesamten Text links und rechts von dem @ markieren kann. Weiterhin weiß ich dann, wenn ich die Adresse als Variable gespeichert habe, wie ich diese Variable in Excel aufrufen kann.

Viele Grüße

Markus

 

Hi Markus,

weshalb denn markieren? Wenn Du das @ gefunden hast, das erste Leerzeichen links und rechts davon suchen lassen und den Text-INHALT zwischen diesen Leerzeichen in einer Variablen speichern...
Zum Suchen nach dem Leerzeichen ab @, bzw. vor dem @ sieh Dir mal die Funktionen InStr und InStrRev an.

 

HAllo


Ich habe keine Ahnung wie du die komplette E_mail in einen String eingelesen bekommst, aber wenn du sie erstmal drin hast wirds einfach die E-Mailadressen rauszufiltern.

Hier hast du mal was zum basteln....
Ich denke das könnte dir weiterhelfen:


' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Public Sub test()
Dim sStr
Dim pttrn
sStr = "abc testen@aol.com 123@cbm.deh test kjkllm 1234ert.123@web.de"
pttrn = "\w+\.*\w+@[a-zA-Z_]+?\.[a-zA-Z]{2,3}"
MsgBox Join(Email_Filter(pttrn, sStr), vbCrLf)
End Sub

Function Email_Filter(ByVal a As String, ByVal b As String) As Variant
Dim tmp
Dim Regex
Dim M
Dim Treffer
Set Regex = CreateObject("Vbscript.regexp")
With Regex
.Pattern = a
.IgnoreCase = True
.Global = True
Set Treffer = .Execute(b)
For Each M In Treffer
tmp = tmp & M.Value & vbTab
Next
End With
Email_Filter = Split(tmp, vbTab)
End Function


ransi

 

Moin, Halberstram,

Outlook-Mails nach Excel exportieren (auto) - dazu habe ich die Suche im Excel-Bereich nach den Begriffen Outlook Mails genutzt (40 Fundstellen)...

 

Super, damit komme ich schon mal ein Stück weiter.

Wenn ich Selection als Variable speicher, dann habe ich auch die gesamte Email drin. Jetzt weiß ich aber noch nicht wie ich diese Variable aus meinem Makro in Outlook in eine Makro in Excel einbinden kann!

Viele Grüße

Markus

 

Super Jinx,

nur funktioniert bei mir die Variablendeklaration (OLF) am anfang nicht. Ich bin eigentlich blutiger VBA Anfänger und komme dort schon nicht weiter.

Danke

 

Moin, Halberstram,

das Beispiel verwendet Early Binding: bitte in die VBE (Entwicklungsumgebung) wechseln, dort in der Menüleiste unter Extras den Punkt Verweise aufrufen und einen Haken beim Outlook Deiner Wahl/Installation: Microsoft Outlook 9.0 Object Library steht bei mir, weil ich noch Outlook2000 nutze...

 

Aha, Danke!

Nur so aus Interesse, was ist denn der MAPI - Folder?

Leider wird der Textkörper nicht importiert, sondern nur Betreff, Absender, Empfänger und Datum. Gibt es da eine Möglichkeit. Da sich die falsche, und somit zu löschende Email im Textkörper befindet.

Gruß

 

Moin, Halberstram,

siehe die Erklärung in der Wikipedia.

Eine weitere Spalte einfügen und dort die Eigenschaft .Body auslesen:

Code:

 

perfekt, Danke!