[решено] Отправить письмо с вложением. - Компьютерный форум OSzone.net

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Отправить письмо с вложением. (http://forum.oszone.net/showthread.php?t=157748)

Отправить письмо с вложением.

Как можно реализовать сабж, с использованием CMD.

Без использования сторонних программ - утилит. Возможно использование PowerShell.

Суть такова:
Есть bat файл, который ведет лог своей работы и в конце работы делает call Send-Log-Email.bat
Send-Log-Email.bat должен отправить на почту лог предидущего бат файла.

Как реализовать в бат файле отправку письма с вложением?

Отправлять почту через батик никогда не пробовал - слишком часто там приходится следить за ответом сервера, находясь в оболочке телнета.

Лично для себя - отправляю логи через ftp (есть у многих хостеров с бесплатной почтой). Могу поделиться одним из:
Батник на удаленном объекте по Шедулу паковал архив с некой базой и логом и отправлял его на ftp сервер (используется до сих пор). В главном офисе другой батник (также по Шедулу, но на пару часов позже) скачивал и распаковывал архив.
При необходимости апдейта версии или прочих "действиях" на удаленном объекте, батник поддерживает передачу 2х файлов - один из них батник апдейта, а другой - некоторые данные, например архив.
Пересылка

Код:

@Echo Off

echo MyLogin>SendBase.ftp

echo MyPassword>>SendBase.ftp

echo binary>>SendBase.ftp

echo delete MyBase.rar>>SendBase.ftp

echo send MyBase.rar>>SendBase.ftp

echo recv UpDate._>>SendBase.ftp

echo delete UpDate._>>SendBase.ftp

echo recv UpDate.upd>>SendBase.ftp

echo delete UpDate.upd>>SendBase.ftp

echo bye>>SendBase.ftp



set DB=\\DataServer\MyBase\

set RAR="C:\Program Files\WinRAR\WinRAR.exe"



echo ========== %Date% %Time% ==========>>%DB%MyBase.log

del /Q MyBase.rar>>%DB%MyBase.log

%RAR% a -r -dh -m5 -mdg MyBase.rar %DB%*.*>>%DB%MyBase.log

ftp -i -s:SendBase.ftp ftp.MyFtpServer>>%DB%MyBase.log

del /Q SendBase.ftp



if not exist UpDate._ goto End

echo Starting UpDate module>>%DB%MyBase.log

del /Q UpDate.bat>nul

copy /y UpDate._ UpDate.bat>>%DB%MyBase.log

del /Q UpDate._>nul

UpDate.bat

:End

echo.>>%DB%MyBase.log

echo.>>%DB%MyBase.log

Ну а если FTP не катит - могу поделиться старой памяткой МТУшников для работы с почтой без клиента (не было у них веб-интерфейса):

Код:

Работа с почтовым ящиком через Telnet. 



Чтобы немножко разобраться какие команды дает 

Ваш почтовый клиент pop/smtp-серверу при 

отправке/получение почты, я написал эту статью. 

Теперь я хочу добавить, что протокол POP 

использует 110 порт, а SMTP - 25. Где же 

вводить команды и какие команды? Команды 

можно вводить в любой телнет-программе, 

я опишу как это можно сделать с помощью 

встроенной в Windows программы Telnet. 

Чтобы вызвать эту программу выполните 

следующие действия: зайдите в меню "ПУСК", 

затем "Выполнить" и набираете "telnet". 

В результате Вы видите перед собой такой экран: 

Теперь заходите в раздел меню 

"Подключение(Подключить)" и выбираете пункт 

меню "Удаленная система". Появилось новое 

окно: В него вводите адрес сервера, порт 

вписываете тот что Вам нужен, еще раз 

напомню: POP - 110 порт - чтение почты 

SMTP - 25 порт - оправка почты Тип 

терминала оставляете - vt100. И жмите 

на кнопку "Подключить". Работа с POP(110 порт)

по Telnetу. Появляется приглашение сервера и 

Вы вводите логин и пароль, ввод производится 

следующим образом: набираете "USER логин", 

затем вводите пароль: "PASS пароль". Тут 

появляется проблема, пароль отображается 

на экране в том же виде в котором Вы его

вводите, а значит любой человек, который 

находится рядом сможет увидеть Ваш пароль. 

Что же надо сделать что бы не было видно 

пароля при вводе? Просто заходите в пункт 

меню "Терминал", дальше в раздел "Параметры" 

и убираете там галку напротив "Отображение 

ввода", и теперь спокойно вводите пароль, 

только не забудьте после ввода пароля галочку 

поставить обратно. Команды возможно выполнять 

подключившись к серверу по POP: STAT 

Запрашивает и выводит информацию о количестве 

непрочитанных сообщений и их размер в байтах. 

RETR n Показывает сообщение номер n. DELE n 

Удаляет сообщение номер n. LAST Запрашивает 

номер последнего прочитанного сообщения. 

LIST (n) Запрашивает информацию о размере 

сообщения номер n или о размере всех 

сообщений.. RSET Восстанавливает удаленные 

сообщения и устанавливает счетчик сообщений 

в 1. TOP n Печатает заголовок и первую строку 

сообщения n. NOOP Режим ожидания. HELP Вывод 

помощи и используемых команд. QUIT Завершение 

сеанса. Работа с SMTP(25 порт) по Telnetу или 

отправка почты. После подключения к серверу 

Вам не надо вводить логин и пароль как при 

подключение по POP, аутентификация происходит 

после того как Вы "приветствуете" сервер 

командой "HELO сервер отправителя", иногда 

сервер индетифицирует пользователя по команде 

"MAIL from: e-mail-адрес отправителя". Следующей 

командой Вы определяете получателя - 

"RCPT to: адрес@получателя". После того как 

системе стал известен оправитель и получатель 

можно начать писать свое сообщение. Начало 

сообщения задается командой "DATA" без параметров,

потом Вы вводите текст сообщения, закончить надо 

вводом "." и нажатием за ней клавиши "Enter" на 

новой строчке. Все, сообщение отправлено! А вот 

список команд, которые можно выполнять на сервере,

подключившись к нему по SMTP: HELO 

сервер-отправитель Идентифицирует SMTP-сервер 

отправителя. MAIL FROM адрес@отправителя Задает 

адрес отправителя. RCPT TO: адрес@получателя 

Задает адрес получателя. DATA Указывает на 

начало сообщения. Для окончания сообщения 

указывается (.). RSET Прерывает передачу 

сообщения. VRFY email@адрес Проверяет 

существование почтового ящика, но на 

большинстве эта опция закрыта или выполняется

автоматически при вводе команды: 

"RCPT to: адрес@получателя" . EXPN <> 

Запрашивает список адресов электронной почты. 

HELP Запрашивает online-помощь. Выводит 

описание команд, реализованных в системе. 

QUIT Завершает SMTP-сеанс. Cписок ответов, 

возращаемых сервером при подключении по 

SMTP: 211 Статус системы 214 Сообщение помощи 

220 Сервер готов к выполнению команд 

221 Закрытие канала передачи 250 Требуемые 

действия, выполнены успешно 251 Не локальный 

пользователь; отправить по заданному пути 

354 Приглашение ввести текст сообщения и по 

завершению письма ввести "." на новой строчке 

и нажать Enter 421 Не предусмотрено системой 

и закрытие канала 450 Команда не выполнена 

по причине занятости ящика 451 Требуемое 

действие прервано из-за локальной ошибки 

452 Требуемое действие не выполнено из-за 

недостатка ресурсов 500 Синтаксическая ошибка,

команда не распознана 501 Синтаксическая ошибка 

в параметрах 502 Команда не выполнена 

503 Неправильная последовательность команд 

504 Параметры команды не выполнены 

550 Действия не выполнены, ящик не доступен 

551 Пользователь не локальный; пожалуйста 

попробуйте этот путь 552 Действие прервано 

из-за превышения объема 553 Требуемое действие 

прервано: неправильно введено имя ящика 

554 Задание не выполнено

Цитата:

Цитата uptk

Возможно использование PowerShell »

Код:

$emailFrom = "user@yourdomain.com"

$emailTo = "user@yourdomain.com"

$subj = "your subject"

$body = "your body"

$file = "c:\file.txt"

$smtpServer = "your smtp server"



$att  = new-object Net.Mail.Attachment($file)

$smtp = new-object Net.Mail.SmtpClient($smtpServer)

$msg  = new-object Net.Mail.MailMessage



$msg.From = $emailFrom

$msg.To.Add($emailTo)

$msg.Subject = $subj

$msg.Body = $body

$msg.Attachments.Add($att)



$smtp.Send($msg)

$att.Dispose()

Быть может Вам подойдет не PowerShell, а VBS/WSH? Вот тут пример есть: Примеры скриптов для администрирования
Скрипт сжимает указанную папку с логами и отправляет по указанному адресу.
Недостатки решения:
- использование внешней утилиты сжатия 7z.exe;
- необходимость Exchange server в организации.

Код:

' === Script Information Header ===

' Script Name: SendArchive.vbs

' Date:        19.10.09

' Author:      Виталий Бочкарев

' Description: Скрипт сжатия папки и отправки архива по почте



' === Initialization Block ===

Option Explicit

On Error Resume Next

Dim mWorkDir, mCommand

Dim oShell, oFSO, oEmail

Const mFolderToCompress = "C:\Test Folder\*"

Const mArhiveName = "Attachment.zip"

Const mFrom = "script@domain.com"

Const mTo = "user@domain.com"

Const mSubject = "Letter Subject"

Const mTextBody = "Look the attachment."

Const mSMTPServer = "mail.domain.com"

Const mSMTPport = 25



' ==== Script Main Logic ====

' Создание объекта оболочки

Set oShell = CreateObject("WScript.Shell")

' Создание объекта файловой системы

Set oFSO = CreateObject("Scripting.Filesystemobject")

' Создание объекта почтового сообщения

Set oEmail = CreateObject("CDO.Message")

' Получение рабочей директории скрипта

mWorkDir = Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))

