Hyperlink in Email per VBA
22.02.2006 09:30:19
Thorsten
ich möchte per VBA eine Email verschicken, was auch super klappt.
Allerdings möchte ich im Mail-Text einen Hyperlink haben.
Der Link wird aber leider nur als Text eingefügt.
Hat jemand dazu eine Idee?
Sub kalku_prüfen()
Sheets("Übersicht").Select
anfrage = Range("b1")
If anfrage = "" Or anfrage = 0 Then
MsgBox "Keine Angebotsnummer vergeben"
Exit Sub
End If
Range("c1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="\\server\" & anfrage & "\" & anfrage & ".xls"
Dim o
Dim m
was = Range("C1")
Set o = CreateObject("Outlook.Application")
Set m = o.CreateItem(0)
m.To = "aol@aol.com"
m.Subject = "Betreff" 'Betreff
m.body = was
m.Send
End Sub
Vorab schon mal Danke und liebe Grüße aus Berlin
Thorsten