יש לי שגיאה בקוד של שילחת מיילים ב asp .

 

אשמח לעזרה בנושא:

הקוד הוא:

 

Dim objMessage, objConfig, Fields
Set objMessage = CreateObject("CDO.Message") 
Set objConfig = CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields

With Fields
  .Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
  .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.google.com"
  .Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  .Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
  .Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = ""
  .Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = ""
  '.Item("http://schemas.microsoft.com/cdo/configuration/sendtls") = True
  .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
  .Update
End With
Set objMessage.Configuration = objConfig
With objMessage
  .Bodypart.Charset= "utf-8"
  .Subject = "מקודשת מערכת ניהול לשדכנים"
  .From = "m0733746835@gmail.com"
  .To = sEmail
  .HTMLBody = strHTML
end With
objMessage.Send

 

 

וגם הקוד הזה לא עובד:

 

set msg = Server.CreateOBject( "JMail.Message" )
msg.Charset = "utf-8"
msg.Logging = true

strTO = sEmail
msg.FromName = "מקודשת"
msg.From = "mekudeshet@hostcenter5.com"
'those should care of smtp auth
msg.MailServerUserName = "" 
msg.MailServerPassword = "" 
MailServer  = "hostcenter5.com" '# outgoing servers mail

msg.AddRecipient sEmail
msg.Subject = "מקודשת - מערכת ניהול לשדכנים"
msg.ContentType = "text/html; charset=UTF-8"
'msg.ContentTransferEncoding = "65001"
'msg.ContentType = "text/html"
msg.Body = strHTML     

if not msg.Send("hostcenter5.com" ) then
  ' Response.write Err.Description
else
  ' Response.Write "Ok"
end if

 

אשמח אם אתם יודעים איך להגדיר את ה מייל של gmail בזה..

 

מה לא עובד?

מתקבלת שגיאה? איזו?

או שאין שגיאה אבל המייל לא נשלח?