Цитата
staw2ros:
И как это можно реализовать с данным скриптом?
VBS/WSH/JS - [решено] Как прикрепить несколько файлов в письме?
Сие может выглядеть, например, так:
Цитата
Iska:
Передавайте скрипту пути к ним аргументами.
VBS/WSH/JS - [решено] Как прикрепить несколько файлов в письме?
читать дальше »
Код:
Код: Выделить всё
Option Explicit
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Const strPartSchema = "http://schemas.microsoft.com/cdo/configuration/"
Dim objFSO
Dim strArg
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count 0 Then
With WScript.CreateObject("CDO.Message")
With .Configuration.Fields
.Item(strPartSchema & "sendusing") = cdoSendUsingPort
.Item(strPartSchema & "smtpauthenticate") = cdoBasic
.Item(strPartSchema & "smtpserver") = "smtp.mail.ru"
.Item(strPartSchema & "smtpserverport") = 25
.Item(strPartSchema & "sendusername") = "login"
.Item(strPartSchema & "sendpassword") = "password"
.Update
End With
.To = "to@mail.com"
.From = "from@mail.com"
.Subject = "Subject"
.TextBody = "TextBody"
For Each strArg In WScript.Arguments
If objFSO.FileExists(strArg) Then
.AddAttachment strArg
Else
WScript.Echo "Can't find file [" & strArg & "]"
WScript.Quit 2
End If
Next
.Send
End With
Else
WScript.Echo "Usage: " & WScript.ScriptName & " [] … []"
WScript.Quit 1
End If
Set objFSO = Nothing
WScript.Quit 0
Пример вызова скрипта:[/i]
Код:
Код: Выделить всё
script.vbs "E:\Песочница\0039\Copy-Script.ps1" "E:\Песочница\0039\file_versions.ps1" "E:\Песочница\0054\0003.cmd"
Цитата
Iska:
…посредством указанного аргументом текстового файла, содержащего пути к прикрепляемым файлам.
VBS/WSH/JS - [решено] Как прикрепить несколько файлов в письме?
читать дальше »
Код:
Код: Выделить всё
Option Explicit
Const ForReading = 1
Const cdoSendUsingPort = 2
Const cdoBasic = 1
Const strPartSchema = "http://schemas.microsoft.com/cdo/configuration/"
Dim objFSO
Dim strFile4Files
Dim strFile
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count = 1 Then
strFile4Files = WScript.Arguments.Item(1)
If objFSO.FileExists(strFile4Files) Then
With WScript.CreateObject("CDO.Message")
With .Configuration.Fields
.Item(strPartSchema & "sendusing") = cdoSendUsingPort
.Item(strPartSchema & "smtpauthenticate") = cdoBasic
.Item(strPartSchema & "smtpserver") = "smtp.mail.ru"
.Item(strPartSchema & "smtpserverport") = 25
.Item(strPartSchema & "sendusername") = "login"
.Item(strPartSchema & "sendpassword") = "password"
.Update
End With
.To = "to@mail.com"
.From = "from@mail.com"
.Subject = "Subject"
.TextBody = "TextBody"
Set objTS = objFSO.OpenTextFile(strFile4Files, ForReading)
Do Until objTS.AtEndOfStream
strFile = objTS.ReadLine()
If objFSO.FileExists(strFile) Then
.AddAttachment strFile
Else
WScript.Echo "Can't find file [" & strFile & "]"
WScript.Quit 2
End If
Loop
objTS.Close
Set objTS = Nothing
.Send
End With
Else
WScript.Echo "Can't find file [" & strFile4Files & "]"
End If
Else
WScript.Echo "Usage: " & WScript.ScriptName & " "
WScript.Quit 1
End If
Set objFSO = Nothing
WScript.Quit 0
Пример вызова скрипта:[/i]
Код:
Код: Выделить всё
script.vbs "E:\Песочница\0055\FileList.txt"
Пример содержимого файла «E:\Песочница\0055\FileList.txt»:[/i]
Код:
Код: Выделить всё
E:\Песочница\0039\Copy-Script.ps1
E:\Песочница\0039\file_versions.ps1
E:\Песочница\0054\0003.cmd
— я видел 