एएसपी में सीडीओ के साथ ईमेल भेजने के लिए एक फ़ंक्शन का उदाहरण

एएसपी / by admin / July 04, 2021

मैंने एएसपी में अपने पृष्ठों के रूपों से लगातार ईमेल भेजने के लिए यह कार्य किया है, इसलिए मुझे केवल एक फाइल बनाना है और इसे एएसपी में ईमेल भेजने के लिए शामिल करना है।

मेल फ़ंक्शन भेजें (fname प्रेषक, महिला प्रेषक, fmessage, fmailpara, fasunto, fadjoint)
एरर रिज्यूमे पर अगला

'एक एसएमटीपी सर्वर पर प्रमाणीकरण का उपयोग कर एक टेक्स्ट मेल भेजें'

Const cdoSendUsingPickup = 1 'SMTP स्थानीय निर्देशिका पिकअप सेवा का उपयोग करके संदेश भेजें'
Const cdoSendUsingPort = 2 'नेटवर्क का उपयोग करके भेजें, नेटवर्क पर SMTP'

कॉन्स्ट cdoAnonymous = 0 'प्रमाणित न करें'
Const cdoBasic = 1 'मूल प्रमाणित करें (सादा पाठ)
कास्ट सीडीओएनटीएलएम = 2 'एनटीएलएम'

objMessage = CreateObject ("CDO.Message") सेट करें
संदेश विषय = मुद्दा
संदेश प्रेषक = f प्रेषक का नाम और ""
संदेश टू = फीमेलपारा
संदेश बीसीसी = एफबीसीसी
संदेश टेक्स्टबॉडी = fmessage
अगर फ़ैडजॉइंट <> "" फिर
संदेश अटैचमेंट जोड़ें
अगर अंत

'== एसएमटीपी सर्वर यहां कॉन्फ़िगर किया गया है।

संदेश विन्यास। खेत। मद _
("https://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'दूरस्थ एसएमटीपी सर्वर का नाम या आईपी'
संदेश विन्यास। खेत। मद _
("

instagram story viewer

https://schemas.microsoft.com/cdo/configuration/smtpserver") =" लोकलहोस्ट "

'प्रमाणीकरण का प्रकार, कोई नहीं, मूल (बेस 64 एन्कोडेड), एनटीएलएम'
संदेश विन्यास। खेत। मद _
("https://schemas.microsoft.com/cdo/configuration/authenticate") = सीडीओबेसिक

'एसएमटीपी सर्वर पर आपका यूजर आईडी'
संदेश विन्यास। खेत। मद _
("https://schemas.microsoft.com/cdo/configuration/sendusername") =" उपयोगकर्ता "

'एसएमटीपी सर्वर पर आपका पासवर्ड'
संदेश विन्यास। खेत। मद _
("https://schemas.microsoft.com/cdo/configuration/sendpassword") =" पासवर्ड "

सर्वर पोर्ट (आमतौर पर 25)
संदेश विन्यास। खेत। मद _
("https://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

'कनेक्शन के लिए एसएसएल का प्रयोग करें (गलत या सही)
संदेश विन्यास। खेत। मद _
("https://schemas.microsoft.com/cdo/configuration/smtpusessl") = झूठा

'टाइमआउट सेकंड में, अधिकतम समय जब सीडीओ एसएमटीपी के साथ संबंध स्थापित करने का प्रयास करेगा
संदेश विन्यास। खेत। मद _
("https://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

संदेश विन्यास। खेत। अपडेट करें

'== एसएमटीपी कॉन्फ़िगरेशन समाप्त करें ==

संदेश संदेश

SendEmail = फीमेलपारा और ","

अंत समारोह
%>

टैग बादल

एएसपी

रेटिंग

विचारों

टिप्पणियाँ