' Составление команды для упаковки указанной директории

mCommand = """" & mWorkDir & "7z.exe""" & " a -y " & """" & mWorkDir & mArhiveName _

  & """ """ & mFolderToCompress & """"

' Упаковка директории

Call oShell.Run(mCommand, 0, True)

' Составление почтового сообщения

oEmail.From = mFrom

oEmail.To = mTo

oEmail.Subject = mSubject

oEmail.Textbody = mTextBody

' Прикрепление архива к сообщению

Call oEmail.AddAttachment(mWorkDir & mArhiveName)

' Настройка почтового канала

oEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/" & _

  "cdo/configuration/sendusing") = 2

oEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/" & _

  "cdo/configuration/smtpserver") = mSMTPServer

oEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/" & _

  "cdo/configuration/smtpserverport") = mSMTPport

oEmail.Configuration.Fields.Update

' Отправка сообщения

oEmail.Send

WScript.Sleep 300

' Удаление архива

Call oFSO.DeleteFile(mWorkDir & mArhiveName, True)

Цитата:

Цитата vitaliyboch

Недостатки решения:
- использование внешней утилиты сжатия 7z.exe;
- необходимость Exchange server в организации. »

- упаковывать никто не обязывает;
- тут отправка по SMTP, не вижу необходимости в Exchange.

