尝试创建将从列表中获取信息的代码将其放入表中并创建将包含此表的邮件。 表必须改变每一行,但是当我开始让我们只说两行时,它会创建两个具有相同信息的邮件。 Sub Test()
Dim OutApp As Object, OutMail As Object
Dim rng As Range
Dim strbody As String
Dim StartR
use warnings;
use MIME::Lite;
use Net::SMTP;
### Adjust sender, recipient and your SMTP mailhost
my $from_address = '[email protected]';
my $to_address = '[email protected]';
my $mail_host = 's