excel verzenden

[japonica]

ik heb een excelblad met een verzendknop met vier mailadressen als ik deze wil versturen krijg ik ook vier keer de vraag om het te verzenden ik heb onderstaande in de macro staan wat gaat hier fout.

Sub CommandButton1_Click()
ActiveWorkbook.SendMail "ontvanger@info.nl "
ActiveWorkbook.SendMail " ontvanger@info.nl "
ActiveWorkbook.SendMail " ontvanger@info.nl "
ActiveWorkbook.SendMail " ontvanger@info.nl ", "Informatie"
msg = MsgBox(" is verzonden", vbInformation, "In behandeling")
End Sub

 

[richard1970]

kijk op www.rondebruin.nl voor al je vragen rondom het mailen vanuit Excel.

Richard