Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suchen und Ersetzen in neuer E-Mail
zurück: outlook alternativ auch Word senden und automatisch drucken weiter: Tabelle aus Email (Outlook) in Excel kopieren Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
PodDog
Gast


Verfasst am:
16. Okt 2009, 15:58
Rufname:

Suchen und Ersetzen in neuer E-Mail - Suchen und Ersetzen in neuer E-Mail

Nach oben
       Version: Office 2007

Hallo,

ich suche ein Makro mit dem ich Suchen und Ersetzen in einer Neuen E-Mail (die ich zuvor per Vorlage geöffnet habe). Gesucht soll nach einem "x" und durch mein Zwischenspeicher ersetzt werden.

Ich hoffe ihr könnt mir weiter helfen...

Vielen Dank im voraus...
Jason
Gast


Verfasst am:
11. Nov 2009, 10:48
Rufname:


AW: Suchen und Ersetzen in neuer E-Mail - AW: Suchen und Ersetzen in neuer E-Mail

Nach oben
       Version: Office 2007

Hi,

zum Suchen eignen sich Regular Expression besonders gut:

hier ein Beispiel, das eine Email nach einem Wort/Buchstaben durchsucht:

(ACHTUNG: Referenzen setzten: "Microsoft VBScript Regular Expressions 5.5")

GESUCHTER BUCHSTABE: a

Public Sub MailDurchsuchen()
Dim MailSel As Selection
Dim olMail As MailItem

Dim regexBuchstabe As RegExp
Dim matches As MatchCollection
Dim x as integer
Dim gefunden As String

Set MailSel = ActiveExplorer.Selection

' RegularExpression: "a"
Set regexBuchstabe = New RegExp
With regexBuchstabe
.Pattern = ".*\ba\s+(\w+)\b.*" ' (....) Klammer definiert den gesuchten Wert.
'Die Symbole davor definieren die Position des gesuchten Wertes
.MultiLine = True
.IgnoreCase = True
End With

'1) a-Schleife: Alle markierten Mail-Items durchlaufen

For x = 1 To MailSel.Count
Set o = MailSel.Item(x)
If TypeName(o) Like "*MailItem*" Then ' Nur MailItems weiter betrachten
Set olMail = o
If regexWKN.Test(olMail.Body) = True Then ' Format-Test
Set matches = regexBuchstabe.Execute(olMail.Body) ' RegEx-Matches
'werden in eine Variable übergeben
If matches.Count > 0 Then
gefunden= matches(0).SubMatches(0) 'Matches in String übergeben
debug.print gefunden
End If
End If
End If
Next x
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Outlook Mail: Anlage einer E-Mail mit Tastenkombination oder Makro öffnen 0 elhe 2353 30. März 2005, 16:01
elhe Anlage einer E-Mail mit Tastenkombination oder Makro öffnen
Keine neuen Beiträge Outlook Mail: Habe Probleme bei Email versenden mit Outlook 2003 3 Gast 1665 17. Feb 2005, 13:25
Amethyst Habe Probleme bei Email versenden mit Outlook 2003
Keine neuen Beiträge Outlook Mail: E-Mail verschicken über BCC - Fehler 2 wastl 2143 12. Feb 2005, 12:24
macdeal E-Mail verschicken über BCC - Fehler
Keine neuen Beiträge Outlook Mail: Outlook 2003 - Probleme beim Lesen neuer Nachrichten 2 Gast 725 07. Feb 2005, 21:27
Gast Outlook 2003 - Probleme beim Lesen neuer Nachrichten
Keine neuen Beiträge Outlook Mail: Email Versenden - Fehlermeldung 13 Mario 6603 02. Feb 2005, 13:21
Christi@n Email Versenden - Fehlermeldung
Keine neuen Beiträge Outlook Mail: Outlook 2003: E-Mail Anhänge einfügen und ausdrucken 6 Gast_2005 5698 27. Jan 2005, 17:22
Christi@n Outlook 2003: E-Mail Anhänge einfügen und ausdrucken
Keine neuen Beiträge Outlook Mail: eMail automatisch zu einem bestimmten Zeitpunk versenden 5 UliOrca 2739 24. Jan 2005, 15:01
kraemer eMail automatisch zu einem bestimmten Zeitpunk versenden
Keine neuen Beiträge Outlook Mail: E-Mail Nachrichten nach einer gewissen Zeit abrufen 5 Biker236 2453 05. Dez 2004, 20:51
wolf-it E-Mail Nachrichten nach einer gewissen Zeit abrufen
Keine neuen Beiträge Outlook Mail: OutlookAntworten über eine andere E-Mail adresse verschicken 5 klient 5619 09. Nov 2004, 00:27
Amethyst OutlookAntworten über eine andere E-Mail adresse verschicken
Keine neuen Beiträge Outlook Mail: Outlook 2003 Email HTML: Kopfzeile bei Ausdruck 1 bibo852 2385 22. Okt 2004, 12:51
lothi Outlook 2003 Email HTML: Kopfzeile bei Ausdruck
Keine neuen Beiträge Outlook Mail: suchen in outlook 2 planaigeist 581 20. Sep 2004, 13:59
carmina suchen in outlook
Keine neuen Beiträge Outlook Mail: Outlook 2003: Nach Anhängen suchen?! 1 Akira 1615 09. Sep 2004, 12:39
macdeal Outlook 2003: Nach Anhängen suchen?!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: PHP Forum