Надо в программу внедрить систему автоматической отправки сообщения по эл. почте пробовал установит ссылку на Desaware SMTP library vb6
и написал код

Dim Server As New dwSMTPObject
Dim Letter As New dwSMTPMessage
Text = Text + "Statistic information" + Chr(13)
Text = Text + "Password" + Chr(13)
Text = Text + "User" + Chr(13)
Letter.From = "SLModul"
Letter.MessageText = Text
Letter.Subject = "PN12345678"
Letter.MailTo "[email protected]"
Server.MailMessage Letter                      ' <--- вот здесь его и глючит

помогите пожалуйста ...
щаранее огромное спасибо Сержик с Ростова

[email protected]

я использую http://sharig.webzone.ru/global/stat/outlook.htm

А ешё (если ты под NT) попробуи CDONTS.NewMail.  

Код примерно такои:

   Set ObjMail = CreateObject("CDONTS.NewMail")

   ObjMail.From = "[email protected]"
   ObjMail.To = "[email protected]"
   ObjMail.Subject = "Your subject"
   ObjMail.BodyFormat=0
   ObjMail.MailFormat=0
   ObjMail.Body = "Your message"
   ObjMail.send
   Set ObjMail = Nothing

Нужно только иметь в виду 2 вешчи:
  1. object посылаeт всего один mail за одну инициализацию;
  2. в property "From" необходимо задавать реальныи mail .

Вот и всё.