Macro envoie de mail avec gmail

Bonjour
Voila j'ai une macro mailto pour l'envoie de mail tout marche bien seulement je souhaite que lorsque le lance cette macro elle vas chercher un fichier *.pfd qui sera sur le disque mon disque dur est qu'elle le mette en piece jointe.
Cette macro ouvre l'envoie de mail avec gmail j'aime pas outloock. voila la macro j'espere votre aide
merci
Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("d1")
Subj = Range("d2")
Msg = Range("d4")
'Msg = Msg & Range("D5")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
merci vous pouvez me repondre a
saadaeric@yahoo.fr