Visual Basic - AYUDA POR FAVOR

HOLA:
TENGO EL SIGUIENTE CÓDIGO EN UN FORMULARIO DE FORMA QUE AL PULSAR EL BOTON SE DEBERÍA ABRIR UN MENSAJE DE OUTLOOK EXPRES INTRODUCCIENDO LOS DATOS DE LOS TEXTBOX PARA PODER ENVIARLO CORRECTAMENTE, EL CASO ES QUE NO FUNCIONA Y NO ABRE EL MENSAJE ¿QUE FALLA?

Private Sub CommandButton1_Click()
Dim Msg As String
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Bonus As String
Dim Hlink As String
EmailAddr = TextBox1 & TextBox2
Subj = TextBox3
Msg = TextBox4 & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "FIRMADO." & "%0A"
'Msg = Msg & "FDO.- " & UserForm6.ComboBox4 & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
'Msg = Msg & "FDO.- " & UserForm6.TextBox7
Hlink = "mailto:" & EmailAddr & "?"
Hlink = Hlink & "subject=" & Subj & "&"
Hlink = Hlink & "body=" & Msg
ActiveDocument.FollowHyperlink Hlink
Unload UserForm31
UserForm2.Show
End Sub

Hola Jhon,

he analizado el código y, finalmente, he llegado a la conclusión de sustituir la línea de código que llama a la ventana del mensaje por una llamada a la APi ShellExecute que realiza la misma función.

Aquí tienes el código.
Prueba a ver si te funciona. A mi sí me funciona correctamente.

'===============================================
'CÓDIGO
'===============================================

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
Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
Dim Msg As String
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Bonus As String
Dim Hlink As String
EmailAddr = TextBox1 & TextBox2
Subj = TextBox3
Msg = TextBox4 & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "FIRMADO." & "%0A"
'Msg = Msg & "FDO.- " & UserForm6.ComboBox4 & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
'Msg = Msg & "FDO.- " & UserForm6.TextBox7
Hlink = "mailto:" & EmailAddr & "?"
Hlink = Hlink & "subject=" & Subj & "&"
Hlink = Hlink & "body=" & Msg

'*******************************************
'ActiveDocument.FollowHyperlink Hlink
'*******************************************

'**************He reemplazado esta anterior línea de código por
'una llamada a la función API ShellExecute.
'Si quieres más información sobre esta API hice un análisis exhaustivo sobre
'la misma en un post de este foro.
'Aquí te doy el link:

http://lawebdelprogramador.com/news/mostrar_new.php?id=93&texto=Visual+Basic&n1=310271&n2=2&n3=0&n4=0&n5=0&n6=0&n7=0&n8=0&n9=0&n0=0



Call ShellExecute(Me.hWnd, "open", Hlink, "", "", SW_SHOWNORMAL) 'llamada a la API ShellExecute

Unload UserForm31
UserForm2.Show
End Sub

'===============================================
'CÓDIGO
'===============================================

Espero que este código te funcione y te ayude a resolver tu problema.

Hasta otra,

Zoto

MUCHAS GRACIAS COMPAÑERO, AHORA FUNCIONA ESTUPENDAMENTE.