דוגמה לפונקציה לשליחת מיילים עם CDO ב- ASP

ביצעתי פונקציה זו כדי לשלוח כל הזמן הודעות דוא"ל מצורות הדפים שלי ב- ASP, אז אני רק צריך ליצור קובץ ולכלול אותו כדי לשלוח מיילים ב- ASP.

שלח פונקציית דואר (fname sender, femail sender, fmessage, femailpara, fasunto, fadjoint)
בשגיאות המשך הבא

 'שלח דואר טקסט באמצעות אימות בשרת SMTP

 Const cdoSendUsingPickup = 1 'שלח הודעה באמצעות שירות איסוף הספרייה המקומית SMTP
Const cdoSendUsingPort = 2 'שלח באמצעות רשת, SMTP דרך רשת

 Const cdoAnonymous = 0 'אל תאמת
 Const cdoBasic = 1 'אימות בסיסי (טקסט רגיל)
 קונסט cdoNTLM = 2 'NTLM

 הגדר objMessage = CreateObject ("CDO.Message")
 objMessage. נושא = נושא
 objMessage. מאת = f שם שלח & ""
 objMessage. אל = femailpara
 objMessage. Bcc = fbcc
 objMessage. TextBody = הודעה
 אם מתאר <> "" ואז
 objMessage. תוסף של AddAttachment
 END IF

 '== שרת ה- SMTP מוגדר כאן.

 objMessage. תְצוּרָה. שדות. פריט _
 ("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

 'שם או IP של שרת SMTP מרוחק
 objMessage. תְצוּרָה. שדות. פריט _
 ("https://schemas.microsoft.com/cdo/configuration/smtpserver

 SendEmail = femailpara & ","

פונקציית סיום
%>