ای میل بھیجنے کی مختلف مثالیں۔
Gmail SMTP سرور اور Gmail اکاؤنٹ کا استعمال کرتے ہوئے ای میل بھیجنے کے طریقے ٹیوٹوریل کے اس حصے میں دکھائے گئے ہیں۔
مثال 1: ایک سادہ ٹیکسٹ ای میل بھیجنا
درج ذیل اسکرپٹ کے ساتھ ایک پرل فائل بنائیں جو Gmail SMTP سرور کا استعمال کرتے ہوئے ایک سادہ ٹیکسٹ ای میل بھیجے۔ آپ کو درست ای میل ایڈریس اور پاس ورڈ سیٹ کرنا ہوگا جو ایپ پاس ورڈ کے لیے $username اور $password متغیرات میں سیٹ کیا گیا ہے۔ اسکرپٹ میں ڈمی صارف نام اور پاس ورڈ تفویض کیا گیا ہے۔ اگر ایپ کا پاس ورڈ صحیح طریقے سے کنفیگر نہیں کیا گیا ہے تو ای میل نہیں بھیجی جائے گی۔ اس کے بعد، درست وصول کنندہ اور بھیجنے والے کے ای میل پتوں کو $to اور $from متغیر میں سیٹ کریں تاکہ یہ چیک کیا جا سکے کہ آیا ای میل صحیح طریقے سے بھیجا گیا ہے۔ اسکرپٹ کا دوسرا حصہ بدستور برقرار ہے۔ وصول کنندہ کے ای میل ایڈریس پر ایک سادہ ٹیکسٹ پیغام بھیجا جاتا ہے اگر SMTP سرور منسلک ہو اور صارف کی معلومات کی کامیابی سے تصدیق ہو جائے۔
#!/usr/bin/perl
# ضروری ماڈیولز درآمد کریں۔
سختی سے استعمال کریں ;
Net::SMTP::SSL استعمال کریں۔ ;
# Gmail سرور کا استعمال کرتے ہوئے ای میل بھیجنے کے لیے سب روٹین کا اعلان کریں۔
ذیلی ای میل بھیجیں۔
{
# توثیق کے لیے صارف کا نام اور پاس ورڈ
میرا $username = 'username@gmail.com' ;
میرا $ پاس ورڈ = 'ایپ پاس ورڈ' ;
# ای میل بھیجنے کے لیے متغیرات کو شروع کریں۔
میرے $to = 'receiver@gmail.com' ;
میری $ سے = 'مہر نگار
میرا موضوع = 'یہ ایک ٹیسٹنگ ای میل ہے' ;
میرا $پیغام = 'ہیلو، پرل کا استعمال کرتے ہوئے ای میل بھیج رہا ہوں۔' ;
# smtp متغیر کا اعلان کریں۔
میرا $smtpServer ;
#Gmail smtp سرور سے جڑیں۔
اگر ( نہیں $smtpServer = نیٹ::SMTP::SSL- > نئی ( 'smtp.gmail.com' , بندرگاہ => 465 , ڈیبگ => 1 ) )
{
دی 'SMTP سرور سے رابطہ قائم کرنے سے قاصر ہے۔ \n ' ;
}
# چیک کریں کہ صارف نام اور پاس ورڈ درست ہیں۔
$smtpServer- > تصنیف ( $username , پاس ورڈ ) || دی 'تصدیق کی غلطی. \n ' ;
$smtpServer- > میل ( $ سے ' \n ' ) ;
$smtpServer- > کو ( $سے ' \n ' ) ;
$smtpServer- > ڈیٹا ( ) ;
$smtpServer- > ڈیٹا بھیجیں۔ ( 'منجانب:' . $سے ' \n ' ) ;
$smtpServer- > ڈیٹا بھیجیں۔ ( 'کو:' . $سے ' \n ' ) ;
$smtpServer- > ڈیٹا بھیجیں۔ ( 'مضمون: ' . $موضوع ' \n ' ) ;
$smtpServer- > ڈیٹا بھیجیں۔ ( ' \n ' ) ;
}
#سب روٹین کو کال کریں۔
&ای میل بھیجیں ( ) ;
آؤٹ پٹ:
اگر ای میل کامیابی کے ساتھ بھیجی گئی تو اسکرپٹ پر عمل کرنے کے بعد آؤٹ پٹ کے شروع میں درج ذیل اسی طرح کی معلومات ظاہر ہوتی ہیں:
جب آپ وصول کنندہ کا ای میل ایڈریس کھولیں گے، تو آپ کو ان باکس میں درج ذیل ای میل موصول ہوگی:
مثال 2: HTML فارمیٹ شدہ ای میل بھیجنا
درج ذیل اسکرپٹ کے ساتھ ایک پرل فائل بنائیں جو Gmail SMTP سرور کا استعمال کرتے ہوئے HTML فارمیٹ شدہ ای میل بھیجے۔ آپ کو پچھلی مثال کی طرح ایک درست ای میل ایڈریس اور پاس ورڈ سیٹ کرنا ہوگا۔ اگلا، درست وصول کنندہ اور بھیجنے والے کے ای میل پتے سیٹ کریں۔ HTML کوڈ کو اسکرپٹ میں ای میل پیغام کے طور پر شامل کیا جاتا ہے۔ HTML فارمیٹ شدہ ای میل بھیجنے کے لیے ای میل کے مواد کی قسم کو متن/html پر سیٹ کیا گیا ہے۔ اسکرپٹ کا دوسرا حصہ پچھلی مثال کی طرح ہے۔ ایک ایچ ٹی ایم ایل فارمیٹ شدہ ای میل وصول کنندہ کے ای میل ایڈریس پر بھیجی جاتی ہے اگر SMTP سرور منسلک ہو اور صارف کی معلومات کی کامیابی سے تصدیق ہو جائے۔
#!/usr/bin/perl# ضروری ماڈیولز درآمد کریں۔
سختی سے استعمال کریں ;
Net::SMTP::SSL استعمال کریں۔ ;
# Gmail سرور کا استعمال کرتے ہوئے ای میل بھیجنے کے لیے سب روٹین کا اعلان کریں۔
ذیلی ای میل بھیجیں۔
{
# توثیق کے لیے صارف کا نام اور پاس ورڈ
میرا $username = 'username@gmail.com' ;
میرا $ پاس ورڈ = 'ایپ پاس ورڈ' ;
# ای میل بھیجنے کے لیے متغیرات کو شروع کریں۔
میرے $to = 'receiver@gmail.com' ;
میری $ سے = 'مہر نگار
میرا موضوع = 'رجسٹریشن مکمل' ;
میرا $پیغام = '
ہماری سائٹ پر خوش آمدید
' ;# smtp متغیر کا اعلان کریں۔
میرا $smtpServer ;
#Gmail smtp سرور سے جڑیں۔
اگر ( نہیں $smtpServer = نیٹ::SMTP::SSL- > نئی ( 'smtp.gmail.com' , بندرگاہ => 465 , ڈیبگ => 1 ) )
{
دی 'SMTP سرور سے رابطہ قائم کرنے سے قاصر ہے۔ \n ' ;
}
# چیک کریں کہ صارف نام اور پاس ورڈ درست ہیں۔
$smtpServer- > تصنیف ( $username ، پاس ورڈ ) || دی 'تصدیق کی غلطی. \n ' ;
$smtpServer- > میل ( $ سے ' \n ' ) ;
$smtpServer- > کو ( $سے ' \n ' ) ;
$smtpServer- > ڈیٹا ( ) ;
$smtpServer- > ڈیٹا بھیجیں۔ ( 'منجانب:' . $سے ' \n ' ) ;
$smtpServer- > ڈیٹا بھیجیں۔ ( 'کو:' . $سے ' \n ' ) ;
$smtpServer- > ڈیٹا بھیجیں۔ ( 'مضمون: ' . $موضوع ' \n ' ) ;
#HTML فارمیٹ شدہ ای میل بھیجنے کے لیے ای میل مواد کی قسم کو HTML پر سیٹ کریں۔
$smtpServer- > ڈیٹا بھیجیں۔ ( 'مواد کی قسم: متن/html؛ charset=utf-8 \n \n ' ) ;
$smtpServer- > ڈیٹا بھیجیں۔ ( $پیغام ' \n ' ) ;
$smtpServer- > ڈیٹا ختم ( ) ;
$smtpServer- > چھوڑو ;
}
#سب روٹین کو کال کریں۔
&ای میل بھیجیں ( ) ;
آؤٹ پٹ:
اگر ای میل کامیابی کے ساتھ بھیجی گئی تھی تو اسکرپٹ پر عمل کرنے کے بعد آؤٹ پٹ کے آغاز میں درج ذیل اسی طرح کی معلومات ظاہر ہوتی ہیں:
جب آپ وصول کنندہ کا ای میل ایڈریس کھولیں گے، تو آپ کو ان باکس میں درج ذیل ای میل ملے گی۔
نتیجہ
Gmail SMTP سرور کے ذریعے پرل کا استعمال کرتے ہوئے ای میل بھیجنے کے طریقے جی میل اکاؤنٹ کی 'کم محفوظ ایپ' کو غیر فعال کرنے کے بعد پہلے کی طرح آسان نہیں ہیں۔ لیکن آپ ابھی ایپ پاس ورڈ سیٹ کرکے ای میل بھیج سکتے ہیں۔