ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / CDO
25 сообщений из 35, страница 1 из 2
  1  все
CDO
    #35348265
marinius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marinius
Гость
Здравствуйте. У меня система Windows 2000 advanced server sp4. Access XP.
Не могу отправить почту через CDO, код брала на страничке http://sql.ru/forum/actualthread.aspx?tid=205784&hl=mapi
Ошибка (см. вложение) вылазиет на строке
Код: plaintext
.Update
Каким должно быть значение статуса и как его установить или что мешает его установить???
...
Рейтинг: 0 / 0
02.06.2008, 09:56
| Ответить | Цитировать | Написать  
CDO
    #35348336
Фотография Ёжик`
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ёжик`
Участник
Использованный код в студию.
...
Рейтинг: 0 / 0
02.06.2008, 10:31
| Ответить | Цитировать | Написать  
CDO
    #35348440
marinius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marinius
Гость
Ёжик`Использованный код в студию.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub SendMail()

' Send by connecting to port 25 of the SMTP server.
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML

Const cdoSendUsingPort =  25 

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields

' Set the CDOSYS configuration fields to use port 25 on the SMTP server.

With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
'ToDo: Enter name or IP address of remote SMTP server.
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.11.7"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =  10 
.Update
End With
Это та часть кода, до которой возникает ошибка
...
Рейтинг: 0 / 0
02.06.2008, 11:02
| Ответить | Цитировать | Написать  
CDO
    #35348486
Фотография %?*?%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%?*?%
Участник
cdoSendUsingPort - это совсем не то, что вам показалось...

Код: plaintext
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.
Const cdoSendUsingPickup =  1  'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort =  2  'Send the message using the network (SMTP over the network). 

Const cdoAnonymous =  0  'Do not authenticate
Const cdoBasic =  1  'basic (clear-text) authentication
Const cdoNTLM =  2  'NTLM

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = """Me"" <me@my.com>;" 
objMessage.To = "to@you.com" 
objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication."

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2  

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.your.com"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youruserid"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  25  

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'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 

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send
...
Рейтинг: 0 / 0
02.06.2008, 11:14
| Ответить | Цитировать | Написать  
CDO
    #35348604
marinius
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
marinius
Гость
%?*?%cdoSendUsingPort - это совсем не то, что вам показалось...

[/src]
Алелуя!!! Ну вот вы и нашли мою ошибку, вашим кодом я не воспользовалась, а поставила значение из исходника = 2 (ссылка выше). Спасибо!!! Заработало!!!
...
Рейтинг: 0 / 0
02.06.2008, 12:01
| Ответить | Цитировать | Написать  
CDO
    #35399552
antoniony
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antoniony
Участник
А может мне поможете. Пытался использовать CDO для отправки отчетов из программы, а оно выдает вот такую ошибку на строке .send :


а вот код:
Код: plaintext
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.
Dim iConf
Dim Flds
Dim strHTML
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
    'ToDo: Enter name or IP address of remote SMTP server.
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =  60 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxx"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  25 
    .Update
End With
With iMsg
    Set .Configuration = iConf
    strHTML = HTMLReport(rs![Условие рассылки], rs!Название)
    .To = rs![email] 'ToDo: Enter a valid email address.
    .From = """Me""anton.ryazantsev@gmail.com"  'ToDo: Enter a valid email address.
    .Subject = "Отчет за период с " & datanachala & " по " & datakonca
    .HTMLBody = strHTML
    .Send
End With
...
Рейтинг: 0 / 0
27.06.2008, 18:18
| Ответить | Цитировать | Написать  
CDO
    #35399557
antoniony
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antoniony
Участник
Извините, ошибка не приложилась почему-то. Вот она:
Rutime error '-2147220978' (800402e)':
Сервер отклонил адрес отправителя. Отклик сервера: 530.5.7.0
Must issue a STARTTLS command first.
...
Рейтинг: 0 / 0
27.06.2008, 18:22
| Ответить | Цитировать | Написать  
CDO
    #35399892
Фотография %?*?%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%?*?%
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2  
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =  1 
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = UserName
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = UserPassword
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  465  
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =  120
...
Рейтинг: 0 / 0
27.06.2008, 23:53
| Ответить | Цитировать | Написать  
CDO
    #35400696
antoniony
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
antoniony
Участник
Спасибо огромное, получилось
...
Рейтинг: 0 / 0
29.06.2008, 11:58
| Ответить | Цитировать | Написать  
CDO
    #35985821
Mruck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mruck
Гость
Не можете пояснить:
код использую такой же (который последний) текст ошибки:

Сервер отклонил адрес отправителя. Отклик сервера:
554 Mail from rejected for policy reasons
...
Рейтинг: 0 / 0
14.05.2009, 15:32
| Ответить | Цитировать | Написать  
CDO
    #35986030
%%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%%
Гость
Поясняю - их сервер обозвал тебя спамером.
...
Рейтинг: 0 / 0
14.05.2009, 16:30
| Ответить | Цитировать | Написать  
CDO
    #35986041
Mruck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mruck
Гость
И так для любого из 3 адресов, на которые пробовалось послать?
Это точно сервер принимающей стороны или, быть может, все же мой?
...
Рейтинг: 0 / 0
14.05.2009, 16:34
| Ответить | Цитировать | Написать  
CDO
    #35986070
%%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%%
Гость
Код в студию. Во "From" должен быть валидный мэйл.
...
Рейтинг: 0 / 0
14.05.2009, 16:43
| Ответить | Цитировать | Написать  
CDO
    #35986273
Mruck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mruck
Гость
Код: plaintext
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.
Private Sub Command0_Click()

     Dim Msg
     Set Msg = CreateObject("CDO.Message")
      
     Dim Msghtml As String
     Msghtml = "Privetstvie"
     Msg.HTMLBody = Msghtml
     Msg.AddAttachment (filename)
      Dim mailaddress As String

    mailaddress = "?????"   ' your email
 
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2 
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru"
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") =  60 
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "ZMruck@yandex.ru"
    .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
    .Update
End With
With Msg
    Set .Configuration = iConf
End With

With Msg
    .To = "<" & mailaddress & ">"
    .FROM = "<ZMruck@yandex.ru>;"
    '.AddAttachment ("C:\DoCmd.txt")
    .Send
End With


End Sub
...
Рейтинг: 0 / 0
14.05.2009, 17:26
| Ответить | Цитировать | Написать  
CDO
    #35986335
%%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%%
Гость
Код: plaintext
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  587
...
Рейтинг: 0 / 0
14.05.2009, 17:42
| Ответить | Цитировать | Написать  
CDO
    #35986357
Mruck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mruck
Гость
?
...
Рейтинг: 0 / 0
14.05.2009, 17:48
| Ответить | Цитировать | Написать  
CDO
    #35986384
Mruck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mruck
Гость
если у вас все получилось,
возможно, мне имеет смысл попробовать на другой машине
но в любом случае, любая ошибка по своему любопытна
неплохо бы понять: почему так
...
Рейтинг: 0 / 0
14.05.2009, 17:54
| Ответить | Цитировать | Написать  
CDO
    #35986420
%%
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
%%
Гость
Для начала - научись хотя бы копировать чужой код без ошибок.

Код: plaintext
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.
Const cdoSendUsingPickup =  1  'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort =  2  'Send the message using the network (SMTP over the network). 

Const cdoAnonymous =  0  'Do not authenticate
Const cdoBasic =  1  'basic (clear-text) authentication
Const cdoNTLM =  2  'NTLM

Set objMessage = CreateObject("CDO.Message") 
objMessage.Subject = "Example CDO Message" 
objMessage.From = """Me"" <me@my.com>;" 
objMessage.To = "you@your.com" 
objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication."

'==This section provides the configuration information for the remote SMTP server.

objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") =  2  

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic

'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = UserName

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = UserPassword

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") =  587  

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False

'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 

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

Через 25 -й порт yandex тоже работает.
...
Рейтинг: 0 / 0
14.05.2009, 18:05
| Ответить | Цитировать | Написать  
CDO
    #35986733
Mruck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mruck
Гость
Так, этот момент получился
Но это отправка с указанием параметров сервера

а как быть, если они заранее не известны?
не заставишь же пользователя выяснять у системного администратора, что да как, а потом вбивать данные в табл для дальнейшей подстановки

очень был соблазнителен код:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Private Sub SendCDOmail()    
Dim Msg 'As CDO.Message    
Set Msg = CreateObject("CDO.Message")   
Dim mailaddress As String    
Dim Msghtml As String     
mailaddress = "ttt@uuu.ru"    
Msghtml = "ggg"    
With Msg   
   .HTMLBody = Msghtml    
   .AddAttachment ("C:\...\1.txt")           
   .To = "<" & mailaddress & ">"         
   .FROM = "<vvv@ddd.ru>;"         
   .Send    
End With   
Set Msg = Nothing   
End Sub


но не получается использовать, ибо ругается приведенной выше ошибкой,
несмотря на то, что указанная учетная запись (from) существует в аутлуке, к примеру, и успешно работает
...
Рейтинг: 0 / 0
14.05.2009, 20:20
| Ответить | Цитировать | Написать  
CDO
    #35990735
Mruck
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mruck
Гость
никто не пояснит, в чем может быть ошибка?
...
Рейтинг: 0 / 0
18.05.2009, 09:41
| Ответить | Цитировать | Написать  
CDO
    #36091008
sbabiv
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sbabiv
Гость
не подскажите как ваш код будет выглядеть на шарпе?
...
Рейтинг: 0 / 0
15.07.2009, 12:58
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
CDO
    #37300851
regoptom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
regoptom
Гость
Добрый день.

Подскажите кто-нибудь.
При помощи программы Учет клиентов не могу сделать рассылку(стандартная функция этой программы).
Указываю smtp.gmail.com, далее свой логин, правильный пароль.
БЕЗ РЕЗУЛЬТАТА.
Пишет: "Сервер отклонил адрес отправителя.Отклик сервера 530.5.7.0".

Кто сталкивался с такой проблемой.
...
Рейтинг: 0 / 0
08.06.2011, 16:31
| Ответить | Цитировать | Написать  
CDO
    #37300859
askerli
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
askerli
Участник
regoptomДобрый день.

Подскажите кто-нибудь.
При помощи программы Учет клиентов не могу сделать рассылку(стандартная функция этой программы).
Указываю smtp.gmail.com, далее свой логин, правильный пароль.
БЕЗ РЕЗУЛЬТАТА.
Пишет: "Сервер отклонил адрес отправителя.Отклик сервера 530.5.7.0".

Кто сталкивался с такой проблемой.
... по моему здесь в этой же теме есть решение вашей проблемы
...
Рейтинг: 0 / 0
08.06.2011, 16:36
| Ответить | Цитировать | Написать  
CDO
    #37655866
LETME
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
LETME
Участник
Подскажите пож как отослать письмо, но чтобы оно оставалось в отправленных?
...
Рейтинг: 0 / 0
10.02.2012, 14:27
| Ответить | Цитировать | Написать  
CDO
    #37655896
Фотография Ёжик`
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ёжик`
Участник
LETMEПодскажите пож как отослать письмо, но чтобы оно оставалось в отправленных?

Для gmail это штатно - ничего делать не надо.
Для других почтовиков - шлите себе скрытую копию.
...
Рейтинг: 0 / 0
10.02.2012, 14:37
| Ответить | Цитировать | Написать  
25 сообщений из 35, страница 1 из 2
  1  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / CDO
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=65&tid=1612015]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 121ms
get tp. blocked users:
 2ms
others: 13ms
total:  228ms
созд. / загр.: 228ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]