Hello!
I am using Persits to send email newsletters to all ids in a database.
The main code is:
While Not rs.EOF
Set sub_email = rs("email"
Set Mail = Server.CreateObject("Persits.MailSender"
Mail.Host = "mysite.com" ' Required
Mail.Port = 25 ' Optional.
Mail.FromName = "Newsletter from mysite.com"
Mail.From = "send@mysite.com"
Mail.AddAddress sub_email
Mail.UserName="send@mysite.com"
Mail.Password="cards"
Mail.Subject = my_subject
Mail.Body = my_message & rs("email"
On Error Resume Next
Mail.Send
But I get the following Type Mismatch error:
Type mismatch: 'AddAddress'
What am I doing wrong here?
I am using Persits to send email newsletters to all ids in a database.
The main code is:
While Not rs.EOF
Set sub_email = rs("email"
Set Mail = Server.CreateObject("Persits.MailSender"
Mail.Host = "mysite.com" ' Required
Mail.Port = 25 ' Optional.
Mail.FromName = "Newsletter from mysite.com"
Mail.From = "send@mysite.com"
Mail.AddAddress sub_email
Mail.UserName="send@mysite.com"
Mail.Password="cards"
Mail.Subject = my_subject
Mail.Body = my_message & rs("email"
On Error Resume Next
Mail.Send
But I get the following Type Mismatch error:
Type mismatch: 'AddAddress'
What am I doing wrong here?