Различити примери слања е-поште
Методе слања е-поште помоћу Гмаил СМТП сервера и Гмаил налога су приказане у овом делу упутства.
Пример 1: Слање једноставне текстуалне е-поште
Направите Перл датотеку са следећом скриптом која шаље једноставну текстуалну е-пошту користећи Гмаил СМТП сервер. Морате да подесите важећу адресу е-поште и лозинку која је постављена за лозинку апликације у променљиве $усернаме и $пассворд. Лажно корисничко име и лозинка се додељују у скрипти. Е-пошта неће бити послата ако лозинка апликације није правилно конфигурисана. Затим подесите важеће адресе е-поште примаоца и пошиљаоца на променљиве $то и $фром да бисте проверили да ли је е-пошта исправно послата. Други део сценарија остаје непромењен. Једноставна текстуална порука се шаље на адресу е-поште примаоца ако је СМТП сервер повезан и информације о кориснику су успешно потврђене.
#!/уср/бин/перл
#Увезите потребне модуле
користити строге ;
користите Нет::СМТП::ССЛ ;
#Децларе потпрограм за слање е-поште помоћу Гмаил сервера
суб сендЕмаил
{
#Корисничко име и лозинка за аутентификацију
моје $корисничко име = 'корисничко име@гмаил.цом' ;
моја $лозинка = 'лозинка апликације' ;
#Иницијализујте варијабле за слање е-поште
мој $то = 'рецеивер@гмаил.цом' ;
мој $од = 'Мехер Нигар <сендер@гмаил.цом>' ;
мој $субјек = 'То је тест е-поште' ;
моја порука = „Здраво, шаљем е-пошту користећи Перл.“ ;
#Објавите смтп променљиву
мој $смтпСервер ;
#Повежите се са Гмаил смтп сервером
ако ( не $смтпСервер = Нет::СМТП::ССЛ- > Нова ( 'смтп.гмаил.цом' , Лука => 465 , Отклањање грешака => 1 ) )
{
тхе „Није могуће повезати се са СМТП сервером. \н ' ;
}
#Проверите да ли су корисничко име и лозинка исправни
$смтпСервер- > аутх ( $усернаме , $пассворд ) || тхе 'Грешка потврда идентитета. \н ' ;
$смтпСервер- > Пошта ( $од. ' \н ' ) ;
$смтпСервер- > до ( $то. ' \н ' ) ;
$смтпСервер- > података ( ) ;
$смтпСервер- > датасенд ( 'Од: ' . $од . ' \н ' ) ;
$смтпСервер- > датасенд ( 'До: ' . $то . ' \н ' ) ;
$смтпСервер- > датасенд ( 'Субјецт: ' . $субјецт . ' \н ' ) ;
$смтпСервер- > датасенд ( ' \н ' ) ;
}
#Позовите потпрограм
&шаљи имејл ( ) ;
Излаз:
Следеће сличне информације се појављују на почетку излаза након извршавања скрипте ако је е-порука успешно послата:
Када отворите адресу е-поште примаоца, добићете следећу е-пошту у пријемном сандучету:
Пример 2: Слање е-поште у ХТМЛ формату
Направите Перл датотеку са следећом скриптом која шаље е-пошту у ХТМЛ формату користећи Гмаил СМТП сервер. Морате да поставите исправну адресу е-поште и лозинку као у претходном примеру. Затим подесите важеће адресе е-поште примаоца и пошиљаоца. ХТМЛ код се додаје као порука е-поште у скрипту. Тип садржаја е-поруке је подешен на текст/хтмл за слање е-поште у ХТМЛ формату. Други део скрипте је исти као у претходном примеру. Е-пошта у ХТМЛ формату се шаље на адресу е-поште примаоца ако је СМТП сервер повезан и информације о кориснику су успешно потврђене.
#!/уср/бин/перл#Увезите потребне модуле
користити строге ;
користите Нет::СМТП::ССЛ ;
#Децларе потпрограм за слање е-поште помоћу Гмаил сервера
суб сендЕмаил
{
#Корисничко име и лозинка за аутентификацију
моје $корисничко име = 'корисничко име@гмаил.цом' ;
моја $лозинка = 'лозинка апликације' ;
#Иницијализујте варијабле за слање е-поште
мој $то = 'рецеивер@гмаил.цом' ;
мој $од = 'Мехер Нигар <сендер@гмаил.цом>' ;
мој $субјек = 'Регистрација је завршена' ;
моја порука = '<хтмл><боди><х1>Добро дошли на наш сајт' ;
#Објавите смтп променљиву
мој $смтпСервер ;
#Повежите се са Гмаил смтп сервером
ако ( не $смтпСервер = Нет::СМТП::ССЛ- > Нова ( 'смтп.гмаил.цом' , Лука => 465 , Отклањање грешака => 1 ) )
{
тхе „Није могуће повезати се са СМТП сервером. \н ' ;
}
#Проверите да ли су корисничко име и лозинка исправни
$смтпСервер- > аутх ( $усернаме , $пассворд ) || тхе 'Грешка потврда идентитета. \н ' ;
$смтпСервер- > Пошта ( $од. ' \н ' ) ;
$смтпСервер- > до ( $то. ' \н ' ) ;
$смтпСервер- > података ( ) ;
$смтпСервер- > датасенд ( 'Од: ' . $од . ' \н ' ) ;
$смтпСервер- > датасенд ( 'До: ' . $то . ' \н ' ) ;
$смтпСервер- > датасенд ( 'Субјецт: ' . $субјецт . ' \н ' ) ;
#Подесите тип садржаја е-поште на ХТМЛ за слање е-поште у хтмл формату
$смтпСервер- > датасенд ( „Тип садржаја: текст/хтмл; цхарсет=утф-8 \н \н ' ) ;
$смтпСервер- > датасенд ( $мессаге. ' \н ' ) ;
$смтпСервер- > крај података ( ) ;
$смтпСервер- > одустати ;
}
#Позовите потпрограм
&шаљи имејл ( ) ;
Излаз:
Следеће сличне информације се појављују на почетку излаза након извршавања скрипте ако је е-порука успешно послата:
Када отворите адресу е-поште примаоца, добићете следећу е-пошту у пријемном сандучету:
Закључак
Методе слања е-поште користећи Перл преко Гмаил СМТП сервера нису тако једноставне као раније након онемогућавања „мање безбедне апликације“ Гмаил налога. Али можете послати е-пошту тако што ћете сада поставити лозинку за апликацију.