Categoria Atual: CGI / Perl

Seguei dois scripts para enviar e-mail com o Perl… são simples e bem funcionais: Primeiro Script: sub enviarEMail { my ($to, $from, $subject, $message) = @_; my $sendmail = '/usr/lib/sendmail'; open(MAIL, "|$sendmail -oi -t"); print MAIL "De: $from\n"; print MAIL "Para: $to\n"; print MAIL "Assunto: $subject\n\n"; print MAIL "$message\n"; close(MAIL); } Segundo Script: use chilkat; $mailman = new chilkat::CkMailMan(); $success = $mailman->UnlockComponent("30 dias, Trial"); if ($success != 1) { print "Componente com Falha" . "\n"; exit; } $mailman->put_SmtpHost("smtp.dominio.com.br"); $mailman->put_SmtpUsername("Meu_Usuario"); $mailman->put_SmtpPassword("Minha_Senha"); …
Continue Lendo →