Macro que al clicar al link de una direccion de correo abra uan venta con texto escrito

Necesito una macro que haga el siguiente:

Tengo una lista de correos en una hoja de excel, quiero que al clicar sobre al correo (que normalmente se abre una ventana de outlook) se abra la venta con un texto ya escrito. ¿Es possible hacer-lo?

Tengo esto pero no funciona:

Sub Worksheet_FollowHyperlink(ByVal Traget As Hyperlink)

Select Case Outlook.Application
Case Is = Columns("B").Column

Link = Outlook.Application

Dim Asunto As String
Dim Msg As String
Dim MItem As Outlook.MailItem
Dim Destinatari As Hyperlink

Set OutlookApp = Outlook.Application

If Link = Columns("B").Column Then

Asunto = "Alta Cliente"
Msg = "Apreciado Cliente" & vbNewLine & vbNewLine
Msg = Msg & "Queremos informarle que se ha dado de alta correctamente en nuestro sistema" & vbNewLine & vbNewLine
Msg = Msg & "Saludos cordiales" & vbNewLine & vbNewLine
Msg = Msg & "Marina Canet" & vbNewLine
Msg = Msg & "Telf / Mbl : +34 ..."
Destinatari = Range("B").Hyperlink

Set MItem = OutlookApp.CreateItem(olMailItem)
With MItem
.To = Destinatari
.Subject = Asunto
.Body = Msg
.Display 
End With
End If

End Select

End Sub

Me farian un favor enorme si me ayudasen.