FAndrewТ.е. на других машинах он работает корректно? Может быть у вас проблемы с безопасностью?
просто все ребята которые мне кидали коды говорили что они полностью работичие(я про нажатие кнопки и про отправку на мыло)..
вот допустим пацан отсылает с МЭЙЛА письмо..у него отправляется у меня выводи ошибку 440
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
Private Sub CommandButton1_Click()
Const cdoAnonymous = 0 ' Do not authenticate
Const cdoBasic = 1 ' Basic (clear-text) authentication
Const cdoNTLM = 2 ' NTLM
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Simple plain text CDO example"
' Îò êîãî áóäåì îòïðàâëÿòü, ýòî ðåàëüíî ñóùåñòâóþùèé ÿùèê
objMessage.From = "jenekcowboy@mail.ru"
' Êîìó
objMessage.To = "jenekcowboy@gmail.com"
objMessage.TextBody = "This is a test (sent using SMTP authentication)"
' Configure the send to use another server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Set the name or IP of the remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
' Set the type of authentication to use, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
' óêàçûâàåì ëîãèí äëÿ óäàëåííîãî SMTP ñåðâåðà, äîëæåí ñîâïàäàòü ñ ÿçùèêîì êîòîðûé óêàçàëè â objMessage.From
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "jenekcowboy"
' óñòàíàâëèâàåì ïàðîëü
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "мой пароль"
' Set the server port (usually 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Set if the connection should use SSL (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
' Set the connection timeout in seconds
' (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
' Save the new configuration settings
objMessage.Configuration.Fields.Update
objMessage.Send
End Sub
