email text with utlok express. format problem

[touf]

Hi,
I'vea function that create an email using the default mail program, to
format the text I use the function "ReplaceSpecial Characters" found in the
link http://www.vb-helper.com/howto_launch_email.html

This works with Outlook, but if the default mail program is outlook express
this function doesn't work. It create the email text as one paragraphe.
here is the function:

Private Function ReplaceSpecialC haracters(ByVal txt As _
String) As String
Dim i As Integer
Dim ch As String
Dim result As String

For i = 1 To Len(txt)
ch = Mid$(txt, i, 1)
If (ch < " ") Or (ch > "~") Or (ch = "&") Then
' Replace with hex code.
ch = Right$("00" & Hex(Asc(ch)), 2)
result = result & "%" & ch
Else
' Leave unchanged.
result = result & ch
End If
Next i

ReplaceSpecialC haracters = result
End Function

Any help please?

[Herfried K. Wagner [MVP]]

* "touf" <to******@hotma il.com> scripsit:

I'vea function that create an email using the default mail program, to
format the text I use the function "ReplaceSpecial Characters" found in the
link http://www.vb-helper.com/howto_launch_email.html

This works with Outlook, but if the default mail program is outlook express
this function doesn't work. It create the email text as one paragraphe.
here is the function:

Have a look at 'HttpUtility.Ur lEncode'.

--
Herfried K. Wagner [MVP]
<http://www.mvps.org/dotnet>