개발이야기/이메일시스템

perl - send email. 이메일 발송하기.

준호씨 2019. 1. 4. 20:30
반응형

Net::SMTP 이용

  • Net::SMTP 모듈을 이용하여 메일을 보내는 예제
  • Debug 메시지를 보여 주기 싫으면 ```Debug => 1``` 부분을 지우면 된다.
  • 심플하게 메일을 보내는데 한글이 들어가면 수신 서버에 따라 제대로 처리가 안되는 경우가 있다.
  • 가급적이면 MIME 으로 인코딩 해서 보내는 것이 좋다.

use strict;
use warnings;

use Net::SMTP;

my $smtp = Net::SMTP->new('mx1.hanmail.net', Debug => 1);

my $from = 'test@junho85.pe.kr';
my $to = 'junho85@daum.net';

$smtp->mail($from); # from
$smtp->to($to); # to

$smtp->data();
$smtp->datasend("From: $from\n");
$smtp->datasend("To: $to\n");
$smtp->datasend("Subject: this is test mail for perl\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;

Mail::Send

이건 From 지정도 어렵고 요즘은 별로 활용 할 만한 곳이 없어 보인다.

http://search.cpan.org/~markov/MailTools-2.20/lib/Mail/Send.pod

참고


반응형