VBScript does not send email

Hi Everyone,

I have a VBScript that is being called by a batch script. This VBScript is supposed to send an email but it doesn't. Hope you could help me figure out what's wrong.

Here's the Windows batch script that calls the VBScript:

Code:

C:\sendmail.vbs -t receiver@email.com -f sender@email.com -s "Test Email" -b "Hi, this is only a test." a- "C:\file.csv"

And here's the VBScript - sendmail.vbs:

Code:

   '--------------------------------------------------
   '
   ' Sends email from the local SMTP service using CDONTS objects
   '
   ' Usage:
   '   sendmail -t <to> -f <from> -s "<subject>" -b "<message>"
   '   sendmail [-help|-?]
   '
   '--------------------------------------------------

   Option Explicit
   On Error Resume Next

   Dim objSendMail, oArgs, ArgNum
   Dim strTo, strFrom, strSubject, strBody, strAttach

   Set oArgs = WScript.Arguments
   ArgNum = 0

   While ArgNum < oArgs.Count
      Select Case LCase(oArgs(ArgNum))
         Case "-to","-t":
            ArgNum = ArgNum + 1
            strTo = oArgs(ArgNum)
         Case "-from","-f":
            ArgNum = ArgNum + 1
            strFrom = oArgs(ArgNum)
         Case "-subject","-s":
            ArgNum = ArgNum + 1
            strSubject = oArgs(ArgNum)
         Case "-body","-b":
            ArgNum = ArgNum + 1
            strBody = oArgs(ArgNum)
         Case "-attach", "-a":
            ArgNum = ArgNum + 1
            strAttach = oArgs(ArgNum)
         Case "-help","-?":
            Call DisplayUsage
         Case Else:
            Call DisplayUsage
      End Select
      ArgNum = ArgNum + 1
   Wend

   'WScript.Echo "Input:"
   'WScript.Echo "From:  " & strFrom
   'WScript.Echo "To: " & strTo
   'WScript.Echo "Subject: " & strSubject
   'WScript.Echo "Body: " & strBody
   'WScript.Echo "Attachment: " & strAttach
   'WScript.Echo " "

   If oArgs.Count=0 Or strTo="" Or strFrom="" Or _
         strSubject="" Or strBody="" Then
      Call DisplayUsage
   Else
      Set objSendMail = CreateObject("CDO.Message")
         objSendMail.From = strFrom
         objSendMail.To = strTo
         objSendMail.Subject = strSubject
         objSendMail.TextBody = strBody
         objSendMail.AddAttachment strAttach
         objSendMail.Send
      Set objSendMail = Nothing
   End If

   ' Display the usage for this script
   Sub DisplayUsage
      WScript.Echo "Usage:"
      WScript.Echo "  sendmail -t <to address> -f <from address> -s " & _
         Chr(34) & "<subject>" & Chr(34) & " -b " & Chr(34) & _
         "<message body>" & Chr(34) & " -a " & Chr(34) & _
         "<attachment file and path>" & Chr(34)
      WScript.Echo "  sendmail [-help|-?]"
      WScript.Echo ""
      WSCript.Quit
   End Sub

More info:

• My PC runs on Microsoft Windows XP Professional 2002
• My Outlook version is 14.0.6112.5000 (32-bit) it came from the Microsoft Office Professional Plus 2010 I installed
• I have no knowledge in VBScript.

If you guys need more info, please inform me.

Thank you. Hope to hear from anyone soon.

Regards,
r0mmel

 

By the way, I just found out that my outlook account does not use SMTP. It's on Microsoft Exchange.

 

I don't see where the script you posted configures the SMTP server. (which server to use, how to use it) Maybe it relies on a system configuration somewhere, but it doesn't work for me, either.

The following thread is old, but similar: http://forums.majorgeeks.com/showthread.php?t=59722 (Unfortunately, the linked instruction document doesn't exist, anymore.)

 

Code examples specifically for Exchange: http://msdn.microsoft.com/en-us/library/ms875947(v=exchg.65).aspx

 

Thanks PC-XT!

 

You're welcome.
I'm glad you found the script to send email via Outlook. (I included the link in case someone looking for similar help finds this topic.)

 

There is a tool called Blat that does command line email too.
http://www.blat.net/