Outlook Link
Ralf_P
folgende Prozedur soll mir in einer neuen Mail einen Link auf eine bestimmte Datei einfügen:
Private Sub CommandButton6_Click()
Dim Link As String
Set outObj = CreateObject("Outlook.Application")
Set Mail = outObj.CreateItem(0)
Link = "file:" & (aktDatei)
With Mail
.Subject = "Info Link"
.Body = "Sehr geehrter Herr .......... " & Chr(13) & Chr(13) & _
Link & Chr(13) & Chr(13) & _
"Mit freundlichen Grüßen " & Chr(13) & Chr(13) & Chr(13) & Chr(13) & Chr(13)
' Application.UserName
' .To = "xy@abc.de"
' .CC = "xy@abc.de"
' .Attachments.Add (aktDatei)
End With
Mail.Display
Set Mail = Nothing
Set outObj = Nothing
End Sub
\\de-klc05vb\mueller$\Eigene Bilder\rc6-134565.jpg
Erscheint der Link in der Mail nur bis zu dem Leerzeichen - der Rest als normaler Text.
Klar, das der Link \\de-klc05vb\mueller$\Eigene nicht funktioniert, da der Rest fehlt.
Kann man erzwingen, dass der komplette String mit Leerzeichen als Link umgewandelt wird?
Viele Grüße
Ralf
Anzeige