Aanvulling op code gevraagd SNB?

[Ad4Jansen]

SnB in het verleden heb je antwoord gegeven op een vraag op email verzenden

3 regels zijn voldoende

Sub verzend()
  ActiveSheet.Copy
  ActiveWorkbook.SendMail "ga@gmail.com", "proef"
  Activeworkbook.close false
End Sub
[CODE]

Dit werkt bij mij prima maar nu wil ik er een tweede ontvanger aan toevoegen 
hoe ga ik te werk?

Ad

 

[snb]

Gokje:

Sub verzend()
  ActiveSheet.Copy
 ActiveWorkbook.SendMail "ga@gmail.com[COLOR="red"][B],[/B][/COLOR]verder@gmail.com", "proef"
  Activeworkbook.close false
End Sub

of

Sub verzend()
  ActiveSheet.Copy
 ActiveWorkbook.SendMail "ga@gmail.com[COLOR="Red"][B];[/B][/COLOR]verder@gmail.com", "proef"
  Activeworkbook.close false
End Sub

 

[Ad4Jansen]

jammer dat

jammer dat had ik zelf ook al gedacht en geprobeerd. Ik krijg dan in beide gevallen de vraag of ik mijn fout op wil sporen.

Dit is trouwens mijn stukje code waarbij de x natuurlijk vervangen is door mijn echte email adres

    Application.DisplayAlerts = False
    ActiveWorkbook.SendMail "x@x.nl", "status dossiers"
    Application.DisplayAlerts = True
    End Sub

 

[Steven J.]

Wellicht kan je op de site van Ron de Bruin een nutiige aanwijzing vinden. Ik heb daar in het verleden met succes "geshopped". http://www.rondebruin.nl/sendmail.htm

 

[snb]

De oplossing ( stond overigens gewoon in de hulpfunktie van de VBEditor):

Sub verzend()
  ActiveSheet.Copy
 ActiveWorkbook.SendMail split("ga@gmail.com|verder@gmail.com","|"), "proef"
  Activeworkbook.close false
End Sub

 

[Ad4Jansen]

heren bedankt

Het klinkt misschien wat afgezaagd maar wederom bedankt.....:thumb::thumb:

Het werkt trouwens precies zoals SNB werkt met Split