VBでShellExecuteを使ったときにOutlookを立ち上げているのですがBody部分にあるHyperLinkがうまく
ハイパーリンクになりません。うまくEncodeできないようです。＜＞の部分がどうしても& g t ; & l t;になってしまいます。

strmailto = ”mailto:my@domain.com?Body=click here

ShellExecute Me.hWnd, ”open”, strmailto, vbNull, vbNull, SW_SHOWNORMAL
Public Function URLEncode(URL As String) As String
Dim i As Long
For i = 1 To Len(URL)
Select Case Asc(UCase(Mid(URL, i, )))
Case Asc(”A”) To Asc(”Z”)
URLEncode = URLEncode & Mid(URL, i, 1)
Case Else
URLEncode = URLEncode & ”%” & _
Right(”00” & Hex(Asc(Mid(URL, i, 1))), 2)
End Select
Next

End Function