Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- use MIME::Lite;
- my $user = "admin\@mars-concept.com";
- my $pass = "mars2011";
- ### Create a new single-part message, to send a GIF file:
- my $msg = MIME::Lite->new(
- From => 'admin@mars-concept.com',
- To => 'admin@mars-concept.com',
- Cc => 'some@other.com, some@more.com',
- Subject => 'Helloooooo, nurse!',
- Type => 'image/gif',
- Encoding => 'base64',
- #Path => 'hellonurse.gif'
- );
- MIME::Lite->send('smtp','mars-concept.com',
- AuthUser=>$user, AuthPass=>$pass);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement