View Single Post
Unread 12/07/2008, 05:08 PM   #17
Khandurian
Completely Insane!
 
Join Date: Mar 2008
Location: Cocoa Beach Florida Baby!!!
Posts: 123
Ok I found this on the net. It works! I know because one of my many email servers requires SSL.

Copy the code into notepad.
Edit the normal areas.
Save as mail.vbs

To test your settings just double click the file! Wait about oh, 1 minute. If you dont get a popup it works. Make sure you edit for your SMTP port. It should be the same, but your isp will verify.

In your AC3, there is an area to execute a program. Point it to mail.vbs. Create an error and watch your email box!

Code:
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 = "AC3 Error Msg!" 
 objMessage.From = """name"" " 
 objMessage.To = "jim@test.com" 
 objMessage.TextBody = "Your AC3 has an error! Need to check it!"
 
 '==This section provides the configuration information for the remote SMTP server.
 
 objMessage.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
 
 'Name or IP of Remote SMTP Server
 objMessage.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.your.com"
 
 'Type of authentication, NONE, Basic (Base64 encoded), NTLM
 objMessage.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
 
 'Your UserID on the SMTP server
 objMessage.Configuration.Fields.Item _
  ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "youruserid"
 
 'Your password on the SMTP server
 objMessage.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"
 
 'Server port (typically 25)
 objMessage.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
   
 'Use SSL for the connection (False or True)
 objMessage.Configuration.Fields.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)
 objMessage.Configuration.Fields.Item _
 ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 
 objMessage.Configuration.Fields.Update
 
 '==End remote SMTP server configuration section==  
 
 objMessage.Send



__________________
90 Gallon Tank
130lbs Rock
6" DSB
20 gallon sump/refugium
CoralVue XP1000SSS Skimmer

Last edited by Khandurian; 12/07/2008 at 05:20 PM.
Khandurian is offline   Reply With Quote