Könnt ihr mir helfen, das folgende Skript zu reparieren? Was ich brauche, ist, wenn der E-Mail-Text <enthält, wird er an meine persönliche E-Mail weitergeleitet. Ich verwende Outlook 2010. Hier ist ein Beispiel für einen E-Mail-Text:
"Das war schnell! Der Neustart des Modems dauerte nur <60 Sekunden."
Wenn es ein Leerzeichen zwischen <und 60 gibt, wird es an meine E-Mail weitergeleitet. Wenn es kein Leerzeichen gibt, wird es nicht weitergeleitet.
Public Sub FWItem(Item As Outlook.mailitem)
Dim Email As Outlook.mailitem
Dim Matches As Variant
Dim RegExp As Object
Dim Pattern As String
Set RegExp = CreateObject("VbScript.RegExp")
If TypeOf Item Is Outlook.mailitem Then
Pattern = "(\s[<]\s)"
With RegExp
.Global = False
.Pattern = Pattern
.IgnoreCase = True
Set Matches = .Execute(Item.Body)
End With
If Matches.Count > 0 Then
Debug.Print Item.subject ' Print on Immediate Window
Set Email = Item.Forward
Email.subject = Item.subject
Email.Recipients.Add "alias@domain.com"
Email.Save
Email.Send
End If
End If
Set RegExp = Nothing
Set Matches = Nothing
Set Email = Nothing
Set Item = Nothing
End Sub
Hier ist das Muster, mit dem ich den E-Mail-Text gefiltert habe:
Pattern = "(\s[<]\s)"
Aber es hat nicht funktioniert.
"<"
.