Excel VBA - speichern, senden, Pfad angeben

Hallo Zusammen,

ich würde gerne eine Excel VBA schreiben, welche folgendes durchführt:

1. Die Arbeitsmappe soll ganz normal gespeichert werden.
2. Es soll sich eine neue E-Mail in Outlook öffnen.
3. In der Mail soll ein immer gleichbleibender Text stehen.
4. Der Empfänger soll immer der selbe sein.
5. Es soll der Netzwerkspeicherpfad mit in den Text hinterlegt werden (am besten drunter).

Meine VBA bisher:

Sub Makro2()
'
' Makro2 Makro
'

'
ActiveWorkbook.Save

Set objOutlook = CreateObject("Outlook.Application")
Set objMail = objOutlook.CreateItem(0)
With objMail
.To = "mustermann.max@muster.com"
.Subject = "Bestellung"
.Body = "Hallo, bitte folgenden Punkt aus der Bestellungs.xlsm bestellen:"
.Display

End With
End Sub


Es funktioniert auch soweit, bis auf das Einfügen des Speicherpfades.

Hat da jemand eine Idee?


Mfg

next01de

.Body = "BlaBlaBla:" & vbNewline & ActiveWorkbook.Path  

.HTMLBody = "<a href=""file://" & ActiveWorkbook.Path & """>Link</a>"