sendmail mit Link zu Datei klappt nicht
chris
ich habe unten einen VBA code mit dem ich gerne eine Mail aus Excel schicken möchte.
das klappt auch wunderbar.nur leider bekomme ich es nicht hin das es mir den Pfad zur Datei als Link in die Mail einfügt so das Sie der empfänger nur noch anklicken muss.Kann mir jemand dabei helfen ?
Würde mich sehr freuen und mir sehr helfen.
Vielen Dank im voraus gruß Chris
Sub SendMail(Adr, AdrK, Betrifft, Text, Pfad)
Dim outl, Mail As Object
Set outl = CreateObject("Outlook.Application")
Set Mail = outl.CreateItem(0)
Mail.Subject = Betrifft
'Mail.Body = Text
Mail.HTMLBody = Text
Mail.To = Adr
Mail.FlagStatus = olFlagMarked 'Mail zur Nachverfolgung kennzeichnen
Mail.FlagDueBy = Now + 10 'Datum festlegen wann Nachverfolgung ( _
Heute + 10 Tage)
Mail.Send
End Sub
Sub start()
empf = "Empfängername"
betreff = "Telegramm abgeschlossen"
Dateiname = "Dateiname = Testdateiname"
mail_body = " Telegramm _
abgeschlossen
" & Dateiname & "
\\server\Halle\Testhallet\Team\test\W00\Bearbeitung\Einzelfehler\test löschen 02.09.2009 um 08_12_15 Telegramm von mir - Bearbeitungsfehler Nr 291.xls"
SendMail empf, "", betreff, mail_body, Pfad
End Sub
Anzeige