Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use MIME::Lite;
- $to = 'abcd@gmail.com';
- $cc = 'efgh@mail.com';
- $from = 'webmaster@yourdomain.com';
- $subject = 'Test Email';
- $message = '<h1>This is test email sent by Perl Script</h1>';
- $msg = MIME::Lite->new(
- From => $from,
- To => $to,
- Cc => $cc,
- Subject => $subject,
- Data => $message
- );
- $msg->attr("content-type" => "text/html");
- $msg->send;
- #или:
- #$msg->send('smtp', "smtp.myisp.net", AuthUser=>"id", AuthPass=>"password" );
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement