[Iska]

Например, так:

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

Код:

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic         = 1

Const strPartSchema    = "http://schemas.microsoft.com/cdo/configuration/"


Dim objFSO
Dim objFile
Dim strFolder


Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

strFolder = "C:\test"

If objFSO.FolderExists(strFolder) Then
	If objFSO.GetFolder(strFolder).Files.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            = "login2@mail.ru"
			.From          = "login@mail.ru"
			.Subject       = "Отчет"
			.TextBody      = "Последний месяц"
			
			For Each objFile In objFSO.GetFolder(strFolder).Files
				.AddAttachment objFile.Path
			Next
			
			.Send
		End With
	Else
		WScript.Echo "Folder [" & strFolder & "] not contain any files"
		WScript.Quit 2
	End If
Else
	WScript.Echo "Folder [" & strFolder & "] not found"
	WScript.Quit 1
End If

Set objFSO = Nothing

WScript.Quit 0