Text missing after & in email body

Hi

I am creating a macro that follows a hyperlink (See below)

Sub SendEmail()
Amp = Chr(38)
strFileFullName = ThisWorkbook.FullName
ActiveWorkbook.FollowHyperlink Address:="mailto:?subject=Whatever the subject is&Body=" & Replace(strFileFullName, "&", Amp) & ""
End Sub

Folder Location - C:\products\Weights&Dimensions\

The macro is designed to open a new email and in the body of the email have the location of the file, i.e

C:\products\Weights&Dimensions\FileName.xlsx

what is happening is the email is being opened and in the body all I am getting is,

C:\products\Weights

.

I am guessing it is to do with the

&

in the folder name, but I am trying to replace this but it isn't working.

Any help would be great.

Thanks