Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
In Mail nach Nummer suchen
Gehe zu Seite 1, 2, 3  Weiter
zurück: Mails als gelesen anzeigen nach einem Tag weiter: Attachment bzw. Anlagen Namen als Text im HTML Body OL 2007 Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
stefanbla81
Gast


Verfasst am:
18. Apr 2009, 17:09
Rufname:

In Mail nach Nummer suchen - In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Hallo zusammen,

ich würde gerne in einer Mail nach einer 6-stelligen Nummer suchen.

In Word kann ich das mit dem Makro-Rekorder aufzeichnen und habe auch Unterstützung hier im Forum erhalten.

Leider geht der Code aus Word nicht in Outlook.

Habt ihr eine Idee wie man in outlook suchen kann?

Code:

Private Sub CommandButton3_Click()
        'Selection.Find.ClearFormatting
        With Selection.Find
        .Text = "<[0-9]{6}>"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = True
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
   
    MsgBox (Selection.Find.Text)
End Sub
steffen0815
VBA-Programmierer


Verfasst am:
19. Apr 2009, 16:37
Rufname:


AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Hallo,
also ich vermute mal, dass man da in Outlook anders rangehen muss.
Auch denke ich, dass du die Projektnummer noch mal genauer spezifizieren musst, da in deinem Beispieltext (im Word-Forum) mehrere mindestens 6-stellige nummern vorkommen.
Hier mal ein Ansatz (alle "Wörter" die mit 6 Zahlen beginnen):
Code:
Dim objMail As Outlook.MailItem
Dim vString As Variant, i As Integer
Set objMail = Application.ActiveInspector.CurrentItem
If TypeName(objMail) = "MailItem" Then
    vString = Split(objMail.Body)
    For i = LBound(vString) To UBound(vString)
        If vString(i) Like "[0-9][0-9][0-9][0-9][0-9][0-9]*" Then _
                MsgBox vString(i)
    Next
End If

_________________
Gruß Steffen
stefanbla81
Gast


Verfasst am:
19. Apr 2009, 20:41
Rufname:

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Hi Steffen und danke für Deinen Beitrag.

Leider kann ich Deinen Code so nicht verwenden.

ICh bekomme den Fehler "Objektvariable oder With-Blckvariable nicht festgelegt".

Beim Debuggen ist der Fehler hier:
Code:

Set objMail = Application.ActiveInspector.CurrentItem
Gast



Verfasst am:
19. Apr 2009, 20:54
Rufname:

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Hallo,
du nutzt den Code in Outlook(VBA)?
Du hast die betreffende Mail geöffnet?

Gruß Steffen
stefanbla81
Gast


Verfasst am:
20. Apr 2009, 08:22
Rufname:


AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Hallo!!!

ok, ich muss die Mail mit Doppelklick mir ganz öffnen.

Es muss aber so sein, dass die Mail nicht ganz geöffnet ist sondern nur angezeigt wird in der Vorschau.

Was auch nicht geht ist, dass ich nur die 6-stellige Nummer ausgegeben bekomme.

Hast Du noch ne Idee?
Gast



Verfasst am:
20. Apr 2009, 08:56
Rufname:

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Hallo,
Zitat:
Was auch nicht geht ist, dass ich nur die 6-stellige Nummer ausgegeben bekomme.

Das hatte ich bereits beschrieben:
Zitat:
Auch denke ich, dass du die Projektnummer noch mal genauer spezifizieren musst, da in deinem Beispieltext (im Word-Forum) mehrere mindestens 6-stellige nummern vorkommen.


Woran genau soll das Programm deine Projektnummer erkennen.

Gruß Steffen
stefanbla81
Gast


Verfasst am:
20. Apr 2009, 09:08
Rufname:

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Hi!!

Also, ich versende eine Mail mit Text und Angaben zum Projekt.

Im Text kommt unter anderem vor:

Projektnummer: 250888-A

Wenn ich die Mail gesendet habe springe ich in gesendete Dokumente und möchte die Mail nicht mehr „ganz“ öffnen sondern nur anklicken.
Dann drücke ich meinen Button und möchte die 6-stellige Nummer nach dem Text „Projektnummer“ mir ausgeben lassen.
mumpel
Fortgeschrittener


Verfasst am:
20. Apr 2009, 10:23
Rufname: René
Wohnort: Lindau (B)

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Hallo!

Wenn Du auch im Lesebereich nach Nummern suchen möchtest, dann kannst Du das folgende Makro nehmen. Habe mal das Makro von steffen0815 angepasst.

Sub NummerSuchen()
Code:
Dim objMail As Outlook.MailItem
Dim vString As Variant, i As Integer
Dim objInspector As Inspector

If TypeOf Application.ActiveWindow Is Outlook.Explorer Then
Set objInspector = Application.ActiveExplorer.Selection(1).GetInspector
Set objMail = objInspector.CurrentItem
    If TypeName(objMail) = "MailItem" Then
        vString = Split(objMail.Body)
        For i = Lbound(vString) To Ubound(vString)
            If vString(i) Like "[0-9][0-9][0-9][0-9][0-9][0-9]*" Then MsgBox vString(i)
              Next
              End If

Else

Set objMail = Application.ActiveInspector.CurrentItem
    If TypeName(objMail) = "MailItem" Then
        vString = Split(objMail.Body)
        For i = Lbound(vString) To Ubound(vString)
            If vString(i) Like "[0-9][0-9][0-9][0-9][0-9][0-9]*" Then MsgBox vString(i)
        Next
    End If
End If

End Sub
Code eingefügt mit VBA in HTML 2.0

Weiter bin ich aber noch nicht gekommen.

