Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите обавить компоненты, чтобы скрипт заработал. / 24 сообщений из 24, страница 1 из 1
01.03.2010, 11:56
    #36494289
missing.fox
missing.fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Создал MailTest.vbs:

Dim iMsg
Set iMsg = CreateObject("CDO.Message")
With iMsg
.To = "test@test.com"
.Subject = "MS SQL Server 2000"
.HTMLBody = "Message Body"
End With

Не приходит сообщение на адрес test@test.com с тестового сервера.
Вопрос, что не настроено непосредственно на виндовом сервере.
Может надо где-то подключить CDO и MIME.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 12:06
    #36494326
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Не приходит потому что не отправляется. .Send хде?

Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 12:58
    #36494528
missing.fox
missing.fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Вообще, этот скрипт я нашел в инете на SQL.RU заявлено, как рабочий, но не работает.
Исполняю, ошибок не возвращает.
Или что-то неправильно написано, что-то забыл ...
Надо, чтобы месадж отсылался, а не приходит ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 13:07
    #36494572
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Код: plaintext
1.
   .Send
End With
Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 14:35
    #36494865
missing.fox
missing.fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Не получилось ...

Dim iMsg
Set iMsg = CreateObject("CDO.Message")
With iMsg
.To = "martynov@russlavbank.com"
.Subject = "MS SQL Server 2000"
.HTMLBody = "Message Body"
.Send
End With

Ругнулся:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 14:41
    #36494878
missing.fox
missing.fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Не получилось ...

Dim iMsg
Set iMsg = CreateObject("CDO.Message")
With iMsg
.To = "test@test.com"
.Subject = "MS SQL Server 2000"
.HTMLBody = "Message Body"
.Send
End With

Ругнулся:
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 14:43
    #36494887
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
придётся вам сначала почитать про CDO, а не копипастить чужой пример кода
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 14:45
    #36494896
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Служба smtp на компьютере установлена? Работает?

Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 15:18
    #36495015
missing.fox
missing.fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Что значит служба SMTP, я именно про это и спрашиваю.
Надо какой сервис поднять на сервере или что ...
Аутлук настроен на SMTP и РОР аккаунт ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 15:51
    #36495118
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Служба = сервис.
Да, нужно поднять SMTP-сервис.
Аутлук вообще ни при чем, как и его настройки.

Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 16:02
    #36495164
missing.fox
missing.fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
есть какой стандартный или необходимо сторонний ставить?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 16:05
    #36495174
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
в составе IIS
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 16:23
    #36495221
missing.fox
missing.fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
поставил, не помогло ... всё тоже ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 16:25
    #36495232
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
так если поставил, то настрой его
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 16:27
    #36495237
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Включи релей на адрес 127.0.0.1
Проверь, запущена ли служба. По умолчанию она может быть выключена.

Jah loves you.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 16:57
    #36495333
missing.fox
missing.fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Всё так и есть, не работает ...
Возвращает ту же ошибку ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 17:00
    #36495345
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
у вас домен? почтовый сервак внутри домена есть? если есть, то попробуйте послать почтовое сообщение на известный локальный адрес
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 17:21
    #36495398
missing.fox
missing.fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
у меня на этом сервере настроен Аутлук, оно работает ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 17:25
    #36495410
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
аутлук настроен скорее всего на внешний smtp, поэтому и работает.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 17:26
    #36495414
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
глядите весёлые картинки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 17:30
    #36495425
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
и на закуску все способы отправки e-mail
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.03.2010, 17:33
    #36495433
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
и вот это посмотрите, думаю вам будет полезно. т.к. скорее всего вы даже джокументацию по CDO не читали
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2010, 09:59
    #36496210
missing.fox
missing.fox
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
Konst_One,
Спасибо за ссылку, заработало вот таким образом:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Dim oMyMail
Set oMyMail = CreateObject("CDO.Message")
omyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp"
oMyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "Login"
oMyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "Password"
oMyMail.Configuration.Fields.Update
oMyMail.To = "Mail@to.ru"
oMyMail.From = "Login"
oMyMail.TextBody = "Our letter"
oMyMail.AddAttachment "C:\1.txt"
oMyMail.Send
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
02.03.2010, 10:01
    #36496213
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите обавить компоненты, чтобы скрипт заработал.
missing.fox,

Модератор: не забывайте про тег SRC
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите обавить компоненты, чтобы скрипт заработал. / 24 сообщений из 24, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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