Caché DBMS का उपयोग करके ईमेल बनाने और भेजने के उदाहरण

अक्सर डेटाबेस से डेटा के आधार पर स्वचालित पीढ़ी और ईमेल भेजने की आवश्यकता होती है। यह टेबल, आरेख, या कुछ घटनाओं की घटना के बारे में सूचनाओं के साथ विभिन्न रिपोर्टें हो सकती हैं।
यह सब सीधे Caché DBMS में ही लागू किया जा सकता है, जो यहां मेल एप्लिकेशन सर्वर के रूप में कार्य करता है।

अगला, निम्नलिखित उदाहरणों पर विचार करें:

• टेक्स्ट लेटर बनाएं
• HTML पत्र निर्माण
• अनुलग्नक जोड़ें
• पत्र के शरीर में छवियों को जोड़ना
• अन्य उदाहरण

मेल के साथ काम करने के लिए % नेट पैकेज की कई कक्षाएं हैं।
दस्तावेज़ में विस्तार से वर्णन किया गया है कि ईमेल के साथ कैसे काम किया जाए, तो आइए उदाहरणों के साथ शुरू करें।

सादा पाठ

#dim पूर्व % अपवाद के रूप में। SystemException
कोशिश करो {

सेट संदेश = ## वर्ग ( % Net.MailMessage )। % नया ()

संदेश सेट करें । विषय = "विषय"

संदेश सेट करें । = "From@domain.com"

संदेश दो । को । सम्मिलित करें ( "@@domain.com" )

संदेश दो । TextData। लिखें

सेट smtp = ## वर्ग ( % Net.SMTP )। % नया ()
smtp सेट करें । smtpserver = "123.145.167.189"

$ $ $ थ्रोऑनऑरे ( smtp । भेजें ( संदेश ))

} पूर्व कैच {
$ प्रणाली लिखें । GetErrorText ( उदा । AsStatus (), "ru" ) ,;
}

चूंकि परीक्षणों ने कैच के यूनिकोड संस्करण का उपयोग किया था, इसलिए संदेश का डिफ़ॉल्ट एन्कोडिंग utf-8 है, जो हमारे लिए काफी उपयुक्त है।
यदि आपके पास 8-बिट संस्करण है, तो आपको वांछित एन्कोडिंग सेट करना होगा।
उदाहरण के लिए, इस तरह:
संदेश सेट करें । चारसेट = "utf-8"

पत्र का शीर्षक (महत्व, अंकन, आदि)

उपरोक्त पंक्तियों को उपरोक्त उदाहरण में जोड़ें:

संदेश दो । मुखिया । सेटआट ( "कंपनी-गोपनीय" , "संवेदनशीलता" )

संदेश दो । मुखिया । सेटआट ( "लो" , "एक्स-प्रायोरिटी" )
संदेश दो । मुखिया । सेटआट ( "लो" , "एक्स-एमएसमेल-प्रायोरिटी" )
संदेश दो । मुखिया । सेटआट ( "कम" , "महत्व" )

इसी तरह, आप अपने पत्रों में अन्य शीर्षलेख जोड़ सकते हैं।
संवेदनशीलता शीर्ष लेख (ध्वज) के लिए निम्न मान उपलब्ध हैं:

• सामान्य - सामान्य
• व्यक्तिगत - व्यक्तिगत
• निजी - निजी
• कंपनी-गोपनीय - पार्टिकलबोर्ड

X- प्राथमिकता , X-MSMail- प्राथमिकता और महत्व (महत्व) के लिए निम्नलिखित मूल्य या उनके संख्यात्मक कोड उपलब्ध हैं:

• निम्न - निम्न (5)
• सामान्य - सामान्य (3)
• उच्च - उच्च (1)

SMTP सर्वर पर प्रमाणीकरण

यदि SMTP सर्वर को प्रमाणीकरण की आवश्यकता होती है, तो आपको % Net.Authenticator वर्ग का उपयोग करना होगा:

संदेश दो । को । सम्मिलित करें ( "@@domain.com" )
संदेश दो । Cc । सम्मिलित करें ( "cc@domain.com" )
संदेश दो । Bcc । सम्मिलित करें ( "bcc@domain.com" )

