[Ajuda] Código para enviar e-mails

1. [Ajuda] Código para enviar e-mails

Kyn Taino Leonardo
kynwosh

(usa Ubuntu)

Enviado em 19/06/2015 - 15:37h

Boa tarde, tenho esse código em perl que envia emails de uma lista com assunto e corpo, preciso de um que faça isso mas que seja possível anexar algum arquivo da minha escola, alguém pode me ajudar?
Desde já agradeço.


#!/usr/local/bin/perl

[email protected];
if ($ARGC !=4) {
printf "Você digitou de uma forma errada. Siga as instruções.\n";
printf "INSTRUÇÕES - UND3F1N3D\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);



  


2. Re: [Ajuda] Código para enviar e-mails

Lucas
mineirobr

(usa Debian)

Enviado em 30/06/2015 - 10:20h

Tente esse módulo:
https://metacpan.org/pod/Mail::SendEasy

Dai você usa anex ou zipanex, é só apontar o caminho dele no servidor, exemplo:
anex => ['/home/user/foto1.jpg', '/home/user/foto2.jpg']

Falou.


3. Re: [Ajuda] Código para enviar e-mails

Daniel Vinciguerra
dvinciguerra

(usa Debian)

Enviado em 14/10/2015 - 18:31h


Como o @mineirobr falou, é melhor utilizar um modulo caso você possa pois é um tanto chatinho fazer na mão.

Recomento o modulo MIME::Lite (metacpan.org/pod/MIME::Lite) que pode ser baixado e instalado usando o comando abaixo:

perl -MCPAN -e 'install MIME::Lite'


Ou de forma mais pragmática:


cpan MIME::Lite


Isso deve instalar seu modulo e você poderá utilizar conforme a documentação:


use MIME::Lite

# message
my $msg = MIME::Lite->new(
From =>'[email protected]',
To =>'[email protected]',
Subject =>'Hello World',
Type =>'TEXT',
Data =>"Mandando esta imagem pra você...."
);

# attach
$msg->attach(
Type =>'image/jpg',
Path =>'minha_imagem.jpg',
Filename =>'arquivo.jpg'
);

# sending
$msg->send;


Qualquer duvida poste aqui...

Abraço,






Patrocínio

Site hospedado pelo provedor RedeHost.
Linux banner
Linux banner
Linux banner

Destaques

Artigos

Dicas

Tópicos

Top 10 do mês

Scripts