Gruß, René
stefanbla81
Gast


Verfasst am:
20. Apr 2009, 10:32
Rufname:

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Coole Sache, nun geht das mit dem “nicht ganz öffnen” auch.

Genial!!!

Nur muss noch die Suche auf die 6-stellige Nummer gehen.

Die Nummer wird ja in der MSG schon ausgeben, aber es kommt noch mehr in der MSGBOX.

Hintergrund ist der: Ich möchte später, wenn das alles geht, die 6-stellige Nummer in eine TextBox mir ausgeben lassen.

Heute muss ich die Nummer noch von Hand eingeben, mit der Suche könnte das Automatisch gehen.
mumpel
Fortgeschrittener


Verfasst am:
20. Apr 2009, 10:44
Rufname: René
Wohnort: Lindau (B)

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Richtig. Ist bei mir auch so. Wenn drei Zahlen vorkommen, gibt es auch 3 Meldungen. Man müsste nach der ersten Meldung bereits abbrechen. Vorausgesetzt, das doe Projektnummer auch die erste Zahl im Mailbody ist. Ob Dein Vorhaben so umzusetzen ist, möchte ich (beinahe) bezweifeln. Einfacher wäre es, wenn die Projektnummer im Betreff stünde. Das liese sich einfacher machen.
stefanbla81
Gast


Verfasst am:
20. Apr 2009, 10:50
Rufname:

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Ok, ich sehe auch grad dass ich manchmal die erste, aber manchmal die zweite 6-stellige Nummer brauche.

Oh man.

Wo müsste denn die Nummer im Betreff stehen?! Ganz am Anfang geht nicht...
mumpel
Fortgeschrittener


Verfasst am:
20. Apr 2009, 10:54
Rufname: René
Wohnort: Lindau (B)

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Das ist egal. Am Ende geht auch. Dann siehst Du sie auch sofort (falls der Platz zum Anzeigen reicht).
stefanbla81
Gast


Verfasst am:
20. Apr 2009, 10:57
Rufname:

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Ok, dann würde ich mich "fügen".

Hast Du mir ein Besipiel?
Gast



Verfasst am:
20. Apr 2009, 15:15
Rufname:

AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Hallo,
wie sieht denn die Projektnummer genau aus?
6 Zahlen und dann Leerzeichen, oder wie in deinem Beispiel 6 Zahlen und dann ein Minus?
Steht davor "Projektnummer"?

Alles was du konkret beschreiben kannst, kann auch programmiert werden.

Gruß Steffen
stefanbla81
Gast


Verfasst am:
20. Apr 2009, 15:22
Rufname:


AW: In Mail nach Nummer suchen - AW: In Mail nach Nummer suchen

Nach oben
       Version: Office XP (2002)

Hi Steffen!!

Also am Besten wäre es wenn das so wäre:

Betreff: Systemangebot Fa. xyz Projektnummer: 250888-A
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2, 3  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 3
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: Hilfe!! Bekomme kein Mail mehr rein! 8 Tycoon 1310 24. Jan 2006, 09:50
Tycoon Hilfe!! Bekomme kein Mail mehr rein!
Keine neuen Beiträge Outlook Mail: Mail öffnen dauert sehr lange 3 alexstgt 3559 19. Jan 2006, 00:16
alexstgt Mail öffnen dauert sehr lange
Keine neuen Beiträge Outlook Mail: Nicht gespeicherte Mail wieder herstellen 1 Wuidschuetz 2334 02. Dez 2005, 10:53
Christi@n Nicht gespeicherte Mail wieder herstellen
Keine neuen Beiträge Outlook Mail: Mehrfacher Erhalt derselben Mail 0 Rainy 2916 05. Nov 2005, 11:33
Rainy Mehrfacher Erhalt derselben Mail
Keine neuen Beiträge Outlook Mail: kann ol automatisch unter jedes mail meine adresse setzen? 2 landau666 2319 29. Sep 2005, 22:42
landau666 kann ol automatisch unter jedes mail meine adresse setzen?
Keine neuen Beiträge Outlook Mail: Outlook 2003 erste Mail wird nicht verschickt 6 Gast 2734 25. Aug 2005, 13:00
Krug Outlook 2003 erste Mail wird nicht verschickt
Keine neuen Beiträge Outlook Mail: Mail Format einstellen?? 2 doc77 3033 01. Aug 2005, 11:20
doc77 Mail Format einstellen??
Keine neuen Beiträge Outlook Mail: Automatische Antworts mail (Urlaubsfunktion) 1 player-1 2825 21. Jul 2005, 20:04
wolf-it Automatische Antworts mail (Urlaubsfunktion)
Keine neuen Beiträge Outlook Mail: Kann man jede Adresse einer eingehenden Mail aut. speichern? 4 landau666 1425 13. Jul 2005, 17:21
Christi@n Kann man jede Adresse einer eingehenden Mail aut. speichern?
Keine neuen Beiträge Outlook Mail: Arbeitsspeicherprob. beim Anlagenhinzufügen einer neuen Mail 4 Tischler 995 11. Jul 2005, 15:19
Christi@n Arbeitsspeicherprob. beim Anlagenhinzufügen einer neuen Mail
Keine neuen Beiträge Outlook Mail: Abwesenheitsassistent, Mails weiterleiten zu ext. Mail 1 nicksan 1929 22. Feb 2005, 11:45
kraemer Abwesenheitsassistent, Mails weiterleiten zu ext. Mail
Keine neuen Beiträge Outlook Mail: Adressauswahl bei neuem Mail gestört 10 swissbird 912 19. Feb 2005, 15:49
macdeal Adressauswahl bei neuem Mail gestört
 

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