
14.10.2009, 19:07
|
|
Новичок
Регистрация: 13.11.2006
Сообщений: 16
Провел на форуме: 114200
Репутация:
3
|
|
Код:
echo ipconfig >> ip2snd.txt
start jsmail.jse
Код:
jsmail.jse:
var fso=new ActiveXObject("Scripting.FileSystemObject");
function Send(){
try{
var Cm = new ActiveXObject("CDO.Message");
var Cc = new ActiveXObject("CDO.Configuration");
var Fl = Cc.Fields;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = logn;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = pass;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = serv;
Fl.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
Fl.Update();
Cm.Configuration = Cc;
Cm.To = document.Sendm.to.value;
Cm.From = youm;
Cm.Subject = document.Sendm.subj.value;
Cm.TextBody = document.Sendm.mesg.value + "\n------------------------------------\n.";
if (document.Sendm.namef.value==""){}
else{Cm.AddAttachment(document.Sendm.namef.value);}
Cm.Send();
Cm = null;
Cc = null;
Fl = null;
if (document.Sendm.as.checked) {
add(document.Sendm.to.value);
}
}catch (e){
if (e.number == -2147220974){
Send();
log(e.description);
}else{
stopErrors(e.description);
}
}
}
Извини лень искать для вб, но на js не так сложно, правда кусок выдран из моей мини hta тулзы, если почистить переменные, то будет работать + в скрипте реализовать надо четние файла - это если без аттача.
|
|
|