Excel bestanden versturen via Outlook via VBA

[Theknurt]

Hallo iedereen,

Ik ben bezig met een code aan het in bouwen van Ron de Bruin.

Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = "xxxx.xxxx@xxxx.nl"
.CC = ""
.BCC = ""
.Subject = ""
.Body = ""

Weet iemand of het mogelijk is om meerdere adressen toe te voegen in het kopje .To=

Ik wil namelijk dezelfde mail naar meerdere personen tegelijk verzenden, in één handeling.

Ik hoor het wel.

 

[Hans Russens]

Meerdere E-Mail adressen gebruiken

Je kunt door een punt komma ( ; ) de E-mailadressen scheiden.
In jouw geval:

With OutMail
    .To = "xxxx.xxxx@xxxx.nl; yyyy.yyyy@yyyy.nl; zzzz.zzzz@zzzz.com" 
    .CC = "aaaa.aaaa@aaaa.nl; bbbb.bbbb@bbbb.nl"
    .BCC = "enzovoort@helpmij.nl"

Veel plezier,

 

[Theknurt]

Hans,

Bedankt voor het antwoord en ik ga het uitproberen.

Gr

 

[MMV]

wat je ook kan doen is een lijst met e-mailadressen maken en naar deze te verwijzen in je VB code. Een bereik van adressen, hiermee hoef je de macro minder snel aan te passen. Alleen in ke lijst iets wijzigen en de macro pakt het juiste adres.


Enjoy.........


MMV