[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Andrey_A, ХарВик, chip642  
Форум » • Total Commander • » ТЕСТИРОВАНИЕ СКРИПТОВ для TC » SendListMailBlat.vbs - Отправка письма на список адресов (Сеть)
SendListMailBlat.vbs - Отправка письма на список адресов
Andrey_AДата: Среда, 07.11.2012, 21:13 | Сообщение № 1
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Отправка файл(письмо) на список E-Mail адресов с помощью blat.exe
Используется утилита blat.exe

Доступно только для пользователей


 
TePPoPucTДата: Среда, 07.11.2012, 21:13 | Сообщение № 2
Рядовой

На сайте с: 28.10.2012
Город: Уфа
Сообщений: 6
Награды: 0
Репутация: 0
И вот такой вопрос еще.

Есть вот такой скрипт.
Code
' SendMail script
' Part of PDFCreator
' License: GPLv3
' Homepage: http://www.pdfforge.org/
' Windows Scripting Host version: 5.1
' Version: 1.0.0.0
' Date: May 23, 2012
' Author: Philip Chinery
' Comments: This script sends a mail using blat
'           The script requires blat.exe (http://www.blat.net/)

Dim cmdline, subject, receipient, sender, server, user, password, bodyFile, blat, additionalParams, file

' Please configure this section to suit your needs

' Receipient's E-Mail address
receipient = "i.valitov@Polyef.ru"

' Your E-Mail address
sender = "a.p****@P***.ru"

' Subject for the mail
subject = "Письмо отправлено с помощью скрипта"

' Server name or IP address
server = "192.168.***"

' user name - leave empty if none required
user = "a.p"

' password  - leave empty if none required
password = "******"

' a plain text file containing the mail body text
bodyFile = "c:\Blat\1.txt"

' Path to blat.exe (including blat.exe)
blat = "C:\Blat\blat.exe"

' Add other blat params here, if required. i.e. you can use " -log C:\blat-log.txt" for logging
additionalParams = "-log C:\Blat\blat-log.txt"

' the actual scripts starts here

Set Wshshell = CreateObject("wscript.shell")

Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then
  MsgBox "This script needs a parameter!", vbExclamation, AppTitle
  WScript.Quit
End If

if bodyFile = "" then
   MsgBox "The body file is not defined. Please configure this script first!"
   WScript.Quit
end if

file = objArgs(0)

cmdline = """" & blat & """ """ & bodyFile & """ -t " & receipient & " -server " & server & " -f " & sender & " -s """ & subject & """ " & additionalParams & " -attach """ & file & """"

if user <> "" then
   cmdline = cmdline & " -u " & user
end if

if password <> "" then
   cmdline = cmdline & " -pw " & password
end if

wshshell.Run cmdline, 1, True


Что мне в нем нужно сделать чтобы он выдавал ошибку при отсутствии подключения к сети? А то я отключил сеть, скрипт запустился, типа отправил, но уведомления не выдал что письмо не удалось отправить, а как будто и сетку никто не отключал.
 
Andrey_AДата: Среда, 07.11.2012, 21:13 | Сообщение № 3
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Поместите свой скрипт вместо
Code
WScript.Echo "Интернет есть"


Доступно только для пользователей


 
TePPoPucTДата: Среда, 07.11.2012, 21:13 | Сообщение № 4
Рядовой

На сайте с: 28.10.2012
Город: Уфа
Сообщений: 6
Награды: 0
Репутация: 0
Спасибо огромное, просто и понятно, начинаю вникать в скриптописание, не так уж страшен черт... :)

Добавлено (30.10.2012, 13:00)
---------------------------------------------
Вопрос.
Если в этой форме мне надо два получателя забить, как нужно забивать?
' Receipient's E-Mail address
receipient = "i.valitov@Polyef.ru"

Добавлено (30.10.2012, 14:01)
---------------------------------------------
Сейчас я тупо продублировал ту часть скрипта которая отправляет письмо и забил туда второй адрес, но может есть вариант это действие уместить в пару строк?

 
Andrey_AДата: Среда, 07.11.2012, 21:13 | Сообщение № 5
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Quote (TePPoPucT)
ейчас я тупо продублировал ту часть скрипта которая отправляет письмо и забил туда второй адрес, но может есть вариант это действие уместить в пару строк?

Посмотрю на днях

в скрипте есть строки
Code

If objArgs.Count = 0 Then
    MsgBox "This script needs a parameter!", vbExclamation, AppTitle
    WScript.Quit
End If

...

file = objArgs(0)


с каким параметров вызываете скрипт?

[plus]Разобрался, но blat смог запустить только так, нет больше времени экспериментировать, возьмите цикл и вставьте в свой скрипт [/plus]


 
Форум » • Total Commander • » ТЕСТИРОВАНИЕ СКРИПТОВ для TC » SendListMailBlat.vbs - Отправка письма на список адресов (Сеть)
  • Страница 1 из 1
  • 1
Поиск:

Интеллектуальные права и отказ от ответственности