איך שולחים דואר דרך קוד ASP?

על איזה שרת אתה עובד?
אם אתה על איחסון ברשת אז איזה אתר?
אם בביתי אז איזו מערכת הפעלה?

אז עכשיו זה עובד?
(אחרי שהתקנת)
אם לא אז אתה יכול לעבוד עם CDOSYS שזה האובייקט החדש שבא עם ה-IIS
ב-WIN 2K ו-XP
הסברים כאן: http://www.ilopia.com
(יום יבוא ואני אכתוב עליו מאמר :P)

כי זה שם האובייקט שהוא יצר…לדוגמא

Set objmail = Server.CreateObject("CDONTS.NewMail")
OR
Set Mail = Server.CreateObject("CDONTS.NewMail")

זה אותו רכיב אבל שם אובייקט אחר.

:-/
וואי,אני כבר לא זוכר כלום,
ולחשוב שעוד מעט תהיה לי בגרות על הדבר הזה.

אני מניח ש-CDOSYS אינו מותקן אצלך

ויש מקרים שזה לא בא
נסה להוריד אותו באתר של מיקרוסופט
http://www.msdn.com

חיפשתי באנטרנט וגם לא מצאתי
אני מוריד מהאימיול ומקווה שזה יסיים מתישהו (יש רק שני משתמשים)
ושזה יסיים אני אעלה אותו ואתן אותו להורדה (במידה ויהיה עדיין רלוונטי).
מקווה שזה יעזור.

קובץ DLL מתקינים דרך ה- run..
אם אני לא טועה…

זכרתי שכשעשיתי את זה
זה היה משהו כזה 🙂

נכון

אתה יכול להציג את הקוד שמבצע את
שליחת האימייל בלבד ?

נסה את הקוד הבא

   Set objMessage = Server.CreateObject("CDO.Message")
   Set Configuration = Server.CreateObject ("CDO.Configuration")
   Configuration("http://schemas.microsoft.com/cdo/configuration/smtpserver&quot😉 = "localhost"
   Configuration("http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot😉  = "25"
   Configuration("http://schemas.microsoft.com/cdo/configuration/sendusing&quot😉 = "2"
   Configuration("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout&quot😉 = "60"
   Set objMessage.Configuration = Configuration
   objMessage.Subject = Request.Form("subject")
   objMessage.Sender = Request.Form("From")
   objMessage.To = Request.Form("To")
   objMessage.Bcc = Request.Form("Bcc")
   objMessage.Cc = Request.Form("Cc")
   objMessage.HTMLBody = Request.Form("message")
   objMessage.Send
   Set objMessage = Nothing

אז נסה את זה


  Set objMessage = Server.CreateObject("CDO.Message")
   objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing&quot😉 = 2
   objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver&quot😉 = Request.ServerVariable("SERVER_NAME")
   objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport&quot😉 = 25
   Set objMessage.Configuration = Configuration
   objMessage.Subject = Request.Form("subject")
   objMessage.Sender = Request.Form("From")
   objMessage.To = Request.Form("To")
   objMessage.Bcc = Request.Form("Bcc")
   objMessage.Cc = Request.Form("Cc")
   objMessage.HTMLBody = Request.Form("message")
   objMessage.Send
   Set objMessage = Nothing

לא מספיק שיש, הוא גם פעיל?