Sendmail

[Maik]

Goedemiddag,

Onderstaande code komt van Ron de Bruin´s pagina en betreft "Mail the whole workbook With SendMail"
Weet iemand hoe hier meerdere emailadressen in te verwerken?


.SendMail "ron@debruin.nl", _
"This is the Subject line"

Maik

 

[edmoor]

Waarschijnlijk door de adressen te scheiden met een ;

.SendMail "ron@debruin.nl;mail2@prv.com;mail3@prv.com", _
"This is the Subject line"

 

[Maik]

Dat dacht ik ook, maar helaas werkt dat niet.

 

[Jezet]

Hoi Maik,

Even uit mijn hoofd, gebruik komma's als scheidingsteken tussen e-mailadressen.
Als ik mij niet vergis staat het ook op de site van Ron de Bruin.

Groet,
Jeroen

 

[Maik]

Hoi Jeroen,

Komma's als scheidingsteken werkt ook niet.

Groet, Maik

 

[dnties]

Probeer eens:

.SendMail "ron@debruin.nl; mail2@prv.com; mail3@prv.com", _
"This is the Subject line"

Dus met een spatie na elke ; in je distributielijst?

Of
.SendMail Recipients:="ron@debruin.nl; mail2@prv.com; mail3@prv.com", _
Subject:="This is the Subject line"

maar dus nog steeds met een spatie na elke ;

Tijs.

 

[HSV]

Je kan misschien een andere methode toepassen.

Dim OutApp As Object, OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With OutMail
            .To = email1;email2;email3
            .CC = ""
            .BCC = ""
            .Subject = "Zomaar"
            .Body = "Gegroet"               
            .Attachments.Add ........            
            .Send   'or use .Display
        End With
    Set OutMail = Nothing
    Set OutApp = Nothing

 

[Warme bakkertje]

Zet de adressen in een Array en gebruik deze dan om te versturen.
Bv.

Dim Adressen()
Adressen = Array("adres1@test.com","adres2@test.com","adres3@test.com")
ActiveWorkbook.Sendmail Adressen()

 

[Maik]

Bedankt warm Bakkertje dit werkt perfect.
Groet, Maik