ईमेल भेजने के विभिन्न उदाहरण
जीमेल एसएमटीपी सर्वर और जीमेल खाते का उपयोग करके ईमेल भेजने के तरीके ट्यूटोरियल के इस भाग में दिखाए गए हैं।
उदाहरण 1: एक साधारण टेक्स्ट ईमेल भेजना
निम्नलिखित स्क्रिप्ट के साथ एक पर्ल फ़ाइल बनाएं जो जीमेल एसएमटीपी सर्वर का उपयोग करके एक सरल टेक्स्ट ईमेल भेजती है। आपको वैध ईमेल पता और ऐप पासवर्ड के लिए सेट किया गया पासवर्ड $username और $password वेरिएबल में सेट करना होगा। स्क्रिप्ट में डमी उपयोगकर्ता नाम और पासवर्ड निर्दिष्ट हैं। यदि ऐप पासवर्ड ठीक से कॉन्फ़िगर नहीं किया गया है तो ईमेल नहीं भेजा जाएगा। इसके बाद, यह जांचने के लिए कि ईमेल ठीक से भेजा गया है या नहीं, वैध रिसीवर और प्रेषक के ईमेल पते को $to और $from वेरिएबल पर सेट करें। स्क्रिप्ट का अन्य भाग अपरिवर्तित रहता है. यदि एसएमटीपी सर्वर जुड़ा हुआ है और उपयोगकर्ता की जानकारी सफलतापूर्वक प्रमाणित हो जाती है, तो प्राप्तकर्ता के ईमेल पते पर एक सरल पाठ संदेश भेजा जाता है।
#!/usr/bin/perl
#आवश्यक मॉड्यूल आयात करें
सख्त उपयोग करें ;
नेट::एसएमटीपी::एसएसएल का उपयोग करें ;
#जीमेल सर्वर का उपयोग करके ईमेल भेजने के लिए सबरूटीन घोषित करें
उप ईमेल भेजें
{
#प्रमाणीकरण के लिए उपयोगकर्ता नाम और पासवर्ड
मेरा $उपयोगकर्ता नाम = 'username@gmail.com' ;
मेरा $ पासवर्ड = 'ऐप पासवर्ड' ;
#ईमेल भेजने के लिए वेरिएबल प्रारंभ करें
मेरा $to = 'receiver@gmail.com' ;
मेरे $से = 'मेहर निगार
मेरा $विषय = 'यह एक परीक्षण ईमेल है' ;
मेरा $संदेश = 'हैलो, पर्ल का उपयोग करके ईमेल भेज रहा हूँ।' ;
#SMTP वैरिएबल घोषित करें
मेरा $smtpServer ;
#जीमेल एसएमटीपी सर्वर से जुड़ें
अगर ( नहीं $smtpसर्वर = नेट::एसएमटीपी::एसएसएल- > नया ( 'smtp.gmail.com' , पत्तन => 465 , डिबग => 1 ) )
{
'SMTP सर्वर से कनेक्ट करने में असमर्थ. \एन ' ;
}
# जांचें कि उपयोगकर्ता नाम और पासवर्ड वैध हैं
$smtpसर्वर- > प्रमाणन ( $उपयोगकर्तानाम , $ पासवर्ड ) || 'प्रमाणीकरण त्रुटि। \एन ' ;
$smtpसर्वर- > मेल ( $से. ' \एन ' ) ;
$smtpसर्वर- > को ( $से. ' \एन ' ) ;
$smtpसर्वर- > डेटा ( ) ;
$smtpसर्वर- > डेटा भेजना ( 'से: ' . $से . ' \एन ' ) ;
$smtpसर्वर- > डेटा भेजना ( 'को: ' . $से . ' \एन ' ) ;
$smtpसर्वर- > डेटा भेजना ( 'विषय: ' . $विषय. ' \एन ' ) ;
$smtpसर्वर- > डेटा भेजना ( ' \एन ' ) ;
}
#सबरूटीन को कॉल करें
&ईमेल भेजें ( ) ;
आउटपुट:
यदि ईमेल सफलतापूर्वक भेजा गया था तो स्क्रिप्ट निष्पादित करने के बाद आउटपुट की शुरुआत में निम्नलिखित समान जानकारी दिखाई देती है:
जब आप प्राप्तकर्ता का ईमेल पता खोलेंगे, तो आपको इनबॉक्स में निम्नलिखित ईमेल प्राप्त होगा:
उदाहरण 2: HTML स्वरूपित ईमेल भेजना
निम्नलिखित स्क्रिप्ट के साथ एक पर्ल फ़ाइल बनाएं जो जीमेल एसएमटीपी सर्वर का उपयोग करके एक HTML-स्वरूपित ईमेल भेजती है। आपको पिछले उदाहरण की तरह एक वैध ईमेल पता और पासवर्ड सेट करना होगा। इसके बाद, वैध रिसीवर और प्रेषक ईमेल पते सेट करें। HTML कोड को स्क्रिप्ट में ईमेल संदेश के रूप में जोड़ा जाता है। HTML-स्वरूपित ईमेल भेजने के लिए ईमेल का सामग्री प्रकार टेक्स्ट/html पर सेट किया गया है। स्क्रिप्ट का दूसरा भाग पिछले उदाहरण जैसा ही है। यदि एसएमटीपी सर्वर जुड़ा हुआ है और उपयोगकर्ता की जानकारी सफलतापूर्वक प्रमाणित हो जाती है, तो प्राप्तकर्ता के ईमेल पते पर एक HTML-स्वरूपित ईमेल भेजा जाता है।
#!/usr/bin/perl#आवश्यक मॉड्यूल आयात करें
सख्त उपयोग करें ;
नेट::एसएमटीपी::एसएसएल का उपयोग करें ;
#जीमेल सर्वर का उपयोग करके ईमेल भेजने के लिए सबरूटीन घोषित करें
उप ईमेल भेजें
{
#प्रमाणीकरण के लिए उपयोगकर्ता नाम और पासवर्ड
मेरा $उपयोगकर्ता नाम = 'username@gmail.com' ;
मेरा $ पासवर्ड = 'ऐप पासवर्ड' ;
#ईमेल भेजने के लिए वेरिएबल प्रारंभ करें
मेरा $to = 'receiver@gmail.com' ;
मेरे $से = 'मेहर निगार
मेरा $विषय = 'पंजीकरण पूरा हुआ' ;
मेरा $संदेश = '
हमारी साइट पर आपका स्वागत है
' ;#SMTP वैरिएबल घोषित करें
मेरा $smtpServer ;
#जीमेल एसएमटीपी सर्वर से जुड़ें
अगर ( नहीं $smtpसर्वर = नेट::एसएमटीपी::एसएसएल- > नया ( 'smtp.gmail.com' , पत्तन => 465 , डिबग => 1 ) )
{
'SMTP सर्वर से कनेक्ट करने में असमर्थ. \एन ' ;
}
# जांचें कि उपयोगकर्ता नाम और पासवर्ड वैध हैं
$smtpसर्वर- > प्रमाणन ( $उपयोगकर्तानाम , $ पासवर्ड ) || 'प्रमाणीकरण त्रुटि। \एन ' ;
$smtpसर्वर- > मेल ( $से. ' \एन ' ) ;
$smtpसर्वर- > को ( $से. ' \एन ' ) ;
$smtpसर्वर- > डेटा ( ) ;
$smtpसर्वर- > डेटा भेजना ( 'से: ' . $से . ' \एन ' ) ;
$smtpसर्वर- > डेटा भेजना ( 'को: ' . $से . ' \एन ' ) ;
$smtpसर्वर- > डेटा भेजना ( 'विषय: ' . $विषय. ' \एन ' ) ;
#HTML स्वरूपित ईमेल भेजने के लिए ईमेल सामग्री प्रकार को HTML पर सेट करें
$smtpसर्वर- > डेटा भेजना ( 'सामग्री-प्रकार: text/html; charset=utf-8 \एन \एन ' ) ;
$smtpसर्वर- > डेटा भेजना ( $संदेश. ' \एन ' ) ;
$smtpसर्वर- > डेटा समाप्त ( ) ;
$smtpसर्वर- > छोड़ना ;
}
#सबरूटीन को कॉल करें
&ईमेल भेजें ( ) ;
आउटपुट:
यदि ईमेल सफलतापूर्वक भेजा गया था तो स्क्रिप्ट निष्पादित करने के बाद आउटपुट की शुरुआत में निम्नलिखित समान जानकारी दिखाई देती है:
जब आप प्राप्तकर्ता का ईमेल पता खोलेंगे, तो आपको इनबॉक्स में निम्नलिखित ईमेल प्राप्त होगा:
निष्कर्ष
जीमेल खाते के 'कम सुरक्षित ऐप' को अक्षम करने के बाद जीमेल एसएमटीपी सर्वर के माध्यम से पर्ल का उपयोग करके ईमेल भेजने की विधियां पहले जितनी आसान नहीं हैं। लेकिन आप अभी ऐप पासवर्ड सेट करके ईमेल भेज सकते हैं।