关于调用outlook发邮件的奇怪问题

Question

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 LongPrivate Sub Command1_Click()
    Dim Str1 As String
    Dim Str2 As String
    
    '%0D%0A=vbCrLf
    Str1 = "mailto:[email protected]?subject=Re:&body="
    Str2 = "尊敬的某某：%0D%0A我公司近期将推出一些优惠措施，具体清访问我们的主页"
    
    ShellExecute Me.hwnd, "open", Str1 & Str2, "", vbNullString, 1
End Sub