একটি ইমেল পাঠানোর বিভিন্ন উদাহরণ
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 সার্ভারের সাথে সংযোগ করুন
যদি ( না $smtp সার্ভার = নেট::SMTP::SSL- > নতুন ( 'smtp.gmail.com' , বন্দর => 465 , ডিবাগ => 1 ) )
{
দ্য 'SMTP সার্ভারের সাথে সংযোগ করতে অক্ষম৷ \n ' ;
}
# ব্যবহারকারীর নাম এবং পাসওয়ার্ড বৈধ কিনা তা পরীক্ষা করুন
$smtpServer- > প্রমাণ ( $ব্যবহারকারী নাম , $পাসওয়ার্ড ) || দ্য 'প্রমাণীকরণ ত্রুটি. \n ' ;
$smtpServer- > মেইল ( $থেকে ' \n ' ) ;
$smtpServer- > প্রতি ( $ থেকে ' \n ' ) ;
$smtpServer- > তথ্য ( ) ;
$smtpServer- > ডেটা পাঠান ( 'থেকে:' . $থেকে ' \n ' ) ;
$smtpServer- > ডেটা পাঠান ( 'প্রতি: ' . $ থেকে ' \n ' ) ;
$smtpServer- > ডেটা পাঠান ( 'বিষয়:' . $বিষয়। ' \n ' ) ;
$smtpServer- > ডেটা পাঠান ( ' \n ' ) ;
}
# সাবরুটিনে কল করুন
&ইমেইল পাঠান ( ) ;
আউটপুট:
ইমেল সফলভাবে পাঠানো হলে স্ক্রিপ্ট চালানোর পরে আউটপুটের শুরুতে নিম্নলিখিত অনুরূপ তথ্য উপস্থিত হয়:
আপনি যখন রিসিভার ইমেল ঠিকানাটি খুলবেন, তখন আপনি ইনবক্সে নিম্নলিখিত ইমেলটি পাবেন:
উদাহরণ 2: একটি HTML ফরম্যাটেড ইমেল পাঠানো
নিম্নলিখিত স্ক্রিপ্ট সহ একটি পার্ল ফাইল তৈরি করুন যা একটি Gmail SMTP সার্ভার ব্যবহার করে একটি HTML-ফরম্যাট করা ইমেল পাঠায়৷ আপনাকে আগের উদাহরণের মতো একটি বৈধ ইমেল ঠিকানা এবং পাসওয়ার্ড সেট করতে হবে। এরপরে, বৈধ প্রাপক এবং প্রেরকের ইমেল ঠিকানা সেট করুন। HTML কোডটি স্ক্রিপ্টে ইমেল বার্তা হিসাবে যোগ করা হয়েছে। HTML-ফরম্যাট করা ইমেল পাঠানোর জন্য ইমেলের বিষয়বস্তুর ধরন পাঠ্য/html-এ সেট করা আছে। স্ক্রিপ্টের অন্য অংশটি আগের উদাহরণের মতোই। SMTP সার্ভার সংযুক্ত থাকলে এবং ব্যবহারকারীর তথ্য সফলভাবে প্রমাণিত হলে একটি HTML-ফরম্যাট করা ইমেল রিসিভারের ইমেল ঠিকানায় পাঠানো হয়।
#!/usr/bin/perl# প্রয়োজনীয় মডিউল আমদানি করুন
কঠোর ব্যবহার করুন ;
Net::SMTP::SSL ব্যবহার করুন ;
# Gmail সার্ভার ব্যবহার করে ইমেল পাঠাতে সাবরুটিন ঘোষণা করুন
সাব ইমেইল পাঠান
{
# প্রমাণীকরণের জন্য ব্যবহারকারীর নাম এবং পাসওয়ার্ড
আমার $username = 'username@gmail.com' ;
আমার $পাসওয়ার্ড = 'অ্যাপ পাসওয়ার্ড' ;
# ইমেল পাঠানোর জন্য ভেরিয়েবলগুলি শুরু করুন
আমার $to = 'receiver@gmail.com' ;
আমার $থেকে = 'মেহের নিগার
আমার $বিষয় = 'রেজিস্ট্রেশন সম্পন্ন' ;
আমার $বার্তা = '
আমাদের সাইটে স্বাগতম
' ;# smtp ভেরিয়েবল ঘোষণা করুন
আমার $smtpServer ;
# Gmail smtp সার্ভারের সাথে সংযোগ করুন
যদি ( না $smtp সার্ভার = নেট::SMTP::SSL- > নতুন ( 'smtp.gmail.com' , বন্দর => 465 , ডিবাগ => 1 ) )
{
দ্য 'SMTP সার্ভারের সাথে সংযোগ করতে অক্ষম৷ \n ' ;
}
# ব্যবহারকারীর নাম এবং পাসওয়ার্ড বৈধ কিনা তা পরীক্ষা করুন
$smtpServer- > প্রমাণ ( $ব্যবহারকারী নাম , $পাসওয়ার্ড ) || দ্য 'প্রমাণীকরণ ত্রুটি. \n ' ;
$smtpServer- > মেইল ( $থেকে ' \n ' ) ;
$smtpServer- > প্রতি ( $ থেকে ' \n ' ) ;
$smtpServer- > তথ্য ( ) ;
$smtpServer- > ডেটা পাঠান ( 'থেকে:' . $থেকে ' \n ' ) ;
$smtpServer- > ডেটা পাঠান ( 'প্রতি: ' . $ থেকে ' \n ' ) ;
$smtpServer- > ডেটা পাঠান ( 'বিষয়:' . $বিষয়। ' \n ' ) ;
#এইচটিএমএল ফরম্যাটেড ইমেল পাঠানোর জন্য ইমেল বিষয়বস্তুর ধরন HTML এ সেট করুন
$smtpServer- > ডেটা পাঠান ( 'কন্টেন্ট-টাইপ: টেক্সট/html; charset=utf-8 \n \n ' ) ;
$smtpServer- > ডেটা পাঠান ( $বার্তা। ' \n ' ) ;
$smtpServer- > তথ্য শেষ ( ) ;
$smtpServer- > প্রস্থান ;
}
# সাবরুটিনে কল করুন
&ইমেইল পাঠান ( ) ;
আউটপুট:
ইমেল সফলভাবে পাঠানো হলে স্ক্রিপ্ট চালানোর পরে আউটপুটের শুরুতে নিম্নলিখিত অনুরূপ তথ্য উপস্থিত হয়:
আপনি যখন রিসিভার ইমেল ঠিকানাটি খুলবেন, তখন আপনি ইনবক্সে নিম্নলিখিত ইমেলটি পাবেন:
উপসংহার
Gmail SMTP সার্ভারের মাধ্যমে পার্ল ব্যবহার করে একটি ইমেল পাঠানোর পদ্ধতিগুলি Gmail অ্যাকাউন্টের 'কম নিরাপদ অ্যাপ' নিষ্ক্রিয় করার পরে আগের মতো সহজ নয়। কিন্তু আপনি এখন অ্যাপ পাসওয়ার্ড সেট করে একটি ইমেল পাঠাতে পারেন।