כיצד ניתן לשלוח מייל עם הגדרת עדיפות ואישור קריאה באמצעות CDO ?

מה זה CDO?

CDO (Collaboration Data Objects) הוא ממשק שמאפשר שליחה וקבלה של מיילים באמצעות תכנות ב-ASP או בשפות אחרות. הוא מציע גמישות ושליטה על רכיבי המייל, כולל הגדרות כמו עדיפות ואישור קריאה.

שלבים להגדרת מייל עם עדיפות ואישור קריאה

1. צור אובייקט CDO.Message עבור הודעת המייל.
2. הגדר את כתובות השולח, הנמען ונושא ההודעה.
3. בחר את הגדרות השליחה: Pickup Directory או SMTP.
4. הוסף תוכן HTML לגוף ההודעה באמצעות HTMLBody.
5. הגדר עדיפות גבוהה באמצעות השדות X-Priority ו-Importance.
6. בקש אישור קריאה באמצעות השדות Disposition-Notification-To ו-Return-Receipt-To.
7. עדכן את השדות ושלח את המייל.

דוגמת קוד

 

<% 

' הגדרת משתנים
StrHtmlBody = "<b>Your Html Text Body</b>"
strSubject = "Mail Test"
ReceiptTo = "YourEmail@address.com"
strFrom = "YourEmail@address.com"
strTo = "ToEmail@address.com"

' יצירת אובייקט CDO.Message
Set objEmail = CreateObject("CDO.Message")

objEmail.From = strFrom
objEmail.To = strTo
objEmail.Subject = strSubject

' הגדרות שליחה - Pickup Directory
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"

' הגדרות SMTP (הערה: השתמש רק אם צריך לשלוח דרך שרת SMTP)
' objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "YourSmtpServer"
' objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objEmail.Configuration.Fields.Update

' קביעת פורמט HTML לגוף ההודעה
objEmail.HTMLBody = StrHtmlBody

' הגדרת עדיפות
objEmail.Fields.Item("urn:schemas:mailheader:X-Priority") = 1 ' עדיפות גבוהה
objEmail.Fields.Item("urn:schemas:mailheader:X-MSMail-Priority") = "High"
objEmail.Fields.Item("urn:schemas:mailheader:Importance") = "High"

' בקשת אישור קריאה
objEmail.Fields.Item("urn:schemas:mailheader:Disposition-Notification-To") = ReceiptTo
objEmail.Fields.Item("urn:schemas:mailheader:Return-Receipt-To") = ReceiptTo

' עדכון שדות ושליחה
objEmail.Fields.Update
objEmail.Send

' ניקוי אובייקטים
Set objEmail = Nothing

%>
            

מסקנה

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