How to print the recipients address in my mail

chandru210486 has asked for the wisdom of the Perl Monks concerning the following question:

Hi, I use Net::SMTP to send mail from my perl program. when i receive the mail, i am not able to see the recipient's address. I want to see the recipient's address in the mail. please let me know how i can do that. Below is my code. perl version used v5.8.8.

sub send_mail
{
        my ($rpt_name) = @_;
        (my $volume, my $directories, my $file_name) = File::Spec->spl
+itpath($rpt_name);

        my $from = "abc\@a.com";
        my $to = "aa\@aa.com, bb\@bbbb.com";
        my @EMAIL_RECIPIENTS = split(/[,;]/, $to);
        my $DATA1;

        $smtp = Net::SMTP->new($host , Debug => 1);

        $smtp->mail($from);
        foreach $recipient (@EMAIL_RECIPIENTS)
        {
                $smtp->to($recipient);
        }

        open(DATA1, $rpt_name) || die("Could not open the file");
        my @csv = <DATA1>;
        close(DATA1);
        $smtp->recipient($to, { SkipBad => 1 });
        $smtp->data();
        $smtp->datasend("Subject: TEST MAIL \n\n @csv");
        $smtp->dataend();
        $smtp->quit;
}
exit;
[download]

Comment on How to print the recipients address in my mail Download Code

Replies are listed 'Best First'.
Re: How to print the recipients address in my mail by tobyink (Canon) on Oct 19, 2012 at 23:03 UTC
You would probably be better off using something like Mail::Box because Net::SMTP is very low-level. But in answer to your question, mails sent by SMTP have two places where the recipient is specified: the so called "envelope header" which is part of the SMTP protocol itself (yes, I'm aware what the P stands for), and the "message header" which is part of the RFC 822 format (and successors). It is the message header which email clients display. They don't usually have access to the envelope header at all, unless the mail server makes part of it available to them (which is quite common; usually by reformatting parts of it and adding them to the message header). Net::SMTP is an SMTP implementation which doesn't concern itself with the formatting of the message itself at all. Anyway, to cut a long story short... `$smtp->datasend("To: $to\nSubject: TEST MAIL\n\n@csv");` [download] `1000066 and all that`	[reply] [d/l]
Re^2: How to print the recipients address in my mail by chandru210486 (Initiate) on Oct 22, 2012 at 22:26 UTC
Thanks - It is working now.	[reply]
Re: How to print the recipients address in my mail by Old_Gray_Bear (Bishop) on Oct 19, 2012 at 22:49 UTC
Whether the recipient address is displayed is function of the mail client. If your email is received by the correct addressee, then the `To:` header was correctly formatted. If the header is not displayed, then you need to get yourself a better set of client options. ---- I Go Back to Sleep, Now. OGB	[reply] [d/l]