I have the following code to create an email to multiple recipients.
Dim rst As DAO.Recordset
Dim strAdrs As String
Set rst = CurrentDb.OpenRecordset("myquery")
rst.MoveFirst
Do Until rst.EOF
strAdrs = strAdrs & rst!adstrEmail & ","
rst.MoveNext
Loop
strAdrs = Left(strAdrs, Len(strAdrs) - 1)
Debug.Print strAdrs
DoCmd.SendObject , , , strAdrs
As far as I can tell the code works. The debug shows all the addresses that
should be in the email. But when the email opens it only addresses the
message to the last address in the list. Also, as the email is opening I can
see the other addresses flashing in the To: line, but then all but the last
one disappear.
Similarly, if I try to send to multiple recipients using a macro I have the
same issue. This used to work with an earlier version of Groupwise. My
company recently updated and now I'm stuck.
Does anyone know of a coding solution for this?
Thanks,
Lesli
|
|