Цитата:

Цитата amel27

$emailFrom = "user@yourdomain.com"
$emailTo = "user@yourdomain.com"
$subj = "your subject"
$body = "your body"
$file = "c:\file.txt"
$smtpServer = "your smtp server"
$att = new-object Net.Mail.Attachment($file)
$smtp = new-object Net.Mail.SmtpClient($smtpServer)
$msg = new-object Net.Mail.MailMessage
$msg.From = $emailFrom
$msg.To.Add($emailTo)
$msg.Subject = $subj
$msg.Body = $body
$msg.Attachments.Add($att)
$smtp.Send($msg)
$att.Dispose() »

В *.bat файле имя файла с логом формируеться по текущей дате

Код:

Log_BackUp-%DATE:~-10%.txt

имя файла выглядит, так

Код:

Log_BackUp-23.11.2009.txt

подскажите, как передать в скрипт PowerShell-a, подобное имя?

Цитата:

Цитата uptk

имя файла с логом формируеться по текущей дате »

Код:

$file = "Log_BackUp-" + (Get-Date -format "dd.mm.yyyy") + ".txt"

Как использовать авторизацию на почтовом сервере?

Можно использовать почтовый сервер для отправки без авторизации, но он находится в другой сети и не всегда может быть доступен.
А почтовый сервер, который находиться в одной сети с машиной на которой это будет работать, требует авторизации.

Подскажите как прикрутить авторизацию в скрипте.

Цитата:

Цитата uptk

как прикрутить авторизацию в скрипте »

может так?... проверить пока нет возможности

Код:

$smtp.Credentials = new-object Net.NetworkCredential("user", "password")

Цитата:

Цитата amel27

$file = "Log_BackUp-" + (Get-Date -format "dd.mm.yyyy") + ".txt" »

с такой конструкцией возникли "козявки" в секции (Get-Date -format "dd.mm.yyyy") выводились минуты.

Исправил на вот такое

Код:

(Get-Date -uformat "%d.%m.%Y")

С авторизацией попробую, отпишусь.

C авторизацией оказалось совсем по другому, чем думал.

Сервер в локальной сети не хотел отправлять от несуществующего пользователя.
Предложенная конструкция работала, даже с неправильным паролем, убрал её тоже работает.

В остальном все хорошо, всем спасибо!

Камрады, а как сделать отправку без внешнего SMTP?
Может как то срипт надо пделать так, что бы локальная машина выступала в роли SMTP сервера и отправка шла от localhost?

ameelien, элементарно. Разверните на локальной машине smtp-сервер.

Можете, конечно, попробовать и без него, но, скорее всего, принимающий сервер такое письмо попросту отвергнет.

я сделал так, когда вызывается батник с параметрами он собирает vbs файлик запускает его а потом грохает
пример VBS взят кстати с этой темы