Newt Tech

smtpServer = ""
fromEmail = "Daemon@domain.com"

Set oArgs = WScript.Arguments

If oArgs.Count < 1 Then
     WScript.Echo "Drag a file onto this icon to email it." & vbcrlf & vbcrlf & "You will be prompted for an email address to send to."
     WScript.Quit
End If

fileName = oArgs(0)

If oArgs.Count <> 2 Then
     toEmail = InputBox(”Please type in the recipient’s email:”, “Send to?”, “;@domain.com”)
Else
     toEmail = oArgs(1)
End If

if fileName <> “” and fromEmail <> “” and toEmail <> “” then

     sSubject = “File from [” & fromEmail & “]”
     sBody = “See attached file [” & GetFilenameOnly(fileName) & “]”
     sEmail = toEmail
     
     MailMe_CDOSys sSubject, sBody, sEmail, fileName
     If oArgs.Count <> 2 Then WScript.Echo “Mail sent…”

else
     If oArgs.Count <> 2 Then WScript.Echo “Incorrect parameters.. no email sent”

end if

Sub MailMe_CDOSYS (s, b, email, attachment)
     On Error Resume Next
     Dim o
     Set o = CreateObject(”CDO.Message”)
     o.From = fromEmail
     o.Sender = “MailMeAttachment”
     o.To = email
     o.Subject = s
     o.AddAttachment fileName
     o.TextBody = b
     o.DNSOptions = 0
     o.ConfigurationFields(”http://schemas.microsoft.com/cdo/configuration/smtpserver”).Value = smtpServer
     o.ConfigurationFields(”http://schemas.microsoft.com/cdo/configuration/sendusing”).Value = 2     ’send using network
     o.ConfigurationFields(”http://schemas.microsoft.com/cdo/configuration/SMTPConnectionTimeout”).Value = 30
     o.ConfigurationFields(”http://schemas.microsoft.com/cdo/configuration/SMTPServerPort”).Value = 25
     o.ConfigurationFields(”http://schemas.microsoft.com/cdo/configuration/SMTPAuthenticate”).Value = 0
     o.Configuration.Fields.Update
     o.Fields.Update
     o.send
     Set o = Nothing
End Sub

Function GetFilenameOnly(s)
     Dim sRet, iLast
     iLast = InStrRev(s, “\”)
     sRet = Right(s, len(s)-iLast)
     GetFilenameOnly = sRet
End Function