in reply to (OT) Sending emails
Hope that helps#!/usr/bin/perl -w use strict; use Net::SMTP; my $mailserver = "mailserver.yourisp.com"; my $mailfrom = "From: \"Big Company\" <big_company\@domain.com>\n"; my $mailto = "To: \"Joe Blogs\" <joe_bloggs\@clients.com>\n"; my $subject = "Blah, blah, blah"; foreach $infile (@ARGV) { if(!open MESSAGE, "<$infile") { print STDERR "Couldn't open $infile: $!\n"; next; } my $message; my $smtp = Net::SMTP->new($mailserver); my $mailfrom = $1 if($displaymailfrom =~ /^[^<]*<([^>]+)>/); my $mailto = $1 if($displaymailto =~ /^[^<]*<([^>]+)>/); $smtp->mail($mailfrom); $smtp->to($mailto); $smtp->data(); $smtp->datasend($subject); $smtp->datasend($displaymailfrom); $smtp->datasend($displaymailto); while(<MESSAGE>) { $smtp->datasend($_); } $smtp->dataend(); $smtp->quit; close MESSAGE; }
|
|---|