Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Web программирование > JavaScript, Ajax
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 16.01.2015, 11:44   #1
Dimas_Kov
Новичок
Джуниор
 
Регистрация: 16.01.2015
Сообщений: 3
Счастье VBS Скрипт ошибка!

Подскажите,где ошибка..возможно и не одна!Пишет:

Строка: 20
Символ: 1
Сервер отклонил одно или несколько адресов получателей.Отклик сервера: 550 SMTP is available only with SSL or TSL connection enabled.

Код 8004020F
Источник (null)
Код:
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "скрыто@mail.ru"
objEmail.To = "скрыто@mail.ru"
objEmail.Subject = "Backup" 
objEmail.Textbody = "Backup"

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = "2"
objEmail.AddAttachment "C:\Users\security\Downloads\blat262\full\123.txt"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru" 
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "2525"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "скрыто"
objEmail.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "скрыто"
objEmail.Configuration.Fields.Update

objEmail.Send
Сразу скажу,что проверял отправку и получение используя один и тот же почтовый ящик и при этом,думаю дело далеко не в этом!

Последний раз редактировалось Stilet; 16.01.2015 в 11:55.
Dimas_Kov вне форума Ответить с цитированием
Старый 16.01.2015, 12:01   #2
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
SMTP is available only with SSL
Это значит тебе придется подключать SSL.
Попробуй вот это: https://helloacm.com/how-to-send-ema...and-gmail-ssl/
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 16.01.2015, 12:12   #3
Dimas_Kov
Новичок
Джуниор
 
Регистрация: 16.01.2015
Сообщений: 3
По умолчанию

Исправил на защищенное соединение и всеравно пишет ОШИБКА!!!!!!!!!
Строка 20
Символ 1
Тобиш : objEmail.Send
Что тут неправильно,если все правильно?Как быть?

Цитата:
Сообщение от Stilet Посмотреть сообщение
Это значит тебе придется подключать SSL.
Попробуй вот это: https://helloacm.com/how-to-send-ema...and-gmail-ssl/
Спасибо конечно!Но хотелось бы все же исправить этот!
Есть идеи что делать с Строкой 20 символ 1? Я уже и большую букву ставил..бесполезно!Как быть?

Аааа помогите спасите!!!!!Помогите исправить ну!
Код:
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "******@mail.ru"
objEmail.To = "*****@mail.ru"
objEmail.Subject = "Backup" 
objEmail.Textbody = "Backup123"

objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = "2"
objEmail.AddAttachment "C:/Users/security/Downloads/blat262/full/123.txt"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "465" / вот и защищенный SSL =]
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "*****"
objEmail.Configuration.Fields.Item _ 
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "*****"

objEmail.Configuration.Fields.Update
objEmail.Send

Последний раз редактировалось Stilet; 16.01.2015 в 16:37.
Dimas_Kov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBS скрипт Xezon Windows 1 18.10.2014 22:27
Необходимо написать скрипт на языке vbs (find mask) Softinok Помощь студентам 1 26.02.2014 12:09
VBS: скрипт: групповой ping ARTlink Помощь студентам 1 23.05.2012 19:02