Please login or register.

Login with username, password and session length
Pages: 1 [2]

Author Topic: [TIP] Alternate Email Method If MyHouseOnline Email Won't Work For You  (Read 52880 times)

jayman13

  • Full Member
  • ***
  • Helpful Post Rating: 1
  • Posts: 44

Just wanted to post my script that worked as it may help someone trying to figure this out.  FYI I have comcast so I used the smtp comcast server which required my comcast user name and password but could be used with any provider I'm sure:

 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 = "Office Light On"
 objMessage.From = """ASrock3"" <yourname@comcast.net>"
 objMessage.To = "desiredemail@gmail.com"
 objMessage.TextBody = "Office Light On!"
 
 '==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") = "smtp.comcast.net"
 
 '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") = "yourname@comcast.net"
 
 '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") = False
 
 '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
Logged
Pages: 1 [2]
 

X10.com | About X10 | X10 Security Systems | Cameras| Package Deals
© Copyright 2014-2016 X10.com All rights reserved.