![]() |
Внимание, важное сообщение: Дорогие Друзья!
В ноябре далекого 2001 года мы решили создать сайт и форум, которые смогут помочь как начинающим, так и продвинутым пользователям разобраться в операционных системах. В 2004-2006г наш проект был одним из самых крупных ИТ ресурсов в рунете, на пике нас посещало более 300 000 человек в день! Наша документация по службам Windows и автоматической установке помогла огромному количеству пользователей и сисадминов. Мы с уверенностью можем сказать, что внесли большой вклад в развитие ИТ сообщества рунета. Но... время меняются, приоритеты тоже. И, к сожалению, пришло время сказать До встречи! После долгих дискуссий было принято решение закрыть наш проект. 1 августа форум переводится в режим Только чтение, а в начале сентября мы переведем рубильник в положение Выключен Огромное спасибо за эти 24 года, это было незабываемое приключение. Сказать спасибо и поделиться своей историей можно в данной теме. С уважением, ваш призрачный админ, BigMac... |
|
Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - Как отправить файл на почту ? |
|
VBS/WSH/JS - Как отправить файл на почту ?
|
Пользователь Сообщения: 54 |
Есть код 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 Помогите пожалуйста исправить |
|
Отправлено: 19:19, 10-11-2018 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать palexa, для начала Вам следует в настройках GMail разрешить работу с небезопасными приложениями.
|
Отправлено: 19:27, 10-11-2018 | #2 |
Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети. Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля. |
Пользователь Сообщения: 54
|
Профиль | Отправить PM | Цитировать Спасибо, я думал разрешить использовать почтовый клиент будет достаточно
Всё заработало, почта и главное файл пришёл на почту |
Отправлено: 20:10, 10-11-2018 | #3 |
Пользователь Сообщения: 54
|
Профиль | Отправить PM | Цитировать скажу огромное спасибо, если кто приведёт пример такого скрипта для bat файла
Суть в том, что есть задача Посчитать место в папке C:\Users и записать в файл - батник есть Почистить хлам всех пользователей - батник есть Опять посчитать место всех пользователей и записать в файл - батник есть Отправить оба файла на почту - батника нет, есть vbs А будет хорошо если все эти 4 задачи объединить в один батничек и засунуть в планировщик Заранее спасибо за помощь |
Отправлено: 20:30, 10-11-2018 | #4 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать Цитата palexa:
|
||
Отправлено: 22:26, 10-11-2018 | #5 |
Пользователь Сообщения: 54
|
Профиль | Отправить PM | Цитировать может и так
|
Последний раз редактировалось palexa, 11-11-2018 в 05:42. Отправлено: 22:43, 10-11-2018 | #6 |
Пользователь Сообщения: 54
|
Профиль | Отправить 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 |
Ветеран Сообщения: 27449
|
Профиль | Отправить PM | Цитировать palexa, и «щас» так «зя», ничего тут не менялось. Но где Вы нынче найдёте публичные почтовые сервера без SSL/TLS?!
|
Отправлено: 07:12, 11-11-2018 | #8 |
![]() |
Участник сейчас на форуме |
![]() |
Участник вне форума |
![]() |
Автор темы |
![]() |
Сообщение прикреплено |
| |||||
Название темы | Автор | Информация о форуме | Ответов | Последнее сообщение | |
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 |
|