mit folgendem Teil code sende ich den Link "file://....." an Outlook. Das Übertragen funktioniert auch. Nur der Link wird im Outlook erst "scharf" wenn ich den Curser dahinter plaziere und auf Enter gehe...
Ohne dies bleibt der Link beim Empfänger ohne Funktion. Hier ein Auszug aus meinem Code:
With OutMail
.To = Sheets("ET-Steuerung und Freigabe").Range("Q5").Value
'.CC = ""
'.BCC = ""
.Subject = Sheets("ET-Steuerung und Freigabe").Range("J10024").Value
.HTMLBody = "Hallo zusammen," & "
" _
& "nachfolgend eine aktuelle Freigabe für Ersatzteile:" & "
" & RangetoHTML(rng) & "
" & "automatische Mailvorlage C.M." & "
" & "file://W:\Transfer\MarschallC\ErsatzteileSteuerliste.xls"
.Display
'.Send
Was ist falsch, kann jemand bitte helfen
Gruss
C.M.