Question

我知道如何发送电子邮件...如何下载电子邮件？我一直在搜索cpan＆amp;谷歌和遇到了Mail :: POP3Client ......我无法上班。我有一个Gmail帐户，但希望能够检查其他帐户（可能会或可能不会弹出）。

#!/usr/bin/perl
use strict;
use warnings;
use Mail::POP3Client;

 use Mail::POP3Client;

 my $pop = new Mail::POP3Client( USER     => "user",
                               PASSWORD => "pass",
                               HOST     => "pop.gmail.com" );

 for (my $i = 1; $i <= $pop->Count(); $i++) {
    foreach ( $pop->Head( $i ) ) {
      /^(From|Subject):\s+/i and print $_, "\n";
    }
    print "\n";
  }

Answer 1

要检查Gmail，您需要使用SSL：

my $pop = new Mail::POP3Client( USER     => "user",
                               PASSWORD => "pass",
                               HOST     => "pop.gmail.com",
                               USESSL   => true );

注意：您需要在Gmail帐户中启用POP。您可以按照以下步骤执行此操作：

http://mail.google.com/support/bin/answer.py?answer=13273

我该如何查收电子邮件？

1 个答案: