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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
immark
Новичок
Новичок
 
Сообщения: 29
Зарегистрирован: 11.03.2009 (Ср) 16:28

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

Сообщение immark » 14.11.2009 (Сб) 11:56

Помогите с почтой!!!
Нашел у вас как сделать почтовую программу
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
Постоялец
Постоялец
 
Сообщения: 355
Зарегистрирован: 29.01.2008 (Вт) 15:19
Откуда: Украина

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

Сообщение awl100Alex » 14.11.2009 (Сб) 19:26

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

immark
Новичок
Новичок
 
Сообщения: 29
Зарегистрирован: 11.03.2009 (Ср) 16:28

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

Сообщение immark » 17.11.2009 (Вт) 21:11

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

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 24

    TopList