I am using mailto to open the default e-mail program on the users machine
using the following function code snippet that I found on th web.:-
Public Function OpenEmail(ByVal EmailAddress As String, _
Optional ByVal Subject As String = "", Optional ByVal Body As String = "")
As Boolean
Dim bAns As Boolean = True
Dim sParams As String
sParams = EmailAddress
If LCase(Strings.Left(sParams, 7)) <> "mailto:" Then sParams = "mailto:" &
sParams
If Subject <> "" Then sParams = sParams & "?subject=" & Subject
If Body <> "" Then
sParams = sParams & IIf(Subject = "", "?", "&")
sParams = sParams & "body=" & Body
End If
Try
System.Diagnostics.Process.Start(sParams)
Catch
bAns = False
End Try
Return bAns
End Function
All that I want to be abl to do is to place newline characters into the Body
area of the text. I thought that this would be simple, but nothing that I
have tried seems to work! Can anyone help please??
Many thanks
Paul Bromley