[URGENTE]Enviar email com perl so que nao chega na caixa de entrada do Email

crodlagon
(usa Outra)

Enviado em 08/07/2016 - 21:50h

Boa Noite a todos

Comunidade quero uma super ajuda hoje, estou um com problema que preciso mandar emails com um volume alto para interessados que queria participar do processo seletivo de entrevista só que ate ENVIA porem nao chega na caixa de emails alguém sabe o porque e como arrumar isso?

Uso VM Ubuntu - Server 14 e Putty;wincsp; Postfix já configurado port 2222 ;

$ perl file.pl "lista.txt " "empregomark@hotmail.com" "Vagas De Emprego " "vgpregos23.html"

A resposta que quando envio

1 Enviado para joalison9877@hotmail.com <<< teste>>>

O script Perl ta assim.

#!/usr/local/bin/perl

$ARGC=@ARGV;
if ($ARGC !=4) {
printf "Você deve ter digitado os comandos de forma errada\n";
printf "Veja como usar corretamente...\n";
printf "perl $0 <mailist> <remetente\@mail.com> <assunto> <corpo.html>\n";
printf "Exemplo: perl $0 lista01.txt peu\@msn.com Ola index.html\n";
exit(1);
}

$mailtype = "content-type: text/html";
$sendmail = '/usr/sbin/sendmail';
$sender = $ARGV[1];
$subject = $ARGV[2];
$efile = $ARGV[0];
$emar = $ARGV[0];
open(FOO, $ARGV[3]);
@foo = <FOO>;
$corpo = join("\n", @foo);
open (BANDFIT, "$emar") || die "Can't Open $emar";
$cont=0;

while(<BANDFIT>) {
($ID,$options) = split(/\|/,$_);
chop($options);
foreach ($ID) {
$recipient = $ID;
open (SENDMAIL, "| $sendmail -t");
print SENDMAIL "$mailtype\n";
print SENDMAIL "Subject: $subject\n";
print SENDMAIL "From: $sender\n";
print SENDMAIL "To: $recipient\n\n";
print SENDMAIL "$corpo\n\n";
close (SENDMAIL);
$cont=$cont+1;
printf "$cont Enviado para $recipient";
}
}
close(BANDFIT);


Preciso de uma ajuda urgente.

crodlagon
(usa Outra)

Enviado em 09/07/2016 - 13:44h

Alguém ????