Envoie d'un Mail


/ Published in: Perl
Save to your folder(s)



Copy this code and paste it in your HTML
  1. open(CMD,"|/usr/sbin/sendmail -oi -odi -oem -f exploit\@toto.com -t")
  2. or die "Can not open sendmail : $!\n";
  3. print CMD "From: exploit\@toto.com\n";
  4. printf CMD "To: %s\n",$operatorEmail;
  5. print CMD "Subject: Mail Internet\n";
  6. print CMD "Mime-Version: 1.0\nContent-Type: text/plain; charset=iso-8859-1\n";
  7. print CMD "Content-Transfer-Encoding: 8bit\n\n";
  8. print CMD "Bonjour,\n\n";
  9. close CMD;

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.