>I am trying to send emails with CD0 2000 using my Office365 account. It doesn't work. Anyone could tell me what needs to be done?

loMessage = CREATEOBJECT("CDO.Message")
loMessage.Subject = "Test Mail"
loMessage.From = "YourEmail@yourdomain.com"
loMessage.To = "you@youremail.com"
loMessage.CC = ""
loMessage.TextBody = "my text body here"

Configuration = CreateObject("CDO.Configuration")
Configuration.Load( -1)
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "YourEmail@yourdomain.com"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "YourPass"
Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = .t.

Configuration.Fields.Update()

loMessage.Configuration = Configuration
loMessage.Send()