Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отправка почты, Отправка почты VB6 
:(
    Опции темы
Coobalt
Дата 6.11.2009, 17:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 4.9.2007

Репутация: нет
Всего: нет
Доброво времени! Есть такая проблема: Допустим у меня есть заранее зарегенные емэйл1 и емэйл2. Необходимо чтобы программа, содержащая эти адреса в исходном коде, отправляла данные которые вводит юзер с емэйл1 на емэйл2.На VB6 уже так делал давно но совершенно забыл как. и примера нет. фпоизге нахожу только примеры для VB.NET, но для конкретного случая к сожалению вариант не подходит. Помогите пожалуста проблему решить!
PM MAIL   Вверх
Akina
Дата 6.11.2009, 18:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Берёшь винсок, берёшь описание SMTP-протокола - и вперёд.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Coobalt
Дата 6.11.2009, 18:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 4.9.2007

Репутация: нет
Всего: нет
я делаю так:
Код

Dim outMessage As Object
Set outMessage = CreateObject("CDO.Message")
With outMessage
.Subject = "тема"
.From = "[email protected]"
.To = "[email protected]"
.TextBody = "текст"
.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Configuration.Fields.Update
.Send
End With
 
нашел на этом же форуме. пишет ошибку: фсякая фигня, потом - "users un your domain us not allowed to send email without authorization" Что не так? Через винсок - брал готовый исходник с какогото немецкого сайта и тоже не работало. И, как мне кажется, по той же причине.
PM MAIL   Вверх
Akina
Дата 6.11.2009, 19:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Coobalt @  6.11.2009,  19:57 Найти цитируемый пост)
Что не так? 

у тебя на SMTP-сервере прикрыт open relay. Что правильно. Авторизуйся - и будет тебе щастье.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Coobalt
Дата 6.11.2009, 21:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 4.9.2007

Репутация: нет
Всего: нет
а можно ли авторизоваться программно? используя данный код?
PM MAIL   Вверх
Akina
Дата 6.11.2009, 22:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата из MSDN
Код

Dim iConf as new CDO.Configuration
  Dim Flds as ADODB.Fields
  Set Flds = iConf.Fields
  
    ' The full field name strings are used below to illustrate this process.
    ' The CDO for Windows 2000 type library contains string Modules
    ' that provide these values as named constants.  
    ' Use these module constants to avoid typos and so on.

  Flds("http://schemas.microsoft.com/cdo/configuration/smtpserver")               = "fakesmtp.microsoft.com"
  Flds("http://schemas.microsoft.com/cdo/configuration/smtpserverport")           = 25
  Flds("http://schemas.microsoft.com/cdo/configuration/sendusing")                = cdoSendUsingPort  ' CdoSendUsing enum value =  2
  Flds("http://schemas.microsoft.com/cdo/configuration/smtpaccountname")          = "My Name"
  Flds("http://schemas.microsoft.com/cdo/configuration/sendemailaddress")     = """MySelf"" <[email protected]>"
  Flds("http://schemas.microsoft.com/cdo/configuration/smtpuserreplyemailaddress")= """Another"" <[email protected]>"
  Flds("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")         = cdoBasic
  Flds("http://schemas.microsoft.com/cdo/configuration/sendusername") = "domain\username"
  Flds("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "password"
  Flds.Update
   
  Dim iMsg as new CDO.Message
  Set iMsg.Configuration = iConf
  
  ' ... compose message; add attachments, and so on.
  
  iMsg.Send   ' Configuration settings in Config object are used to send the message.

Разбирайся.
Но лучше прочти всё-таки объектную модель...


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Coobalt
Дата 7.11.2009, 14:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 8
Регистрация: 4.9.2007

Репутация: нет
Всего: нет
Разобрался, все работает))))СПС большое за ответы
PM MAIL   Вверх
Baha_Ahmed
Дата 14.11.2009, 00:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.12.2007

Репутация: нет
Всего: нет
Цитата(Coobalt @ 7.11.2009,  14:19)
Разобрался, все работает))))

Помоги и мне разобраться, сколько мучаюсь с этой отправкой почты, не могу разобраться. Заранее спасибо!!!
PM MAIL   Вверх
Baha_Ahmed
Дата 26.11.2009, 11:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 100
Регистрация: 21.12.2007

Репутация: нет
Всего: нет
Coobalt, слушай не могу разобраться в отправке почты, помоги если можешь!!!
PM MAIL   Вверх
Antila
Дата 4.2.2010, 16:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет
А почему такой вариант не работает? 
Выдает ошибку: Не удалось отправить сообщение на SMTP-сервер. Код ошибки транспорта 0x800ccc67. Отклик сервера: 421 Cannot connect to SMTP server  и т.д. ............., connect error 10061

Что я не так делаю?
Код

Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
objMsg.From = "[email protected]"
objMsg.To = "[email protected]"
objMsg.Subject = "Test sending email from sсriрt"
objMsg.Textbody = "This is a body of E-mail."
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.list.ru"
Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "[email protected]"
Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "123456"
Config.Fields.Update
objMsg.Send 


Самое интресное, что с Яндесом этот код работает, а если использовать List, то ругается...

Это сообщение отредактировал(а) Antila - 4.2.2010, 18:28
PM MAIL   Вверх
Akina
Дата 4.2.2010, 18:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Код верный. Просто надо быть внимательнее.
http://www.mail.ru/pages/help/79.html


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Antila
Дата 5.2.2010, 08:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет
По-моему, сделано всё именно так, как просит @Mail. Или я чего-то недопонимаю.....
PM MAIL   Вверх
Akina
Дата 5.2.2010, 08:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Нет. Читай внимательнее, что есть ИМЯ ПОЛЬЗОВАТЕЛЯ.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Antila
Дата 5.2.2010, 09:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 76
Регистрация: 28.11.2007

Репутация: нет
Всего: нет
Ааааа, вижу, большое спасибо! =)

А ещё не поскажите, как можно на несколько адресов письмо отправить?

Код

objMsg.To = "[email protected]", "[email protected]" 

А то на такую строчку ругается
PM MAIL   Вверх
Akina
Дата 5.2.2010, 09:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Antila @  5.2.2010,  10:10 Найти цитируемый пост)
как можно на несколько адресов письмо отправить?

Код

objMsg.To = """Иванов Иван Иванович"" <[email protected]>, ""Петров Пётр Петрович"" <[email protected]>"


Цитата(Antila @  5.2.2010,  10:10 Найти цитируемый пост)
на такую строчку ругается 

Слушайте, прекращайте писАть код и идите читать самые что ни на есть основы. Не увидеть в этом вашем "опусе" тривиальнейшей синтаксической ошибки может только в принципе не знающий языка человек.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0616 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.