Hyperlink in e-mail automatisch anführen

Hallo,

im folgenden Code möchte ich bei .Body den bestehenden Text als einen Hyperlink einfügen. Welchen Code verwende ich dazu?

Sub mail()

Dim olApp As Object

Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
    .Recipients.Add("...").Resolve
    .Subject = "aktueller MonatsDB"
    .Body = "V:\Umsatz_Team\06_UMSATZ_team.xls"
    .send
   
End With
Set olApp = Nothing

End Sub

Ach ja, dann erscheint noch 3x ein Dialogfeld:
Ein Programm versucht, auf Ihre in Outlook gespeicherten E-mail-Adressen zuzugreifen. Möchten Sie dies zulassen? usw.


Gibt es da irgendwelche Verbesserungsvorschläge?

Danke schon mal im voraus
lucci