Arquivos de ‘ CGI / Perl ’

CGI / Perl - Enviado E-mails, simples e complexo 03 April 2008 as 6:02 pm de Ted k'

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");
$email = new chilkat::CkEmail();

$email->put_Subject("Texto de Teste");
$email->put_Body("Texto de Teste");
$email->put_From('E-Mail de Suporte <suporte@dominio.com.br>');
$email->AddTo("Meu Nome",'meu_email@dominio.com.br');

$success = $mailman->SendEmail($email);
	if ($success != 1) {
		print $mailman->lastErrorText() . "\n";
		exit;
	}

$success = $mailman->CloseSmtpConnection();
	if ($success != 1) {
		print "	Conexão ao servidor SMTP não fechado." . "\n";
	}

print "Mensagem enviada com Sucesso!" . "\n";

Acesse também: Webly