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?
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?
Code:
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
