読者です 読者をやめる 読者になる 読者になる

個人でもGoogleAppsは便利だと気がついた

自分の持ってるドメインで mail サーバーを運用したいなーと思ったときに、VPSとか自宅サーバーよりも安定していて高機能だという事に気がついて設定した次第。

どうやって設定すればいいかは、google apps のアカウントを作れば懇切丁寧なチュートリアルがでるし、日本語の解説サイト(http://mage8.com/mymail.html)もあるので導入は超簡単。

これで、email 送りまくる web サービスも安心して作れるわー。

ということで、Email::Sender を使ってメールを送ってみる

use strict;
use warnings;
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Email::Sender::Transport::SMTP;

my $email = Email::Simple->create(
    header => [
        To      => '"Xavier Q. Ample" <x.ample@example.com>',
        From    => '"Bob Fishman" <orz@example.mil>',
        Subject => "don't forget to *enjoy the sauce*",
    ],
    body => "This message is short, but at least it's cheap.\n",
);

my $transport = Email::Sender::Transport::SMTP->new({
    host => 'smtp.gmail.com',
    port => 465,
    ssl  => 1,
    sasl_username => 'username@your.domain',
    sasl_password => 'yourpass'
});

eval { sendmail($email, { transport => $transport }); };
if ($@) { my $error = $@; warn $error->message };

mac の人は http://www.riverturn.com/blog/?p=239 を参考に postfix で relay できるはずなのだが、まだ、うまくいっていない。