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
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