[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