Hallo Leute,
da ich täglich viele Emails bearbeite, habe ich mir erlaubt Regeln zu erstellen unter anderem eine welche die Textlänge berechnet und im Falle eine kurzen Email die Kategorie "ShortMail" zuweisst.
Merkwürdigerweise erkennt er jede Email, welche zu kurz ist. Er weisst jedoch keine Kategorie zu.
Geprüft wird ob die Gesamtlänge unter L ist oder unsere Emailadresse Unter dem Wert L gefunden wird.
Über einen Rat von euch würde ich mich sehr freuen.
lg,
Chris
Sub Kategorie(objItem As MailItem)
Dim sSearch As String
Dim Body, CatchTarget As String
Dim BodyL, CatchL, L As Long
With objItem
Body = .Body
CatchTarget = "@MeineDomäne.Com"
CatchL = InStr(.Body, CatchTarget)
BodyL = Len(.Body)
L = 400 + 1
If CatchL < L And CatchL > 0 Then
.Categories = "ShortMail"
Debug.Print "If CatchL < L" & " ShortMail"
End If
If CatchL = 0 And BodyL < L Then
.Categories = "ShortMail"
Debug.Print "If CatchL = 0" & " ShortMail"
End If
Debug.Print "CatchL " & CatchL & .Subject
End With
End Sub
|