bitte um hilfe.
Würde mich sehr freuen.
Ich komme nicht weiter.
Versuche einen link in eine mail einzufügen funtioniert aber nur bis zum ersten leerzeichen im dateinamen der link.
Also ist in der e-mail nur bis zur hälfte als LINK markiert.
Was mache ich falsch ?
VieleN Vielen Dank
'mail_body = mail_body & Chr(10) & "
'Workbooks.Open mail_body
neachste2:
Next
mail_body = mail_body & Chr(10) & "^^ Link zur Datei ^^"
.Subject = "Tabelle" & betreff & " von " & Environ("UserName") ' hier Betreff für E-Mail
' Set oOLAttach = .Attachments.Add(speicherpfad & dateiname) ' hier Anhang definieren
.FlagStatus = olFlagMarked 'Mail zur Nachverfolgung kennzeichnen
.FlagDueBy = Now + 10 'Datum festlegen wann Nachverfolgung (Heute + 10 Tage)
.body = mail_body 'Link + Text in der E-Mail
On Error Resume Next 'evtl. Fehler abfangen
.Send 'Mail senden
oOLRecip.Resolve 'Recipient-Objekt auflösen