请用perl给任意邮箱发送一封邮件
时间: 2024-04-10 22:27:41 浏览: 22
以下是使用Perl发送邮件的示例代码:
```perl
use strict;
use warnings;
use Email::Sender::Simple qw(sendmail);
use Email::Simple;
use Email::Simple::Creator;
use Email::Sender::Transport::SMTP;
sub send_email {
my ($sender_email, $sender_password, $receiver_email, $subject, $message) = @_;
# 创建邮件对象
my $email = Email::Simple->create(
header => [
To => $receiver_email,
From => $sender_email,
Subject => $subject,
],
body => $message,
);
# 配置SMTP传输
my $transport = Email::Sender::Transport::SMTP->new({
host => 'smtp.gmail.com',
port => 587,
ssl => 'starttls',
sasl_username => $sender_email,
sasl_password => $sender_password,
});
# 发送邮件
sendmail($email, { transport => $transport });
}
# 设置发件人邮箱和密码
my $sender_email = 'your_sender_email@gmail.com';
my $sender_password = 'your_sender_password';
# 设置收件人邮箱、邮件标题和内容
my $receiver_email = 'receiver_email@gmail.com';
my $subject = 'Perl邮件测试';
my $message = '这是一封使用Perl发送的测试邮件。';
# 发送邮件
send_email($sender_email, $sender_password, $receiver_email, $subject, $message);
```
请注意,这段代码使用了Gmail SMTP服务器作为示例,如果你使用其他邮箱提供商,请根据相应的SMTP服务器信息进行修改。同时,请确保允许低安全性应用程序访问你的发件人邮箱,以便成功发送邮件。
相关推荐
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![-](https://csdnimg.cn/download_wenku/file_type_column_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)