How can I detect regular expressions in an Outlook-Mail subjectline and automatically...

Hi Florian,

The subjectl ine is plain text, it does not support HTML. But using mailItem.subject with regex should definitely work as long as you use a valid pattern.

Do you have a code sample you are trying to use that doesn't work?

I have some samples in this article -
https://www.slipstick.com/developer/code-sample... - changing If Reg1.Test(olMail.Body) Then to If Reg1.Test(olMail.Subject) Then will work - you don't need the 2 IF lines that follow.

>>

Another problem is that you can't use HTML code in a subject line, so I can manipulate the html code of the mail body but I can't use "mailItem.subject.HTMLBody" to manipulate the subject line.

>>

What are you trying to accomplish?

Hi Diane,

Thanks for your answer.

I think my main issue has not really become clear.

My problem isn't the checking for a match.

I'm trying to hyperlink (or something similar) a word in the subject line.

Because the subject line can't HTML I can not put the word in an A-tag, logically.

But how can I do that?

Sincerely Florian

Hallo Frank,

benutzt du hier Regular Expressions? Wenn ja, hast du den Verweis auf Microsoft Regular Expressions gesetzt?

Kannst du mal beschreiben, was du genau machen willst und deinen Code hier komplett posten?

Mit freundlichen Grüßen

Claus

I hate the outlook format that is implemented on my hotmail account , how can I have it back to how it was before

Lösung von Fei Xue (Original in diesem Thread:
http://social.msdn.microsoft.com/Forums/office/en-US/ff941cb2-9e27-46f4-9b27-6dfc4c7366c6/visio-2013-how-do-i-get-automatically-numbered-shapes-in-a-crossfunctional-flowchart?forum=officegeneral)

--- schnipp ---

Hi,

According to your description, you want to automatically numbered shapes.

I suggest you select the shapes you wanted numbered and using the code below to numbered the shapes:

Sub autoNumShape()

Dim index As Integer

index = 1

For i = 1 To Application.ActiveWindow.Selection.Count

If TypeOf Application.ActiveWindow.Selection.Item(i) Is Shape Then

Application.ActiveWindow.Selection.Item(i).Text = "PS-" & index & Application.ActiveWindow.Selection.Item(i).Text

index = index + 1

End If

Next i

End Sub

Screen Shot:



You can get more detail about Visio Object Model from link below:

Visio Object Model Reference

Best regards

Fei

--- schnapp ---