Aşagıdaki Örnekler nasıl Sendmail komutunu File Handle olarak açıp email gönderebileceginizi Gösterir
Birinci Örnekte alıcı adresi File Handle tarafından atanmıstır fakat 2. Örnekte alıcı adresi direk olarak
snedmail komutuna parametre olarak atanmıştır.
#!/usr/bin/perl
# Perl ve Sendmaili Kullanarak Mail göderme
unless(open (MAIL, "|/usr/sbin/sendmail -t")) {
print "error.\n";
warn "Error starting sendmail: $!";
}
else
print MAIL "From: gönderen\@sizinsite.com\n";
print MAIL "To: alıcı\@sizinsite.com\n";
print MAIL "Reply-to: cevapadresi\@sizinsite.com\n";
print MAIL "Subject: Örnek Konu\n\n";
print MAIL "Bu Bir Test Mesajıdır lütfen panik yapmayın";
close(MAIL) || warn "Sendmaili Kapatırken Hata Oluştu: $!";
print "Emailiniz Gönderildi \n";
}
veya Sendmail Komutunu Açarken Mesajın kime Gönderilecegini Belirte bilirsiniz.
#!/usr/bin/perl
# Perl ve Sendmaili Kullanarak Mail göderme
unless(open (MAIL, "|/usr/sbin/sendmail alıcı\@sizinsite.com")) {
print "Hata.\n";
warn "Sendmail'i Çalıştırırken hata oluştu: $!";
}
else{
print MAIL "From: gönderen\@sizinsite.com\n";
print MAIL "Subject: Örnek Konu\n\n";
print MAIL "Reply-to: cevapadresi\@sizinsite.com\n";
print MAIL "Bu Bir Test Mesajıdır lütfen panik yapmayın";
close(MAIL) || warn "Sendmaili Kapatırken Hata Oluştu: $!";
print "Emailiniz Gönderildi \n";
}
veya Sendmail Modulunü de kullanabilirsiniz.
örnegin
#!/usr/bin/perl
# Perl ve Sendmaili Modulunü Kullanarak Mail gönderme
use Sendmail
$mailer = new SendMail();
$mailer = new SendMail("127.0.0.1"); #SMTP Server Adresi
$mailer = new SendMail("127.0.0.1", "25"); # Eger SMTP Server default portta çalışmıyorsa portu set edebilirsiniz.
$mailer->From("gönderen@sizinsite.com");
$mailer->Subject("Örnek Konu");
$mailer->To("alıcı@sizinsite.com");
$mailer->ReplyTo("cevapadresi@sizinsite.com");
$mailer->setMailBody("Bu Bir Test Mesajıdır lütfen panik yapmayın");
#ve mesajı yolluyoruz
if ($mailer->sendMail() != 0) {
# Hata Oluştu
print $mailer->{'Hata Oluştu'}."\n";
}
#mail Objectini Sıfırlayalım.
$mailer->reset();
Tabiki Perl ile mail yollama bu yöntem ile kalmamaktadır.
Bu yöntemlerden bazıları
Mail::Lite
Mail:Mailer
gibi Modulleride Kullanıp Mail Yollayabilirsiniz.