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

אֶפעֶה / by admin / July 04, 2021

protection click fraud

ביצעתי פונקציה זו כדי לשלוח כל הזמן הודעות דוא"ל מצורות הדפים שלי ב- 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

instagram story viewer

") =" localhost "

'סוג אימות, NONE, Basic (מקודד Base64), NTLM
objMessage. תְצוּרָה. שדות. פריט _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = cdoBasic

'מזהה המשתמש שלך בשרת SMTP
objMessage. תְצוּרָה. שדות. פריט _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" משתמש "

'הסיסמה שלך בשרת SMTP
objMessage. תְצוּרָה. שדות. פריט _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" סיסמת "

'יציאת שרת (בדרך כלל 25)
objMessage. תְצוּרָה. שדות. פריט _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'השתמש ב- SSL לחיבור (שקר או נכון)
objMessage. תְצוּרָה. שדות. פריט _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = שקר

'TIMEOUT בשניות, הזמן המרבי ש- CDO ינסה ליצור חיבור עם ה- SMTP
objMessage. תְצוּרָה. שדות. פריט _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

objMessage. תְצוּרָה. שדות. עדכון

'== סיים את תצורת ה- SMTP ==

objMessage. לִשְׁלוֹחַ

SendEmail = femailpara & ","

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

Teachs.ru

ענן תגים

אֶפעֶה

דֵרוּג

צפיות

הערות