Help Please

  • Thread starter Thread starter ekomsky via AccessMonster.com
  • Start date Start date
E

ekomsky via AccessMonster.com

I'm using the code below to send a mass email to multiple recipients. I'm
getting the addresses from a table. I'm trying to do this in Lotus notes.
But only the first 3 address in the list work. The rest don't show up. If
i reduce the list then it does show, but i can't fit even 25% of it. Is
there a way around this ? I know i'm not exceeding the Lotus notes limit of
how many poeple i can send my email to. Is this some sort of access hickup ?








Private Sub Command103_Click()
Dim rs As New ADODB.Recordset
Dim strEmail As String

rs.Open "YourEmailTable", CurrentProject.Connection, adOpenDynamic,
adLockOptimistic

strEmail = ""
Do While Not rs.EOF
strEmail = strEmail & rs!emails & ";"
rs.MoveNext
Loop

DoCmd.SendObject , , , strEmail, , , "test", "Test", True

rs.Close
Set rs = Nothing
 
Back
Top