Shulou(Shulou.com)06/01 Report--

How to use Perl to achieve mail sending function, I believe that many inexperienced people do not know what to do, so this paper summarizes the causes of the problem and solutions, through this article I hope you can solve this problem.

Use Net::SMTP_auth

$smtp = Net::SMTP_auth- > new ('mail.freelynet.com'

Hello = > 'freelynet.com'

Debug = > 1)

$smtp- > auth ('LOGIN',' name', 'passwd')

$smtp- > mail ('qiuhj@freelynet.com')

$smtp- > to ('qiuhj@freelynet.com')

$smtp- > data ()

$smtp- > datasend ("From: qiuhj@freelynet.com n")

$smtp- > datasend ("To: sung@freelynet.com n")

$smtp- > datasend ("Subject: perl mailn")

$smtp- > datasend ("n")

$smtp- > datasend ("mail by perl n")

$smtp- > dataend ()

$smtp- > quit

[@ more@]

After reading the above, have you mastered how to use Perl to implement the email sending function? If you want to learn more skills or want to know more about it, you are welcome to follow the industry information channel, thank you for reading!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.