Sende mails fra Excel - igen igen

Hej igen

Har fundet følgende kode hos Guruen J. Walkenbach, men har selv prøvet at rette den til så jeg kan få en vedhæftet fil med - men det vil den ikke - nogen som kan greje koden for dette. Alt det andet virker, den sender noget så smukt men der kommer altså ikke noget Attachment med - tror enten det er Navnet der er forkert eller rækkefølgen???:

Recipient = strMail
Subj = "Ordre nr.: " & rRng(x, intOrderRow) & _
" (Forh.nr.: " & r1Rng(getRow("strforhNr", "R"), getRow("strforhNr", "C")) & ")"
Msg = "Ordre nr.: " & rRng(x, intOrderRow) & " - " & rRng(x, intDataRow)
               
      Hlink = "mailto:" & Recipient & "?"
      Hlink = Hlink & "subject=" & Subj & "&"
      Hlink = Hlink & "attachments=" & tmpWbPath & "&"
      Hlink = Hlink & "body=" & Msg
             
      ActiveWorkbook.FollowHyperlink (Hlink)
      Application.Wait (Now + TimeValue("0:00:02"))
      SendKeys "%s", True