Alex_Piggy
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Код:
Public const cFolderOut="D:\Test\A\Output"
Public const cFolderIn="D:\Test\A\Input"
Public const cEmailFrom="SENDER_EMAIL"
Public const cEmailName="SENDER_LOGIN"
Public const cEmailPass="SENDER_PASS"
Public const cEmailSMTP="SENDER_SMTP"
Public const cEmailSubj="test"
Public const cEmailText="test"
Public const cEmailEncod="windows-1251"
Public const cEmailPort="25"
Public const cEmailFirstPart="email"
Public const cEmailSecondPart="_2(3...9)_qwerty@mail.com"
Public FSO,objEmail
Dim objRegExp,objFolderOut,Dict
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dict = CreateObject("Scripting.Dictionary")
Set objEmail = CreateObject("CDO.Message")
Set objRegExp = CreateObject("VBScript.RegExp")
Set objFolderIn = FSO.GetFolder(cFolderIn)
Set objFolderOut = FSO.GetFolder(cFolderOut)
objEmail.From = cEmailFrom
objEmail.Subject = cEmailSubj
objEmail.Textbody = cEmailText
objEmail.BodyPart.Charset = cEmailEncod
objEmail.TextBodyPart.Charset= cEmailEncod
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = cEmailSMTP
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = cEmailPort
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = cEmailName
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = cEmailPass
objEmail.Configuration.Fields.Update
objRegExp.Pattern = "^ast_totk([0-9]+).*"
For each objFile in objFolderOut.Files
template = objRegExp.Replace(objFile.name, "$1")
Dict.Add template,objFile.Name
next
objRegExp.Pattern = "^otk([0-9]+).*"
For each objFile in objFolderIn.Files
template = objRegExp.Replace(objFile.name, "$1")
If Dict.Exists (template) then
objEmail.Attachments.DeleteAll
objEmail.AddAttachment FSO.BuildPath (objFolderIn.Path,objFile.Name)
objEmail.AddAttachment FSO.BuildPath (objFolderOut.Path,Dict.Item(template))
objEmail.To = cEmailFirstPart & template & cEmailSecondPart
' objEmail.Send
MsgBox "SEND " & Dict.Item(template) & " + " & objFile.Name & " TO " & objEmail.To
Dict.Remove template
End If
next
for each FileName in Dict.Items
' FSO.DeleteFile FSO.BuildPath (objFolderOut.Path,Dict.Item(template)),1
MsgBox "DELETE " & FileName
next
|
|
