Unattened Observatory Alarm setting in Maxim DL

[Physopto]

I came across this whilst surfing the web. I am not sure if it has been brought up before but thought it interesting. It is on page:

http://deepspaceplace.com/maximdlalarm.php

Here is a simple way to get a bit of sleep while you are imaging. It uses the MaxIm DL alarm feature to wake you up using your mobile phone when there is a guiding problem. In my situation, I use this to wake me up in the bedroom if there is a problem out in the observatory.

Hope it is of help to imagers!

Regards,

Derek

[steppenwolf]

Or ........   send yourself an email alert using a VBScript. This is the script that I use:

const cdoBasic=1
schema = "http://schemas.microsoft.com/cdo/configuration/"
Set objEmail = CreateObject("CDO.Message")
With objEmail
.From = "name@domain.co.uk"
.To = "recipient@recipient_domain.co.uk"
.Subject = "Star Faded"
.Textbody = "Check for cloud cover or imminent rain"
With .Configuration.Fields
.Item (schema & "sendusing") = 2
.Item (schema & "smtpserver") = "smtp.outlook.com"
.Item (schema & "smtpserverport") = 25
.Item (schema & "smtpusessl") = True
.Item (schema & "smtpauthenticate") = cdoBasic
.Item (schema & "sendusername") = "name@domain.co.uk"
.Item (schema & "smtpaccountname") = "name@domain.co.uk"
.Item (schema & "sendpassword") = "123password345"
End With
.Configuration.Fields.Update
.Send
End With

[Physopto]

Or ........   send yourself an email alert using a VBScript. This is the script that I use:

const cdoBasic=1

schema = "http://schemas.microsoft.com/cdo/configuration/"

Set objEmail = CreateObject("CDO.Message")

With objEmail

.From = "name@domain.co.uk"

.To = "recipient@recipient_domain.co.uk"

.Subject = "Star Faded"

.Textbody = "Check for cloud cover or imminent rain"

With .Configuration.Fields

.Item (schema & "sendusing") = 2

.Item (schema & "smtpserver") = "smtp.outlook.com"

.Item (schema & "smtpserverport") = 25

.Item (schema & "smtpusessl") = True

.Item (schema & "smtpauthenticate") = cdoBasic

.Item (schema & "sendusername") = "name@domain.co.uk"

.Item (schema & "smtpaccountname") = "name@domain.co.uk"

.Item (schema & "sendpassword") = "123password345"

End With

.Configuration.Fields.Update

.Send

End With

Thanks Steve,

I like that as well. But it would not wake me up without a PC on in the house at the time. Basically I need a good kick to get my attention!!

Well that is from the other half

Regards,

Derek

[steppenwolf]

Hi Derek,

It works for me because I have an iPhone and I only use the iCloud email address for this purpose and any emails that come to it set off the loudest ring tone in the telephone!!!

[Physopto]

Hi Derek,

It works for me because I have an iPhone and I only use the iCloud email address for this purpose and any emails that come to it set off the loudest ring tone in the telephone!!!

Hi Steve,

 Never thought of that! I have never used the iCloud. Maybe I'll start to do so.

Nearly always got the iphone with me!

Thanks again,

Derek

[Physopto]

Or ........   send yourself an email alert using a VBScript. This is the script that I use:

const cdoBasic=1

schema = "http://schemas.microsoft.com/cdo/configuration/"

Set objEmail = CreateObject("CDO.Message")

With objEmail

.From = "name@domain.co.uk"

.To = "recipient@recipient_domain.co.uk"

.Subject = "Star Faded"

.Textbody = "Check for cloud cover or imminent rain"

With .Configuration.Fields

.Item (schema & "sendusing") = 2

.Item (schema & "smtpserver") = "smtp.outlook.com"

.Item (schema & "smtpserverport") = 25

.Item (schema & "smtpusessl") = True

.Item (schema & "smtpauthenticate") = cdoBasic

.Item (schema & "sendusername") = "name@domain.co.uk"

.Item (schema & "smtpaccountname") = "name@domain.co.uk"

.Item (schema & "sendpassword") = "123password345"

End With

.Configuration.Fields.Update

.Send

End With

Hi Steve,

I've been looking at this script you posted. I cannot get it to work for me. Probably my stupidity. I'm using Thunderbird for my emails and on Virginmedia for broadband. I've never tried to send emails  this way before any tips?

The error I get is "SendMail Failed: The transport failed to connect to the server."

Regards,

 Derek

[Physopto]

Hi Steve,

 Forget the query. I found the problem. Thunderbird needs the inclusion of SSL authentication.

Derek

[steppenwolf]

I'm pleased that you have found an answer because the only contribution that I could make was to suggest that you try using the 'core' email address that goes with your Virginmedia account if you aren't already.

Have you actually got it working now?

[Physopto]

I'm pleased that you have found an answer because the only contribution that I could make was to suggest that you try using the 'core' email address that goes with your Virginmedia account if you aren't already.

Have you actually got it working now?

Hi Steve,

Yes works really well now. Took me some time to figure it out with a fair bit web searching. There are loads of websites all with the wrong types settings for it to work with my set up! I have included the VBS script below.

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

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 = "Star Faded"

objMessage.From = "My email address@virginmedia.com"

objMessage.To = "My email address@iCloud.com"

objMessage.TextBody = "Check for CLOUD COVER or IMMINENT RAIN" & vbCRLF &_

"                                      " & vbCRLF &_

"Check for CLOUD COVER or IMMINENT RAIN"

'=======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.virginmedia.com" ' (Mine you Put in Yours)

'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") = "My User ID"

'Your password on the SMTP server

objMessage.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "My Password"

'Server port (typically 25)

objMessage.Configuration.Fields.Item _

("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465'(this is for mine you will need yours)

'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

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

Hope this is of help to someone else.

Regards,

Derek

[steppenwolf]

Excellent, thanks for posting the updated script.

[Physopto]

Excellent, thanks for posting the updated script.

Hi Steve,

As a post scrip to the above please note I did get the code off the web it is not mine, I only altered tiny bits (addresses). I don't want to take credit for some one else's  work.

 Please see ( http://www.paulsadowski.com/wsh/cdo.htm ) he has loads of information there.

Regards,

Derek