Sending bulk emails

[avayaman]

I have a club database that I send bulk emails out of. This works well except now the mails do not arrive. I think spam filters are seeing 400 emails in the bcc field and assuming it is spam. If I split them up, it works. Is there anyway to automatically send out the email a few times, splitting the Bcc's into say groups of 50?

Here is the current routine:

Private Sub newsletter_Click()
On Error GoTo Err_newsletter_Click

Dim varEmail
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone

Dim X As String
Dim Y As String




rs.MoveFirst

Do While Not rs.EOF()



If rs! HomeEmail & "" <> "" Then
varEmail = varEmail & ";" & rs! HomeEmail




rs.MoveNext



Loop



varEmail = Mid(varEmail, 2)


X = "Please send an email to xxxx@xxx.com if you wish to opt out of future Newsletter mailings"
Y = "" & Chr(13) & Chr(13) & "------------------------------------------------------------------------------------------------------------"


Message = X + Y





DoCmd.SendObject acSendNoObject, , , "xxxx@xxx.com", , varEmail, " Newsletter", Message, True

Exit_newsletter_Click:
Exit Sub

Err_newsletter_Click:
If Err.Number <> 2501 Then
Msgbox Err.Description
End If
Resume Exit_newsletter_Click

End Sub




Paul Beddows

Consulting, Avaya/EAS implementation, Training
Vancouver, Canada
E-mail paul at natcoa.com

 

[Remou]

Why not send individual mails?

Private Sub newsletter_Click()
On Error GoTo Err_newsletter_Click

Dim varEmail
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone

Dim X As String
Dim Y As String

X = "Please send an email to xxxx@xxx.com if you wish to opt out of future Newsletter mailings"
Y = "" & Chr(13) & Chr(13) & "------------------------------------------------------------------------------------------------------------"

Message = X + Y

rs.MoveFirst

Do While Not rs.EOF()

    If rs! HomeEmail & "" <> "" Then

       DoCmd.SendObject acSendNoObject, , , "xxxx@xxx.com", , rs! HomeEmail, " Newsletter", Message, True
    Else
        'No email
    End If

    rs.MoveNext
Loop

Exit_newsletter_Click:
Exit Sub

Err_newsletter_Click:
  If Err.Number <> 2501 Then
    Msgbox Err.Description
  End If
  Resume Exit_newsletter_Click
  
End Sub

 

[avayaman]

That is great, but is there anyway to have it send them out one at a time automatically. Hitting send 400 times is not great, especially when the membership gets up to couple of thousand.

Paul Beddows

Consulting, Avaya/EAS implementation, Training
Vancouver, Canada
E-mail paul at natcoa.com

 

[Remou]

You need to change the final True (EditMessage) to False. What email programme are you using? Outlook Express gives a warning:
"A program is attempting to send the following e-mail message on your behalf: <...>"

You can stop this by going to Tools->Options->Security in Outlook Express and unchecking:
"Warn me when other applications try to send mail as me."

which may be a nuisance, or you can do a web search for Outlook Redemption.

 

[jrbarnett]

Another way of doing this is to use CDOSYS to send the email via SMTP. Of course, the emails won't end up in your Outlook Express sent items box if you do it this way, but that may not be necessary.

John

 

[AlexCuse]

>>>Hitting send 400 times is not great, especially when the membership gets up to couple of thousand.

Well, if it gets up to a couple thousand, you won't be hitting it 400 times anymore, so no worries ;-)

In all seriousness, I would go with SMTP, or look into an add-in like [google]Outlook Redemption[/google] (not sure if this works with express), either of these will take care of your clicking OK issue.

Hope this helps,

Alex



Ignorance of certain subjects is a great part of wisdom

 

[avayaman]

I will look into that, trouble is my iSP has changed everyone over to an IMAP server.

Paul Beddows

Consulting, Avaya/EAS implementation, Training
Vancouver, Canada
E-mail paul at natcoa.com