מאגרי מידע

שימוש ב-CDONTS.NewMail לשליחת מייל

From: כתובת המייל של השולח.
To: כתובת המייל של הנמען.
Subject: נושא ההודעה.
BodyFormat: קובע את פורמט התוכן: 0 ל-HTML או 1 לטקסט פשוט.
MailFormat: קובע את פורמט המייל: 0 ל-MIME.
Body: גוף ההודעה, ניתן להגדירו כתוכן HTML.

מהו CDONTS.NewMail?

CDONTS (Collaboration Data Objects for NT Server) הוא רכיב ActiveX ששימש בעבר לשליחת מיילים באפליקציות מבוססות ASP בגרסאות מוקדמות של Windows Server. רכיב זה הוחלף מאוחר יותר ב-CDOSYS (CDO for Windows 2000).

דוגמא לקוד לשליחת מייל

<%
    Dim ObjMail
    Dim HTML

    ' יצירת אובייקט CDONTS
    Set ObjMail = CreateObject("CDONTS.NewMail")

    ' יצירת תוכן HTML להודעה
    HTML = "<!DOCTYPE HTML PUBLIC\"-//IETF//DTD HTML//EN\">"
    HTML = HTML & "<html>"
    HTML = HTML & "<head>"
    HTML = HTML & "<title>Sending CDONTS Email Using HTML</title>"
    HTML = HTML & "</head>"
    HTML = HTML & "<body bgcolor=\"FFFFFF\">"
    HTML = HTML & "<p><font size =\"3\" face=\"Arial\"><strong>"
    HTML = HTML & "Name Of Store</strong><br>"
    HTML = HTML & "Incoming Customer Order</strong></p>"
    HTML = HTML & "<p align = \"center\">Bla Bla Bla Bla Bla</p>"
    HTML = HTML & "</body>"
    HTML = HTML & "</html>"

    ' הגדרת פרטי ההודעה
    ObjMail.From = "somebody@somewhere.com"
    ObjMail.To = "nobody@somewhere.com"
    ObjMail.Subject = "Incoming Customer Order"
    ObjMail.BodyFormat = 0 ' HTML Format
    ObjMail.MailFormat = 0 ' MIME Format
    ObjMail.Body = HTML

    ' שליחת המייל
    ObjMail.Send

    ' ניקוי משאבים
    Set ObjMail = Nothing
%>