Finally Got It To Work
Sitajony
Thanks for your help, finally managed to get it to send my hotmail email...
Smtp.New1("smtp.live.com",587,"signon@live.co.uk","password")
Msg.New1
Msg.AddTo("sendto1@hotmail.co.uk,send2@live.com")
Msg.Subject = "Important mail"
Msg.Body = "Hi," & CRLF & "How are you doing?"
'Msg.AddAttachment(AppPath & "\SomeDocument.doc")
Msg.From = "signon@live.co.uk"
Smtp.UseSSL = True
Smtp.Send(Msg.Value)
Msgbox("Message was sent.")
I have obviously changed the email addresses and passwords for privacy but it does work. The key to success was adding the smtp.usessl=true line. It may be a bit basic but as they say ' it works for me'.
Again thanks.
David