B
bifteki via AccessMonster.com
I want to add some emails on the To property of an emailmsg. I've written the
following code to do this:
Dim lstId As Long
Dim contRecip As String
For lstId = 0 To lst_contact_anipersons.Count - 1
contRecip = contRecip & "; " & lst_contact_anipersons.Column(2, lstId)
& "@anima.gr"
Next lstId
Lst_contact_anipersons is a list that has 3 columns (name,surname,id) the 3rd
of which is a hidden column that is the username of the recipients I want to
send the email to.
eg the 1st column could be bifteki & my email account (e-mail address removed).
The problem is when it gets to the 'for' line I get an "Object Required"
error.
following code to do this:
Dim lstId As Long
Dim contRecip As String
For lstId = 0 To lst_contact_anipersons.Count - 1
contRecip = contRecip & "; " & lst_contact_anipersons.Column(2, lstId)
& "@anima.gr"
Next lstId
Lst_contact_anipersons is a list that has 3 columns (name,surname,id) the 3rd
of which is a hidden column that is the username of the recipients I want to
send the email to.
eg the 1st column could be bifteki & my email account (e-mail address removed).
The problem is when it gets to the 'for' line I get an "Object Required"
error.