Texterkennung im Subject und Body

[St]

so geht es zumindest:

........
        delim = " "
   searchText = body.GetFormattedText( False , 0 )
   tmpArr = FullTrim( Split( searchText, delim))

   Dim i As Integer, tmpVar As String
   
   For i = 0 To UBound( tmpArr)
      tmpVar = tmpArr(i)
      If tmpVar Like "*#*" Then
         Print Len(tmpVar)
         If Len(tmpVar) = 11 Then
            MsgBox "11 Stellig"
         End If
      End If       
   Next
........

[St]

Danke für eure Unterstützung 

[Mitch]

In der Variante findest du zuviel. Zum Beispiel fällt "A123456789B" auch da drunter. Oder "Nr.:1234567".

Todes Ansatz ist ziemlich cool (auch wenn er so nicht ohne Anpassungen funktioniert). Da würde ich mich an deiner Stelle dran orientieren und es in Skript umsetzen. Also erst eine "negative Liste" erstellen wo alles raus ist was du später haben willst (die Ziffern) und dann alles aus der negativen Liste im Original entfernen. So bleiben nur Zahlen übrig. Da musst du dann nur noch die 11stelligen raus filtern.

Gruß,

Mitch

[St]

Stimmt Mitch, habe ich gar nicht dran gedacht.

Habe es jetzt entsprechend umgewandelt und klappt prima.  Über die Negativ-Listen sortiere ich alles aus, so dass nur die Zahlen übrig bleiben und arbeite mit denen weiter.

Perfekt!

Danke für eure Hilfe!