Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Как отправить файл на почту ?

Ответить
Настройки темы
VBS/WSH/JS - Как отправить файл на почту ?

Новый участник


Сообщения: 26
Благодарности: 0

Профиль | Отправить PM | Цитировать


Есть код vbs

Код: Выделить весь код
Dim o_Mess, v_Conf
v_Conf = "http://schemas.microsoft.com/cdo/configuration/"
Set o_Mess = CreateObject("CDO.Message")
With o_Mess
    .To = "user1@gmail.com" 'куда отправляем
    .From = "Alex <user2@gmail.com>" 'имя отправителя + Email
    .Subject = "Subj" 'Тема письма
    .TextBody = "BodyMail" 'Сообщение
    .AddAttachment "E:\soedinenie-patch-kordov-3.jpg" 'Прикрепить файл
    .TextBodyPart.Charset = "windows-1251" 'русская кодировка
With .Configuration.Fields
    .Item(v_Conf & "sendusing") = 2 'без использования каталога Server Exchange
    .Item(v_Conf & "smtpserver") = "smtp.gmail.com" 'Адрес SMTP-сервера
    .Item(v_Conf & "smtpauthenticate") = 1 'Тип авторизации
    .Item(v_Conf & "sendusername") = "user2@gmail.com" 'здесь имя пользователя без @
    .Item(v_Conf & "sendpassword") = "parol" 'пароль
    .Item(v_Conf & "smtpserverport") = 465 'порт 
    .Item(v_Conf & "smtpusessl") = True 'использовать ли шифрованое подключение SSL
    .Item(v_Conf & "smtpconnectiontimeout") = 60 'Время до завершения повторных попыток подключения
    .Update
End With
    .send
End With
Set o_Mess = Nothing
При запуске выходит с ошибкой "Не удалось отправить сообщение на SMTP-сервер. Код ошибки транспорта: 0x80040217. Отклик сервера: not available".

Помогите пожалуйста исправить

Отправлено: 19:19, 10-11-2018

 

Ветеран


Contributor


Сообщения: 23134
Благодарности: 6733

Профиль | Отправить PM | Цитировать


palexa, для начала Вам следует в настройках GMail разрешить работу с небезопасными приложениями.

Отправлено: 19:27, 10-11-2018 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Новый участник


Сообщения: 26
Благодарности: 0

Профиль | Отправить PM | Цитировать


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

Всё заработало, почта и главное файл пришёл на почту

Отправлено: 20:10, 10-11-2018 | #3


Новый участник


Сообщения: 26
Благодарности: 0

Профиль | Отправить PM | Цитировать


скажу огромное спасибо, если кто приведёт пример такого скрипта для bat файла

Суть в том, что есть задача

Посчитать место в папке C:\Users и записать в файл - батник есть
Почистить хлам всех пользователей - батник есть
Опять посчитать место всех пользователей и записать в файл - батник есть
Отправить оба файла на почту - батника нет, есть vbs

А будет хорошо если все эти 4 задачи объединить в один батничек и засунуть в планировщик

Заранее спасибо за помощь

Отправлено: 20:30, 10-11-2018 | #4


Ветеран


Contributor


Сообщения: 23134
Благодарности: 6733

Профиль | Отправить PM | Цитировать


Цитата palexa:
А будет хорошо если все эти 4 задачи объединить в один батничек и засунуть в планировщик »
Будет лучше, если засунуть пакетные файлы в …, а задачу реализовать одним скриптом WSH или PowerShell.

Отправлено: 22:26, 10-11-2018 | #5


Новый участник


Сообщения: 26
Благодарности: 0

Профиль | Отправить PM | Цитировать


может и так

Последний раз редактировалось palexa, 11-11-2018 в 05:42.


Отправлено: 22:43, 10-11-2018 | #6


Новый участник


Сообщения: 26
Благодарности: 0

Профиль | Отправить PM | Цитировать


Когда то для отправки файла я использовал, может кому пригодится

Код: Выделить весь код
blat.exe -install -server 10.243.1.2 -port 25 -f (user) -u (user) -pw ()
blat.exe -charset utf-8 -to test@domine -subject "труляя" -body "Аляя" -attach "log\putty.log"
ren log\putty.log "putty_%DATE%_%time:~0,2%-%time:~3,2%-%time:~6,2%.log"
Но щас так нельзя.
Точнее можно использовать только штатные ...

Отправлено: 05:41, 11-11-2018 | #7


Ветеран


Contributor


Сообщения: 23134
Благодарности: 6733

Профиль | Отправить PM | Цитировать


palexa, и «щас» так «зя», ничего тут не менялось. Но где Вы нынче найдёте публичные почтовые сервера без SSL/TLS?!

Отправлено: 07:12, 11-11-2018 | #8



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Как отправить файл на почту ?

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - [решено] как отправить файл с помощью BAT на mail exekill Скриптовые языки администрирования Windows 1 08-03-2012 10:04
CMD/BAT - [решено] Отправить файл на почту. rust-02 Скриптовые языки администрирования Windows 1 23-08-2010 23:14
как отправить почту с помощью telnet slaine Хочу все знать 3 16-02-2009 15:36
Не могу отправить почту на определенный домен Wind001 Microsoft Exchange Server 3 07-07-2008 16:11
[решено] Как отправить файл на сервер? BacuJIuu KypraHoB Вебмастеру 8 17-07-2007 12:12




 
Переход