בולנט - דברים מיוחדים...     פרוטו - בניית אתרים

Israeli ASP Organization

ארגון ה-ASP הישראלי

מאמרים/דוגמאות קוד
קישורים
ספרות
חיפוש כללי:

חפש!
כלליHTMLASPASP.NETSQLמסדי נתוניםJavaScriptXML * XSLDHTML * CSSעיצוב וגרפיקהשרתיםComponentsפרסום ושיווקקידום אתריםקופירייטינגPHP
פרסומת
דף ראשי מדורים דרושים הרשמה למועדון אודותינו צור קשר
מיקום: מאמרים ודוגמאות קוד > Components

שימוש ב-CDONTS

שליחת דוא"ל ב-ASP אינה משימה קשה כלל וכלל.
כל מה שצריך זה אובייקט CDO שפרושו Collaborative Data Object אשר מגיע כחלק מה- NT Option Pack 4.
בכדי לוודא שהוא אכן מותקן אצלנו בשרת יש ללכת להתחל -> לוח בקרה -> הוספה/הסרה של תוכניות -> NT Option Pack 4 - ושם יש לוודא שמותקן ה-SMTP.
במידה והוא לא מותקן, כאשר תנסה להריץ את הקוד הרשום מטה תקבל הודעת שגיאה "Invalid Class String".

הסבר

בכדי ליצור instance של אובייקט CDO, כל שעלינו לכתוב הוא הדבר הבא:

Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail")

כעת אנו כבר מוכנים שלשוח את האימיילים!
לאובייקט CDO ישנם מאפיינים ומטודות פשוטות וקלות לתפעול. הרי הן לפניכם:

objCDO.To = "SomeOne@SomeWhere.com" objCDO.From = "You@Home.com" objCDO.cc = "aspisrael@hotmail.com,clinton@WhiteHouse.com" Dim txtSubject txtSubject = "Just Checking!" objCDO.Subject = "CDONTS Check..." objCDO.Body = txtSubject objCDO.Send Set objCDO = Nothing

זה כל הסיפור... המאפיינים מאוד הגיוניים.
בדוגמא למעלה, שלחנו אימייל ל-SomeOne@SomeWhere.com מ-You@Home.com ושלחנו גם עותקים (CC) ל-aspisrael@hotmail.com ו-clinton@WhiteHouse.com
נושא ההודעה הוא: CDONTS Check...
וגוץ ההודעה עצמו הוא: Just Checking!

חובה לזכור לשלוח את האימייל בעזרת פקודת Send אחרת לא משנה מה נעשה, כי המכתב לא ישלח...

CDO הוא כלי מאוד חזק ושימושי. בעזרתו ניתן אף לשלוח קבצים מצורפיםת, לשלוח דואר לרשימות מכותבים ואפילו לשלוח תזכורות כמו באוטלוק. (OutLook)

בקוד הבא נדגים לכם כל מיני דברים מדליקים שניתן לעשות בעזרת אובייקט CDO:

objCDO.To = "adamli@hotmail.com.com (Adam Liwski)" objCDO.From = "NoamKeter@hotmail.com (Noam Keter)" objCDO.bcc = "Liran@Hotmail.com" העתק חבוי objCDO.Subject = "Hello From MARS" objCDO.Body = "Hi people, Life is great on Mars, come and see for yourself!" objCDO.Importance = 2 רמת חשיבות גבוהה objCDO.AttachFile "\serverpicsmars.jpg","Mars.jpg" objCDO.Send השליחה עצמה לא לשכוח לנקות Set objCDO = Nothing

בדוגמא למעלה נתקלנו במאפיין חדש ומטודה חדשה.
Bcc (Blind Carbon Copying) נועד להגדיר את האימיילים שאליהם נרצה לשלוח עותק חבוי. מי שיקבל את האימייל במקור (to) לא ידע ששלחנו עותק חבוי למי שמוגדר ב-Bcc.
Importance נועד לקבוע את רמת חשיבות המכתב.
הוא יכול לקבל 3 ערכים והם:
0 - נמוכה
1 - רגילה
2 - גבוהה
ברירת המחדל היא 1, רגילה, אם לא הוגדר אחרת.
שימו לב גם שבצמוד לכתובת הדואר האלקטרוני שהוגר ב-From, הוספנו שמות בתוך סוגריים. השמות יופיעו כאילו מהן נשלח האימייל במקום הכתובת עצמה.

המטודה הדשה היא AttachFile. ותפקידה לצרף קבצים לאימייל.
היא מקבלת שלושה פרמטרים אבל אנו נתעסק רק בשניים בראשונים.
הראשון הוא המיקום של הקובץ בשרת. השני הוא אופציונאלי ואנו נשתמש בו כאשר אנו רוצים שבמקום הנתיב של הקובץ יופיע משהו אחר. במקרה שלנו כתבנו סתם את שם הקובץ בלבד, אך אין אנו מוגבלים לשמות קבצים.



         

מחבר: אדם ליבסקירמת קושי: 1  ||  ציון: (7.5)כל הזכויות שמורות ל-IAO ©

חנות לסטלן  |   מתכונים  |   חגי ישראל  |   פורטל משחקים  |   חנויות מחשבים ו-ציוד הקפי  |   מגזין מסטול לסטלן המצוי  |   קליפרים  |   גידול צמחים פרחים  |   ספא פינוק מושלם