bigup401 has asked for the wisdom of the Perl Monks concerning the following question:
am having above script to send announcement to my clients in db, but my problem when i send message is delivered to all. and there is no problem. but it appears to customers emails like this
To: 2c@talktalk.net, 3c@talktalk.net, 4c@talktalk.net, 5c@talktalk.net +, 5c@talktalk.net, 5c@talktalk.net, 5c@talktalk.net
it shows all recipients. i only want to show single email for actual receiver like
To: email_owner@show_alone.com
not all recipients
here is my code
$getemails = $DBH->prepare("SELECT DISTINCT EMAIL FROM USERS"); $getemails->execute(); $db_emails = $getemails->fetchall_arrayref; $emails = join ',',map{$_->[0]}@$db_emails; $TO = $emails; $FROM = 'myeamil@email.com'; $SUBJECT = 'hey'; $MESSAGE = " Sup "; $MSG = MIME::Lite->new( From => $FROM, To => $TO, Subject => $SUBJECT, Data => $MESSAGE ); $MSG->send;
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: send mail
by stevieb (Canon) on Apr 03, 2019 at 23:14 UTC | |
by marto (Cardinal) on Apr 04, 2019 at 06:39 UTC | |
by bigup401 (Pilgrim) on Apr 04, 2019 at 08:39 UTC | |
by stevieb (Canon) on Apr 04, 2019 at 19:55 UTC |