Вот код:


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Data Source=" & Server.MapPath ("email.mdb")
Conn.Open
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.Open "SELECT email from Firm", Conn
dim Email
Dim text
text = "Данное письмо не является спамом, это лишь пробная версия рассылочной программы...."


do while not rs.EOF
if rs("email")<>"" then
Email=rs("email")
Response.Write rs("email") & "<br>"

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "pragma@itbc.ru"
strMyEmailAddress = Email
strCCEmailAddress = "support@itbc.ru"
objCDOMail.To = strMyEmailAddress
objCDOMail.Cc = strCCEmailAddress
objCDOMail.BodyFormat = 0
objCDOMail.MailFormat = 0
objCDOMail.Subject = "ПРоверка рассылки почты, Сергей, Сообщить мне о результате."
objCDOMail.Body = "333333333333333"
objCDOMail.Importance = 1
objCDOMail.Send()
Set objCDOMail = Nothing

Response.Write("Send...Ok")&"<br>"
'create mail

end if
rs.MoveNext
loop
set Rs = nothing
set Conn = nothing


Из базы выбираются электронные адреса(мне извесные), затем в цикле они отправляются, вроде все проходит хорошо, выводится на экране адрес и Send...ok, но письма не приходят к адресату, может где ошибка?

Да в папке pickup, письма в наличии, и что это значит?