Beste,
Ik wil middels een knop het actieve werkblad per mail verzenden.
Eerst moet er een keuze worden gemaakt naar wie het bestand verzonden moet worden en gebruik hiervoor onderstaand script.
Sub Knop1_BijKlikken()
Aan = Range("E8")
Subj = "Urenoverzicht"
Msg = "Test.... "
HLink = "mailto:" & Aan & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink (HLink)
End Sub
Nu wil ik dus dat hij geen tekst zend (Msg), maar het betreffende excel bestand, wie kan mij helpen hiermee?
Tevens zou het geweldig zijn al er tevens een Messagebox zou verschijnen inhoudende dat het bestand succesvol is verzonden.
Alvast bedankt.
Ik wil middels een knop het actieve werkblad per mail verzenden.
Eerst moet er een keuze worden gemaakt naar wie het bestand verzonden moet worden en gebruik hiervoor onderstaand script.
Sub Knop1_BijKlikken()
Aan = Range("E8")
Subj = "Urenoverzicht"
Msg = "Test.... "
HLink = "mailto:" & Aan & "?"
HLink = HLink & "subject=" & Subj & "&"
HLink = HLink & "body=" & Msg
ActiveWorkbook.FollowHyperlink (HLink)
End Sub
Nu wil ik dus dat hij geen tekst zend (Msg), maar het betreffende excel bestand, wie kan mij helpen hiermee?
Tevens zou het geweldig zijn al er tevens een Messagebox zou verschijnen inhoudende dat het bestand succesvol is verzonden.
Alvast bedankt.