Почему не отправляется почта?

public fs,f,ptr, ptr_write, fl_seek
dim i


EmailPassword = "qwqwqw"
strSmtpServer = "smtp.mail.ru" '
strMail="xxxxxx@mail.ru"

Set objEmail = CreateObject("CDO.Message")
set WshShell = WScript.CreateObject("WScript.Shell")



objEmail.From = strMail
objEmail.To = strMail
objEmail.Subject = "text"
objEmail.Textbody = "2 0"
objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/sendusing") =2
objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") =1
objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/sendusername") = strMail
objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/sendpassword") = "qwqwqw"
objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpusess") =true
objEmail.Configuration.Fields.Item (" http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objEmail.Configuration.Fields.Update
'on error resume next
objEmail.Send