[решено] Как прикрепить несколько файлов в письме?

[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
'=============================================================================