 |
|
Как отправить файл на почту ?
Есть код 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".
Помогите пожалуйста исправить |
palexa, для начала Вам следует в настройках GMail разрешить работу с небезопасными приложениями.
|
Спасибо, я думал разрешить использовать почтовый клиент будет достаточно
Всё заработало, почта и главное файл пришёл на почту
|
скажу огромное спасибо, если кто приведёт пример такого скрипта для bat файла
Суть в том, что есть задача
Посчитать место в папке C:\Users и записать в файл - батник есть
Почистить хлам всех пользователей - батник есть
Опять посчитать место всех пользователей и записать в файл - батник есть
Отправить оба файла на почту - батника нет, есть vbs
А будет хорошо если все эти 4 задачи объединить в один батничек и засунуть в планировщик
Заранее спасибо за помощь
|
Цитата:
Цитата palexa
А будет хорошо если все эти 4 задачи объединить в один батничек и засунуть в планировщик »
|
Будет лучше, если засунуть пакетные файлы в …, а задачу реализовать одним скриптом WSH или PowerShell. |
Когда то для отправки файла я использовал, может кому пригодится
Код:
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"
Но щас так нельзя.
Точнее можно использовать только штатные ... |
palexa, и «щас» так «зя», ничего тут не менялось. Но где Вы нынче найдёте публичные почтовые сервера без SSL/TLS?!
|
Время: 16:19.
© OSzone.net 2001-