当我们使用" mail ::Sendmail“模块发送邮件时，如何在邮件中设置”返回路径“？

Question

当我们使用" mail ::Sendmail“模块发送邮件时，如何在邮件中设置”返回路径“？

我想从我自己的服务器上发送一封电子邮件，地址为email_id@gmail.com到sender_to@gmail.com。例如，应该是www.example.com

我想将该邮件的Return-path添加为example@example.com。我试过很多次，但都没能正确地设置好。

守则如下：

#!/usr/bin/perl -w
use CGI;
use Mail::Sendmail;

%mail = (
    To => $email,
    From=>  $user_email,
    subject=> $subject,
    'X-Mailer'=> "example.com Campaign Sharing Software",
);
$default_email                  = qq{example@example.com};
$mail{'Reply-To'}               = $user_email;
$mail{'content-type'}           = "text/html"; 
$mail{Smtp}                     = $GLOB{settings}{SMTPSERVER_BULK};
$mail{'Message : '}             = $mail_content;
if(sendmail  %mail)
{
       print qq{mail sent successfully};
}

我设定了$mail{'Return-Path'} = $default_email;。但是，我在gmail中单击Return-Path : from_email_id.显示原始时找到的返回路径是。

实际上，我想要它成为Return-Path : $default_email.

Answer 1

邮件：：发送邮件设置信封发件人

来自邮件文档：：Sendmail

如果希望使用与From: address不同的信封发件人地址，请在$mail{Sender}散列中设置%mail。

大多数邮件服务器(MTA)将信封发件人复制到Return-Path:头。