🖥️ActiveHome Pro > User-Designed Working Macros
[TIP] Alternate Email Method If MyHouseOnline Email Won't Work For You
Tuicemen:
RebHawk And chuck
You both get a helpful from me as many users will have to put both bits together to send!
RebHawk this Is the correct place for user created Macros! As jtykal pointed out
--- Quote ---Thanks for saving me the time.....
--- End quote ---
this macro library is designed to save users time creating similar macros!
chuck:
Follow up question to the use of these macros and executing windows programs... I realize the computer must be running in order for the macros to execute the programs on the computer, but does a users have to be logged into the machine and AHP GUI actively running, or does/can the AHP service execute these programs -- without the GUI?
I have AHP running on a Win2K server (who's primary function is my family web server). Typically, no one is ever logged into the machine b/c everything has been running as a service. However, I will have to change this model if AHP GUI client needs to be running on the console.
Please advise.
Tuicemen:
In order for the batch files to execute AHP need be running so looks like you'll need to reconfigure your Win2k machine! ;)
halcali:
has anyone been able to get this code to work with gmail smtp?
i tried the following code and it didn't work.
----------------------------------------------------
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 = "ALERT ALERT ALERT Den Door Open"
objMessage.From = "xxx@xxx.com"
objMessage.To = "xxx@xxx.com"
objMessage.Textbody = "DEN DOOR OPENED!!!"
'==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.gmail.com"
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true
'Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "yourusername@gmail.com"
'Your password on the SMTP server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'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
---------------------------------------------------------------
what did i mess up?
me too:
The below works for me everytime.
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Sent because x10 event happened " & Now()
objMessage.From = "emailaddress"
objMessage.To = "emailaddress"
objMessage.TextBody = "Someone by the front door " & Now()
'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
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") = "your server address"
'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Update
'==End remote SMTP server configuration section==
objMessage.Send
strSoundFile = "C:\Windows\Media\Notify.wav"
Set objShell = CreateObject("Wscript.Shell")
strCommand = "sndrec32 /play /close " & chr(34) & strSoundFile & chr(34)
objShell.Run strCommand, 0, True
Navigation
[0] Message Index
[#] Next page
[*] Previous page
Go to full version