use MIME::Lite;
use warnings;
use MIME::Base64;
use Authen::SASL;
use MIME::Lite;
use MIME::Base64;
use Authen::SASL;
use warnings;
use Net::SMTP::TLS;
use Data::Dumper;
use MIME::Lite;
$to = 'pratapchintha@gmail.com';
$cc = 'pratapchin
浏览 2提问于2015-02-05得票数 3
回答已采纳
1回答
我是Perl编程的新手。我需要关于使用MIME::Lite的基本SMTP的帮助，我已经下载了库并将其放在文件夹中。以下是我的代码
#!/usr/bin/perl
use MIME::Lite;
use Net::SMTP;
$to = 'sample@gmail.com';
$cc = 'sample@gmail.com';
$from = 'sample@gmail.com';
$pass = "my password here";
$subject = 'Test Email';
$message = &#
浏览 16提问于2017-08-09得票数 0
我创建了以下代码(从gmail向gmail发送电子邮件)：
use MIME::Lite;
use Net::SMTP::SSL;
my $smtps = Net::SMTP::SSL->new ("www.gmail.com", Port=> 465);
$msg = MIME::Lite->new(
From =>'testeotest1234@gmail.com',
To =>'xxx',
# Cc
浏览 3提问于2013-01-31得票数 0
回答已采纳
这可能是一个交叉问题，对SO和SF都有效。我使用Perl脚本发送电子邮件，如下所示：
my $SMTP_SERVER = 'xx.xx.xx.xx';
my $DEFAULT_SENDER = 'yyy@xxx.com';
my $DEFAULT_RECIPIENT = 'yyy@xxx.com';
### Create the multipart "container":
$msg = MIME::Lite->new(
From =>$DEFAULT_SENDER,
To
浏览 2提问于2010-09-15得票数 2
回答已采纳
我试图使用MIME::Lite::HTML发送带有URL响应的邮件。但这表明
无法在/usr/local/share/perl/5.18.2/MIME/Lite/HTML.pm上对未定义的值调用方法“替换”
代码是这样的
#!/usr/bin/perl
use MIME::Lite;
use MIME::Lite::HTML;
use strict;
my $mailed_html = new MIME::Lite::HTML(To => "user\@sample.com",
From => "admin\@sam
浏览 0提问于2016-08-04得票数 1
回答已采纳
MIME::Lite可以向Net::SMTP构造函数传递额外的参数。
版本MIME::Lite 3.030在其传递的Net::SMTP参数列表中不包括SSL。
在不需要修改MIME::Lite源代码的情况下，有可能修改MIME::Lite吗？
1 package MIME::Lite;
...
355 $VERSION = '3.030';
...
2843 my @_net_smtp_opts = qw( Hello LocalAddr LocalPort Timeout
2844 Port Exa
浏览 1提问于2017-08-09得票数 1
回答已采纳
2回答
我正在编写的perl脚本对utf-8的支持有问题。该脚本旨在发送html电子邮件消息。html消息以UTF-8格式保存在PostgreSQL数据库中。一切似乎都很正常，但当我收到来自脚本"�“的电子邮件时，有时还是会遇到问题。
在脚本的开头，我有：
#!/usr/bin/perl -w
use utf8;
use Encode;
use MIME::Base64;
use MIME::Lite;
my $connection = DBI->connect('dbi:Pg:dbname='.$db_name.';host='.$db_host.
浏览 0提问于2011-02-16得票数 1
我正在尝试安装MIME::Lite::TT::HTML (Perl模块)，但遇到错误。我已经安装了所有的perquisites (我是通过CPAN安装的)，但是我得到了这个错误：
default not defined in test_types! at ./Build line 57
CHUNZI/MIME-Lite-TT-HTML-0.04.tar.gz
./Build test -- NOT OK
运行reports CHUNZI/MIME-Lite-TT-HTML-0.04.tar.gz时，输出为：
Distribution: C/CH/CHUNZI/MIME-Lite-TT-HTML
浏览 2提问于2011-09-10得票数 1
我在Windows 2008服务器上使用草莓Perl (v5.16.3)。我添加了一些CPAN模块，以便在脚本中使用，但这似乎破坏了MIME:Lite (此框中的其他脚本使用)。当我运行以下代码时：
use strict;
use warnings;
use v5.16;
use MIME::Lite;
my $msg = MIME::Lite->new(From => 'person@domain.com',
To => 'person@domain.com',
浏览 9提问于2016-12-05得票数 0
回答已采纳
1回答
我只是尝试使用Perl和MIME::Lite发送一封基本的电子邮件，并收到以下错误: SMTP mail()命令失败: 5.1.7无效地址以下是我的代码：
#!perl
use MIME::Lite;
#Create Mail
$msg = MIME::Lite->new(
From =>'someone@someplace.com',
To =>'someone@someplace.com',
Cc =>'some@other.com',
Subject =>'Subject Test',
Da
浏览 0提问于2010-12-29得票数 0
回答已采纳
我正在运行Debian 9 x64，我想在perl中运行一个小脚本，它需要MIME::Lite模块。要安装它，请运行以下命令：
perl -MCPAN -e 'install MIME::Lite‘
这就是结果：
root@XutiHTPC:/home/xuti# perl -MCPAN -e 'install MIME::Lite'
Reading '/root/.cpan/Metadata'
Database was generated on Fri, 15 Jun 2018 10:41:02 GMT
Running instal
浏览 1提问于2018-06-15得票数 0
2回答
我已经使用发送到我的邮件列表没有任何问题，但最近决定使用SMTP身份验证，因为我听说这是更好的电子邮件来源验证。
我不能让它起作用。我检查并安装了模块，我了解Mime::Lite为此使用的模块。
有什么想法吗？
这是我的密码：
my $mailHost = 'mail.domain.com';
my $user = 'username';
my $pass = 'password';
my $html = 'someHTML';
my $text = 'someText';
use
浏览 0提问于2017-04-16得票数 0
回答已采纳
1回答
我试着用perl发送带有附件的邮件，我用Email::Stuff和MIME::Lite试过了，在运行时我遇到了一些错误，因为Authentication failed或服务器连接不上。有人能帮我吗？对应的代码为：
use MIME::Lite;
use Net::SMTP;
### Adjust sender, recipient and your SMTP mailhost
my $from_address = 'atme04@gmail.com';
my $to_address = 'thiyagu040@gmail.com';
my $mail_ho
浏览 1提问于2013-04-02得票数 1
回答已采纳
我正在尝试使用我的Mac上的Perl脚本发送电子邮件，我已经为Mac安装了MIME::Lite模块。我正在使用一个基本的脚本来测试：
#!/usr/bin/perl
use MIME::Lite;
$msg = MIME::Lite->new(
From =>"abc\@gmail.com",
To =>"xyz\@gmail.com",
Subject =>"Demo",
浏览 0提问于2012-08-18得票数 0
1回答
通常可以使用一些电子邮件客户端(进化，雷鸟)查看电子邮件，但对于其他客户端(例如，GMX)，消息正文仍然是空的，并且发送包含消息正文的附件。
我想知道我如何才能阻止这一切的发生，因为这条信息是要被人类阅读的，而让身体处于一种依附状态是很奇怪的。
my $ServerName = "";
my $from_address = '';
my $to_address = '';
my $subject = 'MIME Test: Text';
my $mime_type =
浏览 5提问于2015-06-17得票数 1
回答已采纳
1回答
我使用Perl与一起使用和记录向订阅邮件列表发送电子邮件：
use MIME::Lite;
use Net::SMTP;
my $host = 'mail.domain.com';
my $user = 'user@domain.com';
my $pass = 'password1234';
MIME::Lite->send('smtp', $host, AuthUser => $user, AuthPass => $pass);
my $msg = MIME::Lite->new(
From
浏览 0提问于2018-05-16得票数 2
当我尝试使用Centos中的MIME::Lite模块发送带有附件的电子邮件时。
已成功发送电子邮件，但发送日期未显示在rackspace中
下面是我的示例代码：
#!/usr/bin/perl
use MIME::Lite;
use Net::SMTP;
$to = 'xxx@yyy.net';
$cc = 'test@gmail.com';
$from = 'DailyReports@test.com';
$subject = 'Test Email';
$message = 'This is test email s
浏览 3提问于2014-05-29得票数 0
我正面临着一个小挑战，但是时间不多了，而且我不是一个真正的perl专家，所以欢迎任何帮助。我有检查所有正在运行的进程并在/tmp/error中写入状态的脚本，然后我有perl脚本通过外部stmp发送带有附件的电子邮件，但我需要的是代码穿孔，它接受/tmp/error并将其放入电子邮件正文中，这样附件就不需要了。这是我的found>，这发送的文件作为附件，但我需要在正文中。
#!/usr/bin/perl
use MIME::Lite;
# Set this variable to your smtp server name
my $ServerName = "smtp.c
浏览 0提问于2012-11-14得票数 2
回答已采纳
我正在通过MIME::Lite perl模块发送邮件。我希望我发送的邮件应该保存在我的邮件的sent items文件夹中，inbox.Please建议我一个这样做的方法。感谢脚本-
use MIME::Lite;
my $msg = MIME::Lite->new(
From => 'xyz@abc.com',
To => 'abcd@gmail.com',
Subject => 'sending mail',
Type => 'multipart/mi
浏览 0提问于2016-08-08得票数 0
3回答
我编写了一个简单的Perl脚本，使用MIME::Lite和Net::SMTP模块发送邮件。但这导致了错误，"SMTP未能连接到邮件服务器:无法立即完成非阻塞套接字操作“。
我尝试过的Perl脚本，
use strict;
use warnings;
use MIME::Lite;
use Net::SMTP;
my $from = 'agnesgrusteven@gmail.com';
my $to = 'agnesgrusteven@gmail.com';
my $host = 'smtp.gmail.com';
my $subje
浏览 3提问于2016-02-10得票数 2
回答已采纳
2回答
我是perl.I的新手。我正在尝试使用Mime：：site。我查看了他们的网站，并尝试这样发送邮件
#!/usr/bin/perl
use MIME::Lite;
$msg = MIME::Lite->new(
From =>'cassidy@hotmail.com',
To =>'ericafb77@gmail.com',
Cc =>'some@other.com, some@more.com',
Subject =>'Helloooooo,
浏览 2提问于2010-11-07得票数 1
回答已采纳
我正在尝试通过电子邮件发送Postgres查询的I列表。
我找到了MIME::Lite::TT，现在已经安装并正常工作了。我希望在每封电子邮件中以换行符分隔的列表传递20-30个in。我可以通过为我需要发送的每封电子邮件生成一个新的.txt模板来做到这一点，但这似乎效率很低。我在cpan上找到了模板，我认为@list部分是我需要的，但我不知道如何实现它。
传递$params{ips} = "1.2.3.4\n2.3.4.5\n3.4.5.6\n“也不起作用。
谢谢你的想法。
此代码成功发送单个IP：
#!/usr/bin/perl -w
use MIME::Lite::TT;
# S
浏览 0提问于2011-04-20得票数 0
回答已采纳
我正在使用CPANM在一台WIN32机器上安装模块，使用CPANM是因为这台机器不能访问互联网。
我的perl安装在C:\Perl，我的lib文件夹在C:\Perl\lib
CPANM模块和依赖关系是使用以下内容在另一台计算机上本地下载的(关于我如何下载MIME：：Lite的示例) :-
cpanm -q --scandeps MIME::Lite --save-dists c:\dist
使用以下命令在另一台计算机上安装MIME::Lite
cpanm --mirror file:///C:/dist/ -l c:/perl MIME::Lite
问题是cpanm将我的模块安装在C:\Per
浏览 2提问于2016-04-12得票数 1
我正在尝试使用MIME::Lite::TT::HTML发送电子邮件。它工作得很好，但我不知道如何在附件中使用它。
我试过这个：
$msg->attr("content-type" => "multipart/mixed");
$msg->attach(Type => $mime,
Path => $attachment,
Filename => $name, );
但它打破了这条信息。HTML和TXT部分不再被解释为同一事物，因此内容显示两次。
那么使用MIME::Lit
浏览 0提问于2011-08-22得票数 0
回答已采纳
昨天，我尝试编写一个脚本，将数据发送到一个网站，但我遇到了一个奇怪的错误，即
我用windows cmd安装了这个perl模块(没有按顺序)：
cpanm MIME::Base64
cpanm MIME::Parser
cpanm MIME::Tools
cpanm Test::XML
cpanm SOAP::Lite
cpanm SOAP::WSDL
cpan App::cpanminus
这是我的旧脚本(caching.pl)：
#!/usr/bin/perl
use MIME::Base64 ();
use SOAP::Lite ();
open( FILE, 'my.to
浏览 16提问于2022-01-22得票数 0
回答已采纳
1回答
昨天，我尝试用perl和itorrents编写一个示例脚本，我使用的是perl。基本上，这个脚本将数据发送给服务器(itorrents) --这里是api的链接:itorrents.org/自动化--我复制并粘贴了网站提供给我的代码，但它不起作用！我用windows cmd安装了这个perl模块：
cpan App:cpanminus
cpanm MIME::Base64
cpanm MIME::Parser
cpanm MIME::Tools
cpanm Test::XML
cpanm SOAP::Lite
cpanm SOAP::WSDL
这是我的脚本(caching.pl)：
#!/us
浏览 3提问于2022-01-20得票数 1
回答已采纳
我在我的Windows7框上运行ActiveState的ActivePerl。我刚刚使用PPM ()安装了MIME::Lite模块。安装进行得很顺利。
但是，当我试图运行一个非常简单的脚本时
use strict;
use MIME::Lite;
my $msg = MIME::Lite->new(
From => 'myname@host.com',
To => 'myname@host.com',
Subject => "Mail Test",
浏览 1提问于2010-09-09得票数 0
回答已采纳
我使用Mime::Lite创建和发送电子邮件。现在，我需要添加对S/mime加密的支持，并最终可以加密我的电子邮件(我可以安装的唯一Perllib似乎损坏了，所以我使用了一个系统调用和openssl )，但是当我尝试用它创建一个mime对象时，一旦我将内容传输编码设置为base64，create就会中断。更令人好奇的是，只有当我通过$myMessage->attr设置它时，它才会发生。如果我使用构造函数->new，那么除了使用MIME::Lite->quiet(1);抑制的小警告之外，一切都很好。
是窃听器还是我的错？下面是创建mime对象的两种方法。
通过构造器设置内容传输
浏览 5提问于2012-03-15得票数 0
回答已采纳
我正在尝试使用MIME::Lite发送电子邮件，但电子邮件不会发送，并且我没有收到任何错误。代码：
my $subject = $Config->{email}->{subject};
my $from_email = $Config->{email}->{from_email};
my $message = $Config->{email}->{message};
my $smtp_server = $Config->{email}->{smtp_server};
my $msg = MIME::Lite
浏览 1提问于2010-12-10得票数 0
我正在尝试发送一个超文本标记语言的电子邮件使用MIME:Lite，我想通过它发送一个超链接。当我发送没有超链接的邮件时，它会发送到Inbox，但如果有超链接，它会进入Junk。这是我的代码。
#!/grid/common/pkgs/perl/latest/bin/perl
use MIME::Lite;
$to = 'gpreeti@xyz.com';
$cc = 'mohitsha@xyz.com';
$from = 'gpreeti@xyz.com';
$subject = 'Test Email';
my $message
浏览 0提问于2016-12-20得票数 0
我有一个散列数组，正在Mime::Lite的Mime::Lite函数中取消引用。守则如下：
for my $href (@$aref){
$msg->attach(
Type => 'text',
Data => "productype: $href->{prodtype} product: $href->{product} qbs_id:$href->{qbs_id}\n";
);
}
它表示上述示例中的语法错误。请告诉我，如果这是一个
浏览 1提问于2013-08-06得票数 0
回答已采纳
我正在尝试发送一封html电子邮件(报告)有关哈希中的值。但我无法以表格格式打印散列值。我使用执行我的perl命令(循环遍历散列)，并在报告末尾打印它。但是我的perl代码没有被执行。
use HTML::Entities;
use Mail::Sendmail;
use MIME::Lite;
use Term::ANSIColor;
use Time::localtime;
use HTML::Mason;
my $ti = localtime;
my ( $day, $month, $year ) = ( $ti->mday, $ti->fullmonth, $ti->
浏览 4提问于2014-09-19得票数 0
回答已采纳
我无法使用MIME::Lite发送邮件。当从我的桌面发送时，它将通过以下错误。错误："SMTP无法连接到邮件服务器:文件描述符错误“
我正在使用下面提到的代码。
use strict;
use MIME::Lite;
use Net::SMTP;
my $from_address = "no-reply@host.com";
my $to_address = "madhan@host.com";
my $cc_address = "madhan@host.com";
my $subject = "Test mail";
浏览 1提问于2012-04-10得票数 1
我使用MIME::Lite从我的Perl脚本发送电子邮件。我在标题中使用了严格；因为这是我们所有脚本中的标准用法。
my $msg = MIME::Lite->new(
From => $from,
To => $to_str,
Cc => $cc_str,
Reply-To => $replyto,
Subject => $tf_subject,
Type => &#
浏览 3提问于2020-12-14得票数 1
回答已采纳
500附加文件时发生内部服务器错误，但在不带附件的情况下发送时不会出现此错误。
use MIME::Lite;
$msg = MIME::Lite->new(
From =>'email@domain.com',
To =>'email@domain2.com',
Subject =>'A message with 2 parts...',
CC => '',
Type =>'TEXT',
浏览 1提问于2013-05-04得票数 0
我有一个wcf服务设置为接受基本的http绑定。我想从perl soap lite向我的wcf服务发送一个excel文件。发送此文件的最简单方法是什么？我正在研究mtom/mime，但它们看起来很复杂，我不知道soap lite是否使用了mtom/mime。我还在考虑先使用base64字符串对文件进行编码，然后再发送它。如果我使用base64编码，我应该指定什么数据类型作为操作契约参数？
浏览 9提问于2011-11-23得票数 1
回答已采纳
2回答
VERP和perl后缀不起作用
、、、、
所以我有一个脚本，我正在尝试让VERP在上面正确运行。它使用MIME::Lite和postfix作为邮件服务器。代码如下：
use strict;
use MIME::Lite;
use LWP::Simple;
use Mail::Verp;
my $email = 'someuser@somesite.com';
Mail::Verp->separator('+');
my $verp_email = Mail::Verp->encode('root@somesite.net', $email);
my $content = &
浏览 3提问于2012-07-12得票数 0
我试图使用MIME::Lite::TT::HTML发送邮件。
这是我的perl脚本。
#!/usr/bin/perl
use cPanelUserConfig;
use strict;
use warnings;
use MIME::Lite::TT::HTML;
my %params;
$params{first_name} = 'Frank';
$params{last_name} = 'Wiles';
$params{amt_due} = '24.99';
my %options;
$options{INC
浏览 2提问于2015-09-30得票数 0
回答已采纳
回到2004年，我用MIME::Lite编写了一个Perl电子邮件程序，从那时起就一直在工作。直到现在，客户端才试图与它一起发送HTML。下面的代码(裁剪到重要部分)正确地设置所有值。HTML主体以text/html的形式附加。在附件之前，数据显然没有CR (CRLF，或LF)。但是在附加之后，HTML确实有一个嵌入的CR。这似乎是在1000个字符之后添加的。
不幸的是，它降落在标记的中间，从而破坏了在收件人电子邮件中呈现为标记的标记，而不是完全以格式化文本的形式呈现：<BR>显示为< BR>。而且它并没有打破特定的标签。我可以改变标签，它总是在相同的字符位置附近断裂。
浏览 3提问于2015-05-08得票数 2
回答已采纳
use warnings;
use MIME::Lite;
use Net::SMTP;
### Adjust sender, recipient and your SMTP mailhost
my $from_address = 'doni@home.com';
my $to_address = 'doni@home.com';
my $mail_host = 'smtp.office365.com';
### Adjust subject and body message
my $subject = 'A message with
浏览 4提问于2017-10-16得票数 1
回答已采纳
1回答
我不知道这个错误是不是特定于MIME::lite，但我在尝试将smtp电子邮件与MIME一起使用时得到了它。
No SASL mechanism found
at C:/Perl/site/lib/Authen/SASL.pm line 77
at C:/Perl/lib/Net/SMTP.pm line 143
这个错误是什么意思？
浏览 2提问于2010-07-21得票数 3
回答已采纳
my @test = ("Row1", "Row2", "Row3");
my $attch = join("<cr><lf><br>\\n", @test);
$message = MIME::Lite->new(
From => $mailFrom ,
To => $address,
Subject => $title,
Type => 'text/html',
Encodi
浏览 5提问于2015-10-07得票数 0
回答已采纳
我在Perl中有以下代码：
foreach my $result ( @results ) {
if ( $result->{Error} ) {
print"No response received \n";}
else {
my $H = "$result->{H}";
my $I = "$result->{I}";
$mailbody.=qq(<h4 style="background: blue; color: white
浏览 3提问于2017-11-09得票数 0
回答已采纳
我需要通过perl脚本发送一封邮件：
use MIME::Lite;
GetOptions(
'mail|m:s' =>\$recipients
)
my @recipients = split(/,/, $recipients);
sub sendmail {
chomp @recipients;
$to = "@recipients";
$from = 'xyz@gmail.com';
$subject = 'Output';
$msg = MIME::Lite-&g
浏览 2提问于2017-11-02得票数 0
回答已采纳
有关原始问题，请参见。
如何在提供的before中将参数附加到@_中
before 'MIME::Lite::__opts' => sub {
# grep { s/^Hello$/SSL/ } @_; # OK - changes $_[1]
push(@_,'SSL'); # no effect
};
浏览 3提问于2017-08-09得票数 1
回答已采纳
2回答
我正在尝试用Perl发送我的第一封电子邮件(从windows机器)，但是我收到了一个错误：
SMTP Failed to connect to mail server: at emailer2.pl line 18 (msg->send;)
我对Perl完全陌生，因此任何帮助都将不胜感激。以前有人遇到过这个问题吗？我已经寻找了错误，但我没有找到我的确切问题。
非常感谢你的帮助！
代码：
#!/usr/bin/perl
use MIME::Lite;
$to = 'myemail@gmail.com';
$cc = 'myemail@gmail.com';
浏览 6提问于2014-11-21得票数 0
回答已采纳
我用Perl编写了以下代码来发送电子邮件：
#!/usr/bin/perl
use MIME::Lite;
$to = 'toid@domain.com';
$cc = 'ccid@domain.com';
$from = 'fromid@domain.com';
$subject = 'Test Email';
$message = 'This is test email sent by Perl Script';
$msg = MIME::Lite->new(
From
浏览 1提问于2014-12-24得票数 3
1回答
为什么我的.txt附件是空的？
、、、、
我已经使用很短一段时间了，直到现在还没有遇到任何问题。
我正在尝试附加一个.txt文件，但该文件(在发送之后)中没有任何内容。
我知道这个文件中有一些东西，因为我在同一个脚本中创建了.txt文件。我知道文件在哪里，并且可以看到它的内容，但是当我告诉MIME::Lite附加.txt文件时，电子邮件只有文件名，而且只有64个字节。
下面是我的脚本的MIME::Lite部分的代码：
$msg = new MIME::Lite(From => $from,To => $to,Subject => $subject,Data => "Data",Type =>
浏览 4提问于2011-02-12得票数 1
回答已采纳
1回答
到目前为止，这是我的代码：
#!/usr/bin/perl
use strict;
use warnings;
use MIME::Lite;
my $to = 'example@asd.com';
my $from = 'example@asd.com';
my $subject = 'Test Email';
my $message = 'This is test email sent by Perl Script';
my $msg = MIME::Lite->new(
From
浏览 1提问于2015-07-07得票数 0
回答已采纳
我正在做一个项目，在那里我需要访问CSV文件，从一个网络URL。我能够访问该文件并在终端中打印CSV文件中的内容，但我无法生成HTML表(然后我将使用MIME发送电子邮件)。
这是我的代码-我需要完整的CSV文件作为HTML表交付给我的电子邮件。
#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
use POSIX qw(strftime);
use MIME::Lite;
use Getopt::Long;
my $to="pankajdustbin\@gmail.com";
my $from="
浏览 10提问于2022-06-22得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
