Loop in stukjes knippen

[janluc]

Hallo,
Ik heb een prima werkende code gevonden om een mailing aan te maken, zie onder. Er is echter een extern probleem: mijn mailserver gaat protesteren als ik aan meer dan vijftig personen tegelijk mail. Ik zou graag de code aanpassen zodat er, als er meer dan 25 ontvangers zijn, de mailing in stukjes wordt opgedeeld. Zou iemand hiermee kunnen helpen?

Private Sub btnEmailBTW_Click()
Dim rst As DAO.Recordset
Dim strEmailAddress As String

Set rst = CurrentDb.OpenRecordset("qryEmailBTW")

Do Until rst.EOF
  strEmailAddress = strEmailAddress & rst("e-mail") & ","
  rst.MoveNext
Loop

strEmailAddress = Left(strEmailAddress, Len(strEmailAddress) - 1)

On Error Resume Next
DoCmd.SendObject acSendNoObject, , , , , strEmailAddress, , , True
DoCmd.SetWarnings (True)

rst.Close
Set rst = Nothing
End Sub

 

[OctaFish]

Waarom mail je ze niet stuk voor stuk? Ben je van het probleem af.

 

[janluc]

Dat zou inderdaad de mailserver van mijn provider rustig houden, maar dan worden er in mijn mail client tegen de honderd mails klaar gezet, en moet ik in mijn evenzoveel keer op "verzenden" klikken... of mis ik iets?

 

[OctaFish]

Ja, je mist wat. Je kunt mails perfect verzenden als je een Outlook sessie opent. Die worden ofwel geopend in een venster, ofwel gelijk verzonden. Dat laatste is voor jou de beste optie. Met SendObject moet dat trouwens m.i. ook kunnen, wellicht gebruik je de verkeerde parameter. Ik gebruik SendObject nooit, altijd Outlook.

 

[janluc]

Hallo Octafish,

Sorry voor mijn late reactie:

Die parameter zit inderdaad ook in SendObject, en had ik over het hoofd gezien, en dat is de oplossing, dank!

Ik werk om een specifieke reden niet met Outlook, maar met Thunderbird.

Beste wensen voor 2019,
Jan-Luc