mail vanuit excel gekoppelt aan een cel

[markdehaan]

Goedemorgen,

Ik heb een macro gevonden waarmee ik kan mailen vanuit excel.
Hier staat nu 1 mail adres ingevuld, maar ik wil graag dat dit gekoppelt word aan een cel.
Dus dat hij het stuurt naar het mail adres in bijv. E1.
Wat ik dus uiteindelijk maak is dat je in het werkblad uit verschillende mailadressen kan kiezen.
Ik heb al op diverse sites gekeken oa. rondebruin, maar kom er niet uit.

macro die ik nu heb is:

Sub verzend()
ActiveSheet.Copy
ActiveWorkbook.SendMail "mark@haan.nl", "test"
MsgBox prompt:="Verzonden naar: Mark", Title:="Verzonden"
ActiveWorkbook.Close False
End Sub


Alvast bedankt!

Mark

 

[koster1984]

Zet je code in 'Code-tags'..

Maar dat wordt dan dit:

Sub verzend()
ActiveSheet.Copy
ActiveWorkbook.SendMail [E1], "test"
MsgBox prompt:="Verzonden naar: " & [E1], Title:="Verzonden"
ActiveWorkbook.Close False
End Sub

 

[markdehaan]

Bedankt! werkt super