Please login or register.

Login with username, password and session length

Author Topic: Yet another can't send E-mail posting  (Read 9778 times)


  • Newbie
  • Helpful Post Rating: 4
  • Posts: 2
Yet another can't send E-mail posting
« 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  However, I soon found out that E-mails worked from my secondary account at  So what was the difference? 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 = ""
objMessage.To = ""
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 _
("") = cdoSendUsingPort

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("") = ""

'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("") = 1

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("") = 465

'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("") = TRUE
objMessage.Configuration.Fields.Item _
("") = ""

'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("") = "yourpassword"

'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
("") = 30


'==End remote SMTP server configuration section==


Set objMessage = Nothing

The above script works on,, prodigy, sbcglobal, etc. - any account that used for outgoing SMTP.

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



Brian H

  • Community Organizer
  • Hero Member
  • ***
  • Helpful Post Rating: 305
  • Posts: 13260
Re: Yet another can't send E-mail posting
« Reply #1 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. 
Logged | About X10 | X10 Security Systems | Cameras| Package Deals
© Copyright 2014-2016 All rights reserved.