Multiple Recipients using SMTP

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

Hi, We are working on perl script in our application which is sending mails to many users We are using Net::SMTP We are using an array to store the multiple recipients and send the mails But in the e-mail sent, we are not able to see all the email address of the recipients in To/Cc field.

my @cclist = ('abc\@yahoo.com','bfgh\@hotmail.com','rew\@rediff.com');
my @ToAddress = ('abc\@yahoo.com','bfgh\@hotmail.com','rew\@rediff.com
+');

# Create a new multipart message:
$MIMEEntity = build MIME::Entity
  From       => $FromAddress,
  'Reply-To' => $ReplyToAddress,
  To         => @ToAddress,
  CC         => @cclist,
  Subject    => $MailSubject,
  Notify     => 'SUCCESS,FAILURE,DELAY',
  Type       => 'multipart/mixed'; 

$NetSMTP->mail($FromAddress) or die "ERROR calling SMTPmail, stopped";
$NetSMTP->to(@ToAddress) or die "ERROR calling SMTPmail, stopped"; 
$NetSMTP->cc(@cclist) or die "ERROR calling SMTPmail, stopped";
[download]

How do we fix this

2004-12-23 Janitored by Arunbear - added code tags, as per Monastery guidelines

Comment on Multiple Recipients using SMTP Download Code

Replies are listed 'Best First'.
Re: Multiple Recipients using SMTP by maa (Pilgrim) on Dec 23, 2004 at 15:49 UTC
Try not escaping the `@` - you're using single quotes, after all.	[reply] [d/l]
Re: Multiple Recipients using SMTP by muntfish (Chaplain) on Dec 23, 2004 at 17:06 UTC
When you build the MIME::Entity, I don't think you can do `To => @ToAddress, CC => @cclist,` as I suspect the arrays will flatten into the parameter list. You should probably do something like: `To => join(',', @ToAddress), CC => join(',', @cclist),` or maybe you can pass an array reference (not familiar with what MIME::Entity can accept). Also the advice to not escape @ in single-quoted strings sounds good to me. s^^unp(;75N=&9I<V@`ack(u,^;s\|$.+\`\|"$`$'\"$&\"$"\|ee;/m.+h/&&print$&	[reply] [d/l] [select]
Re^2: Multiple Recipients using SMTP by ghouse (Novice) on Dec 24, 2004 at 10:49 UTC
Thank you for valuable tip .. It's working now	[reply]


Perl: the Markov chain saw
	PerlMonks