संदेश दो । TextData। लिखो ( "हेलो, हेब्रा!" )

सेट करें = ## वर्ग ( % Net.Authenticator )। % नया ()
सेट करें । उपयोगकर्ता नाम = "लॉगिन"
सेट करें । पासवर्ड = "पासवर्ड"

सेट smtp = ## वर्ग ( % Net.SMTP )। % नया ()
smtp सेट करें । smtpserver = "123.145.167.189"
smtp सेट करें । प्रमाणक = प्रमाण

अनुलग्नक के साथ ईमेल करें

अटैचमेंट जोड़ने के लिए कई तरीके हैं: AttachFile , AttachStream , AttachEmail , AttachNewMessage ।

हमारे उदाहरण में एक फोटो फ़ाइल जोड़ें:
संदेश दो । AttachFile ( "c: \ Photo" , "test.jpg" )

HTML पत्र

ऐसा करने के लिए, IsHTML प्रॉपर्टी को सच्चाई असाइन करें:

// ...

संदेश दो । को । सम्मिलित करें ( "@@domain.com" )

संदेश सेट करें । IsHTML = 1

संदेश दो । TextData। लिखो ( "<b> नमस्ते </ b>, <font color = 'red'> Habr </ font>!"
संदेश दो । TextData। लिखें ( "<br/> <u> InterSystems </ u> साइट पर जाने के लिए <a href='http://intersystems.ru/cache/index.html'> Caché </a> पर क्लिक करें।

सेट smtp = ## वर्ग ( % Net.SMTP )। % नया ()

// ...

शरीर की छवि

विकल्प 1: फ़ाइलों से कई चित्र

// ...

संदेश सेट करें । IsHTML = 1

संदेश सेट करें । मल्टीपार्ट टाइप = "संबंधित"

संदेश दो । AttachFile ( "c: \ Photo" , "test1.jpg" )
संदेश दो । AttachFile ( "c: \ Photo" , "test2.gif" )

सेट भाग = संदेश । भागों । GetAt (1)
हिस्सा सेट करें । ContentType = "image / jpeg"
भाग करो मुखिया । SetAt ( " id1 " , "सामग्री-आईडी" )

सेट भाग = संदेश । भागों । GetAt (2)
हिस्सा सेट करें । ContentType = "छवि / gif"
भाग करो मुखिया । SetAt ( "id2" , "सामग्री-आईडी" )

संदेश दो । TextData। लिखो ( "<b> नमस्ते </ b>, <font color = 'red'> Habr </ font>!"
संदेश दो । TextData। लिखें ( "<br/> <img src = 'cid: id1'>" )
संदेश दो । TextData। लिखें ( "<br/> <img src = 'cid: id2'>" )

// ...

विकल्प 2: "मेमोरी" से छवि

// ...

संदेश सेट करें । IsHTML = $$$ YES

संदेश सेट करें । मल्टीपार्ट टाइप = "संबंधित"

सेट स्ट्रीम = ## वर्ग ( % GlobalBinaryStream )। % नया ()
धारा करो । लिखें ( $ सिस्टम । एन्क्रिप्शन । Base64Decode (
"IVBORw0KGgoAAAANSUhEUgAAABAAAAAAAQCAYAAAAf8 / 9hAAAACXBIWXMAAAsTAAALEwEAmpwYAAAD" _ $ $ $ NL _
"UUlEQVR42lWTWwTURSGaUtIKY5QweISTUzceDGu0Rj1xURjTNQEE + ODGn0hPhBEQdqbztahBbrA" _ $$$ NL _
"tFih1Fprh9IBiVLLErZSU7BUoS7VqNH44ovx0S0ovdfO4Ez04cw9Ofec7 / 5zzr15NEnHUxSVFx8O" _ $$$ NL _
"bZ1x7nzHN6z9nOhnzOFwWCnECcKoEFbBRrrp6iF / XRvD0BoplkdTuAiIhtt3P3Fu / jJlKlkM1WoX" _ $$$ NL _
"LFjVeSnpXrC94gV3ciJp1X0L1K7 + NtDfvXdpj1TmmUwm8QTfLa867T + CeWTSwOr5b87XNaDEoBr" _ $$$ NL _
"v3p2Ai + AU1Qh5OiDGS4UXi4roAisQHBiYfJS2obAVPMyELYcGxViOIaKcLaNLXzadee5nBUBPXW6" _ $$$ NL _
"hdYW0z4RQOYUXK2tUfr8QeXL0Kn4JKEBk7QWdtrrLggJJEmoCBxVCf50qIaaa0HABFFEPZaLNnGf" _ $$$ NL _
"wPNFGV0u05Y554bvMQoBPLbxs9t9QydJpHP / KayRbsf + pG1NdgTTgDuGXa8dbsSrxaQYT1Wl" _ $$$ NL _
"HVqYaloGOcvJIan4X2MdViTl3vExbS + GPfXlvzzutj1LPch9HrYea59t0YIRtAAO + PQuIYwwNKik" _ $$$ NL _
"Yty41Iuk / 3TvMzsCB9HcQR7msgzgjZs7Z5rLQPR6PoJJW2d3oDCoG / Ilwayqlexbp / i9eB19ziu" _ $$$ NL _
"BoMoAlrR03YZ0G8 + 0JFhS8EjuhD6zWfuCTEjppcBOKYX1bwaqA5M2oYZ4pBy7XBrAyY7sPqU01F" _ $$$ NL _
"cNZW / jtwZeXXVpt5u1RM4JhYzHFBddqz5 / 28fUU2NwngtVUbZUCE79o6x67 / MYiXLSSbS8D9xp1v" _ $$$ NL _
"I7znkLvDK07A5 / MiT7mzdxMMAsdMqxaiWDHkgzePigBUXy9KTfdWeVKNSjjPrvv5uKKxYzslIHX7" _ $$$ NL _
"eDLeVfkgbt30bt5eAlOOtT9nLRrI03szrOumOtc44rrjj2Kfr4nuUZ7kR8HFFXLlYqxRl43T" _ $$$ NL _
"GjjTWAhHCC1MNK / + lWA0cJLRgfsh95G / N1H136z7 + BCSuHMuMEGVLo4a1XCKKcuOWXZBw1FcNig" _ $$$ NL _
"hmPWbe8jIeeJpdFiCrkHguWUyM92NBKseBut8T92bfsw66z49IyrHH2T5CvlqeCYUvL (ANIZ7 + oh" _ $$$ NL _
"XSdWAAAAAElFTkSuQmCC" ))
संदेश दो । अटैचस्ट्रीम ( धारा , " आईडी 1 " )

सेट भाग = संदेश । भागों । GetAt (1)
हिस्सा सेट करें । ContentType = "image / png"
भाग करो मुखिया । SetAt ( " id1 " , "सामग्री-आईडी" )

संदेश दो । TextData। लिखो ( "<html> <शरीर>" )
संदेश दो । TextData। लिखें ( "<b> हैलो </ b>, & nbsp; <font color = 'red'> Habr </ font>!" )
संदेश दो । TextData। लिखें ( "<ul> <li> asd </ li> <li> qwe </ li> <li> zxc </ li> </ ul>" )
संदेश दो । TextData। लिखें ( "<img src = 'cid: id1'>" )
संदेश दो । TextData। लिखें ( "<br> <अवधि शैली = 'रंग: लाल; फ़ॉन्ट-वजन: बोल्ड'> बी </ अवधि> संयुक्त राष्ट्र अवधि शैली = 'रंग: हरा; फ़ॉन्ट-वजन: बोल्ड'> ă </ span> ziua (" )
संदेश दो । TextData। लिखें ( "<br> <टेबल बॉर्डर = 1 सेलपैडिंग = 2 सेलस्पेसिंग = 2> <tr BGCOLOR = # 22ffdd> <td> कॉलम नंबर 1 </ td> <td> कॉलम नंबर 2 </ t>> </ tr> < tr> <td> Row (1,1) </ td> <td BGCOLOR = # ddff22> Row (1,2) </ td> </ tr> <tr> <td> Row (2,1) </ td> <td> Row (2,2) </ td> </ tr> </ table> " )
संदेश दो । TextData। लिखें ( "</ body> </ html>" )

// ...

---

सभी उदाहरणों के साथ स्रोत वर्ग डाउनलोड करें ।