[amel27]

1. как вариант - выполнить несколько раз "iMsg.AddAttachment"
2.

Код:

WScript.Echo WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")

[staw2ros]

1. как вариант - выполнить несколько раз "iMsg.AddAttachment" »

Хм..а если количество и названия файлов произвольные?

[amel27]

staw2ros, цикл по массиву

[Iska]

Хм..а если количество и названия файлов произвольные? »

Передавайте скрипту пути к ним аргументами. Если не укладываетесь в ограничения длины пути — то посредством указанного аргументом текстового файла, содержащего пути к прикрепляемым файлам.

[staw2ros]

И как это можно реализовать с данным скриптом?)

[Iska]

И как это можно реализовать с данным скриптом? »

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

Передавайте скрипту пути к ним аргументами. »

читать дальше »

Код:

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 & " <file1> [<file2>] … [<fileN>]"
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

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

Код:

script.vbs "E:\Песочница\0039\Copy-Script.ps1" "E:\Песочница\0039\file_versions.ps1" "E:\Песочница\0054\0003.cmd"

…посредством указанного аргументом текстового файла, содержащего пути к прикрепляемым файлам. »

читать дальше »

Код:

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 & " <file with paths>"
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0

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

Код:

script.vbs "E:\Песочница\0055\FileList.txt"

Пример содержимого файла «E:\Песочница\0055\FileList.txt»:

Код:

E:\Песочница\0039\Copy-Script.ps1
E:\Песочница\0039\file_versions.ps1
E:\Песочница\0054\0003.cmd

[staw2ros]

Iska, Спасибо!

Но проблему удалось решить чуть иначе...вот может кому-нибудь пригодится!

Код:

Const Desktop = 4
Set S = CreateObject("Wscript.Shell") 
Set FSO = CreateObject("scripting.filesystemobject")

strSMTP_Server = "smtp.mail.ru"
strTo = "login2@mail.ru"
strFrom = "login@mail.ru"
strSubject = "Отчет"
strBody = "Последний месяц"

Set iMsg=CreateObject("CDO.Message") 
Set iConf=CreateObject("CDO.Configuration") 
Set Flds=iConf.Fields 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="login" 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="password" 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.mail.ru" 
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25 
Flds.Update 
iMsg.Configuration=iConf 
iMsg.To=strTo 
iMsg.From=strFrom 
iMsg.Subject=strSubject 
iMsg.TextBody=strBody 
Set fld = FSO.GetFolder(S.SpecialFolders(Desktop))
For each file in fld.files
    if LCase(FSO.GetExtensionName(file)) = "txt" Then
        iMsg.AddAttachment file.path 
    End if
Next
iMsg.Send

[Iska]

staw2ros, тогда уж не:

…удалось решить…»

а «мне сделали» — я видел этот код.

проблему удалось решить…»

Проблемы могут возникать позже, если вдруг на рабочем столе появятся «лишние» текстовые файлы.

[staw2ros]

а «мне сделали» — я видел этот код. »

Это да! На авторство я не претендую