מקודשת תוכנה לשדכנים

יש לי שגיאה בקוד של שילחת מיילים ב 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 בזה..