X10 Community Forum

🖥️ActiveHome Pro => Plug-ins => OnAlert => Topic started by: rolfwest on May 05, 2008, 08:22:58 PM

Title: Yet another can't send E-mail posting
Post by: rolfwest on May 05, 2008, 08:22:58 PM

I'm new to the Forum but I thought I'd weigh-in on the "won't send E-mail from MyHouse, OnAlert,...."  I've been running Smart Macros, OnAlert, and My house on-line for a couple of weeks now and of course I couldn't send E-mails from AHP.  That is, from my primary E-mail account on SBCGlobal.net.  However, I soon found out that E-mails worked from my secondary account at SprintPCS.com.  So what was the difference?  SBCGlobal.net requires authentication and SSL on port 465 and SprintPCS just uses port 25 with no authentication or SSL.

After reviewing posts on the Forum and searching the net for CreateObject("CDO.Message"), I came up with a script that works for my primary account. 

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.From = "yourname@sbcglobal.net"
objMessage.To = "whoever@sbcglobal.net"
objMessage.Subject = "ALERT - WINDOW SENSOR ALARMED"
objMessage.TextBody = "This is some sample message text.." & vbCRLF & "It was sent using SMTP authentication."


'==This section provides the configuration information for the remote SMTP server.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP.ATT.YAHOO.com"

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = TRUE
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "yourname@sbcglobal.net"

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "yourpassword"


'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") = 30

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

Set objMessage = Nothing

The above script works on ameritech.net, att.net, prodigy, sbcglobal, etc. - any account that used smtp.att.yahoo.com for outgoing SMTP.

I too, think this method is more robust than the AHP methods.  Appears to be faster also.

Rolf

Title: Re: Yet another can't send E-mail posting
Post by: Brian H on May 06, 2008, 06:47:34 AM

Thank you for the information. It will be very valuable to others.
You get a helpful from me.