Помогите с почтой!!!

[immark]

Помогите с почтой!!!
Нашел у вас как сделать почтовую программу
viewtopic.php?f=1&t=39618&p=6730242&hilit=cdo#p6730242
Сделал:
Sub SendEmail_DEBUG()
'Add the Project Reference Miscrosoft CDO WINDOWS FOR 2000
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration") 'Configuration CDO...
With cdoConfig.Fields 'Input changes in fields...
.Item(sch & "sendusing") = 2 'Set protocol SMTP
.Item(sch & "smtpserver") = "mail.netvision.net.il" '"smtpserver.com" 'name of SMTP-server or IP adr
.Update 'Saving changed configuration
End With

Set cdoMessage = CreateObject("CDO.Message") 'model of CDO...
With cdoMessage
Set .Configuration = cdoConfig
.From = "mislev@netvision.net.il" '"UserFrom@smtpserver.com" 'From
.To = "dokmislev@gmail.com" '"UserTo@smtpserver.com" 'To
.BodyPart.Charset = "windows-1251" 'set Cirilic
.Subject = "My Debug Mail sending" 'subject
.TextBody = "The Message from SMTP Object Model of CDO.Message" 'Message
'.AddAttachment "C:\1.txt" 'Äîáàâëÿåì âëîæåíèå
.Send 'Send...
End With

Set cdoMessage = Nothing
Set cdoConfig = Nothing

End Sub

И плучаю Run-Time Error -2147220977 8004020f
Почтовые адреса конкретные. Когда с одного на другой отправляю почту - все путем
В чем дело - подскажите, плз!!!

[awl100Alex]

Это ошибка Authentication - почтовый сервет требует регистрации.
Смотри здесь...
viewtopic.php?p=6731125#p6731125

[immark]

Это ошибка Authentication - почтовый сервет требует регистрации.
Смотри здесь...
viewtopic.php?p=6731125#p6731125

Большое спасибо!
Очень много полезной информации.
Есть над чем подумать.