MajorDoMo

Код: Выделить всё

'sendmail.vbs /from:[email protected] /to:кому@addr.def /subj:"subj" /body:"body" /fbody:c:\1\1.txt
'c:\_majordomo\apps\sendmail\sendmail.vbs
Set FSO = CreateObject("Scripting.FileSystemObject")
Set colArgs = WScript.Arguments.Named

If colArgs.Exists("from") Then  
   myFrom = colArgs.Item("from") 
Else  
   myFrom = "[email protected]" 'замени на свой дефолтный
End If
If colArgs.Exists("to") Then  
   myTo = colArgs.Item("to") 
Else  
   myTo = "кому[email protected]" 'замени на свой дефолтный
End If
If colArgs.Exists("subj") Then  
   mySubj = colArgs.Item("subj") 
Else  
   mySubj = "Сообщение от Алисы" '_default subj
End If

If colArgs.Exists("body") Then  
   myBody = colArgs.Item("body") 
Else  
   myBody = "Сообщение от Алисы" '_default body
End If

If colArgs.Exists("fbody") Then  
   if FSO.FileExists (colArgs.Item("fbody")) Then
       myBody = FSO.OpenTextFile(colArgs.Item("fbody")).ReadAll
   End If
End If



Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory. 
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network). 
 
 Const cdoAnonymous = 0 'Do not authenticate
 Const cdoBasic = 1 'basic (clear-text) authentication
 Const cdoNTLM = 2 'NTLM
 
 Set objMessage = CreateObject("CDO.Message") 
 objMessage.Subject = mySubj
 objMessage.From = myFrom
 objMessage.To = myTo
 objMessage.TextBody = myBody

 If IsArray( myAttachment ) Then
            For i = 0 To UBound( myAttachment )
                'Set File = FSO.GetFile(myAttachment( i ))
        If FSO.FileExists(myAttachment( i )) Then
            objMessage.AddAttachment Replace( myAttachment( i ), "\", "\\" ),"",""
        end If
            Next
 ElseIf myAttachment <> "" Then
                'Set File = FSO.GetFile(myAttachment)
        If FSO.FileExists(myAttachment) Then
            objMessage.AddAttachment Replace( myAttachment, "\", "\\" ),"",""
        end If
 End If

 '==This section provides the configuration information for the remote SMTP server.
 With objMessage.Configuration.Fields
     .Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
  'Name or IP of Remote SMTP Server
    .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yandex.ru"
  'Type of authentication, NONE, Basic (Base64 encoded), NTLM
     .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 'Your UserID on the SMTP server
     .Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user" 'замени на свой логин на яндексе
 'Your password on the SMTP server
    .Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" 'замени на свой на яндексе
 'Server port (typically 25)
    .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 
 'Use SSL for the connection (False or True)
    .Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
 'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP   server)
    .Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 90
    .Update
 '==End remote SMTP server configuration section==  
 End With
 objMessage.Send
Set objMessage = Nothing

Код: Выделить всё

function mySendMail($from, $to, $subj, $body, $attach="")
{ 
  $mymail="";
  if (!empty($from)) {
    $mymail = $mymail.' /from:'.$from;
  }
  if (!empty($to)) {
    $mymail = $mymail.' /to:'.$to;
  }
  if (!empty($subj)) {
    $mymail = $mymail.' /subj:"'.$subj.'"';
  }
  if (!empty($body)) {
    $mymail = $mymail.' /body:"'.$body.'"';
  }

  safe_exec ('cscript.exe //b //t:120 c:\_majordomo\apps\sendmail\sendmail.vbs '.$mymail);

  return 'Send';
}