Posted on 2004-04-22
I in my program, I want to launch OutLook and put something in the body of mail.
I do like that:
Private Const SW_SHOW = 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub Navigate(ByVal NavTo As String)
Dim hBrowse As Long
hBrowse = ShellExecute(0&, "open", NavTo, "", "", SW_SHOW)
Then I call Navigate like that:
Navigate "mailto:email@example.com?subject=" & _
"My subject&body=" & _
strText1 & vbCrLf & strText2
I insert vbCrlf because I want an empty line between strText1 and strText2. But it don't has any effect.
How can I insert an empty line between strText1 and strText2?