Уведомление о создании новой папки на e-mail

@yankeer · Регистрация: 28.08.2015

Author24 — интернет-сервис помощи студентам

Добрый день!
Нужна помощь в написании скрипта, уведомляющего о создании новой папки на шаре, на e-mail.
Буду очень благодарен!

Добавлено через 20 минут

Visual Basic

function CDO_Message_Send(server,port,ssl, 
                           user,pass, 
                           _from,_to,_cc,_bcc, 
                           subj,body,bodyfile,attach,charset) { 
 
 // initializing mailing vars 
     
 var objCDOSYSMail = WScript.CreateObject("CDO.Message"); 
 var objCDOSYSCon  = WScript.CreateObject("CDO.Configuration"); 
 
 var Schema = "http://schemas.microsoft.com/cdo/configuration/"; 
 var TimeOut = 60; 
 
 var cdoBasic=1 ; var cdoAnonymous=0; var cdoSendUsingPort = 2; 
 
 with (objCDOSYSCon) { 
  Fields(Schema + "sendusing")             = cdoSendUsingPort; 
  Fields(Schema + "smtpconnectiontimeout") = TimeOut; 
 
  Fields(Schema + "smtpserver")         = server; 
  Fields(Schema + "smtpserverport")     = port; 
  Fields(Schema + "smtpusessl")         = ssl; 
 
  Fields(Schema + "sendusername")     = user; 
  Fields(Schema + "sendpassword")     = pass; 
  
  Fields(Schema + "smtpauthenticate") = ((user=="") ? cdoAnonymous : cdoBasic); 
 
  Fields.Update() 
 }; 
 
 try {  
 
 with (objCDOSYSMail) { 
  Configuration = objCDOSYSCon; 
 
  BodyPart.Charset = charset; 
 
  Subject = subj; 
 
  var ASCII = attach; 
 
  while (ASCII!="") { 
   var file2add = FSO.GetAbsolutePathName(SplitSlice(ASCII,"/")); 
   if (FSO.FileExists(file2add))  
    try { AddAttachment("file://"+file2add) }  
      catch (e) {TextBody+="\x0D\x0A"+"\x0D\x0A"+ 
                           "failed to attach file ["+file2add+"] - reason is "+ e.description}; 
     finally {}; 
   ASCII=SplitRest(ASCII,"/") 
  }; 
 
  To = _to; Cc = _cc; BCc = _bcc; From = _from; TextBody =""; 
 
  if (bodyfile!="") { 
    try { 
     var BodyFile = FSO.OpenTextFile(bodyfile, ForReading, false); 
      TextBody = BodyFile.ReadAll(); 
    } catch(e) {} finally { BodyFile.Close() };  
 
   } else { TextBody = body  
 
  }; 
 
  Send() } } catch(e) {return(e.number)} finally {} 
 
  return(0) 
 
};

имеется вот такая наработка

@tisha_ · 12.05.2016, 09:16

Вы ничего не спутали когда выбрали для кода visual basic?

@yankeer · 12.05.2016, 09:23 **[ТС]**

tisha_, не нашел vbs, а вы сюда зашли поправлять сообщения или все таки со скриптом помочь?

@А_Р_Т_Е_М · 12.05.2016, 09:28

что знал то и перепутал

@tisha_ · 12.05.2016, 09:50

yankeer, да Вы мне жизнь перевернули в одно мгновение, я же сразу размечталась как буду использовать try/catch, чуть было не побежала все свои скрипты перелопачивать вставляя тернарные операторы)
А если серьезно, не стоит сразу обижаться и огрызаться, просто на первый взгляд не понятно вам итоговый скрипт на vbs или js все-таки нужен

Добавлено через 7 минут
и да, если это все-таки vbs могу такую отправку посоветовать еще:

Visual Basic

1 2	Set app = CreateObject("Outlook.Application") : Set mess = app.CreateItem(olMailItem) mess.To = "mail@mail.ru" : mess.Subject = "тема" : mess.Body = "сообщение" : mess.Send

@tisha_ 61 / 61 / 36 Регистрация: 16.09.2015 Сообщений: 296
	12.05.2016, 09:16	2
	Вы ничего не спутали когда выбрали для кода visual basic? 0

@yankeer 0 / 0 / 0 Регистрация: 28.08.2015 Сообщений: 8
	12.05.2016, 09:23 [ТС]	3
	tisha_, не нашел vbs, а вы сюда зашли поправлять сообщения или все таки со скриптом помочь? 0

@А_Р_Т_Е_М 6 / 6 / 1 Регистрация: 11.02.2016 Сообщений: 57
	12.05.2016, 09:28	4
	что знал то и перепутал 0

	12.05.2016, 09:50