[kolumb 8034]

Как вариант можно потестить с почтой вариант такой если в папке присутствует js,vbs.txt,dll письмо не приходит если js,vbs.txt то все норм в моем случаи проблема именно и за dll !!!

Еще если можно подскажите как этот код прописать с BAT в VBS

Код:

@echo off
:start
ping 127.0.0.1 -n 15 >nul
if %errorlevel%==0 (goto send) else (goto end)

:end
goto :start

:send

[Iska]

Как вариант можно потестить с почтой вариант такой если в папке присутствует js,vbs.txt,dll письмо не приходит если js,vbs.txt то все норм в моем случаи проблема именно и за dll !!! »

А в моём случае — нет.

Так что — делаем? И, если — «Да», то с каким архиватором из указанных.

Еще если можно подскажите как этот код прописать с BAT в VBS »

А какое отношение данный вопрос имеет к данной теме? Заведите под него отдельную тему — ответим.

[kolumb 8034]

WinRAR

[Iska]

Примерно так:

Код:

Option Explicit

Const cdoSendUsingPort = 2
Const cdoBasic         = 1

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


Dim objFSO
Dim strFolder
Dim strTempName
Dim strPassword

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       = "Отчет"
			
			strPassword = objFSO.GetTempName()
			
			.TextBody      = "Последний месяц" & vbCrLf & vbCrLf & "Password: " & strPassword
			
			strTempName = GetTemporaryName()
			
			WScript.CreateObject("WScript.Shell").Run """%ProgramFiles%\7-Zip\7z.exe"" a -t7z -p" & strPassword & " -mhe """ & strTempName & """ """ & strFolder & "\*""", 1, True
			
			.AddAttachment strTempName
			
			.Send
		End With
		
		objFSO.DeleteFile strTempName, True
	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
'=============================================================================

'=============================================================================
' Серый форум / vbscript: генерация пути для временного файла или папки
' (http://forum.script-coding.com/viewtopic.php?id=1221)
'=============================================================================
Function GetTemporaryName()
	Const TemporaryFolder = 2
	
	Dim strTempName
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		Do
			strTempName = .BuildPath(.GetSpecialFolder(TemporaryFolder), .GetTempName)
		Loop While .FileExists(strTempName) Or .FolderExists(strTempName)
	End With
	
	GetTemporaryName = strTempName
End Function
'=============================================================================