למי שמבין באמת ב ASP classic

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

שלום לכולם,

לאחרונה לא עובד לי שליחת המיילים דרך האתר, 

הדף עצמו עובר.. אך לא מגיע מיילים לדואר בפועל,

ניסיתי לשנות את המייל שממנו שולחים אך ללא הועיל (חשבתי שאולי חסמו לי אותו)

הקוד הוא כזה:

אשמח לעזרה!!

 

Set objEmail = CreateObject("CDO.Message") 
objEmail.From = "support@mekudeshet.co.il"

 

objEmail.To = sEmail

objEmail.Subject = "מקודשת - תוכנת ניהול לשדכנים"

objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "c:\inetpub\mailroot\pickup" 
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mekudeshet.co.il"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update 
objEmail.Bodypart.ContentMediaType = "text/html"
objEmail.Bodypart.ContentTransferEncoding = "7bit"
objEmail.Bodypart.Charset= "utf-8"
SET Stm = objEmail.Bodypart.GetDecodedContentStream
Stm.WriteText strHTML
Stm.Flush
objEmail.Send 

set objEmail=nothing

 

אפשר לשלוח לי גם הודעות במייל :elkayammah@gmail.com

 

ניסיתי המון קודים לא עובד.