Parsing UTF-8

[U-351]

Hi
I trying make a message forwardng by condition

Code: Select all

...
	If (InStr(oMessage.Subject,rutflag)>0) Then 
		oMessage.AddRecipient "Server_Forward","xxx@yyy.zzz"
	      oMessage.RefreshContent()
	      oMessage.Save
	End If
...

If rutflag is latin - strinig routine work normal.
If rutflag is non-latin/cyrylic - routine no work.

In message i seen
---
Subject: =?UTF-8?B?0KDRg9GC0LXQutGB?=
---

Is it possible to search for a substring in UTF-8?

[SorenR]

Code: Select all

   Dim ECFlag, SFlag : SFlag = False
   ECFlag = oMessage.EncodeFields

   '  Use RAW data
   oMessage.EncodeFields = False

   If InStr(1, oMessage.Subject, "?koi8-r", 1) > 0 Then

      '  Do STUFF ... Set SFlag if content is changed.
      SFlag = True

   End If
   If SFlag Then oMessage.Save

   '  Restore MIME decoding
   oMessage.EncodeFields = ECFlag

[U-351]

Thank You!
Solved problem another way.

Add regexp rule and add Simple routine on it. Thus, the string conversion is done by the server engine.