30、邮件发送的多种方式及常见错误处理

邮件发送的多种方式及常见错误处理

在系统管理中，邮件是一种常用的通知方式。本文将介绍几种不同的邮件发送方法，以及在编写邮件发送程序时常见的错误和避免方法。

1. 使用OLE调用MAPI发送邮件

以下是一段使用OLE调用MAPI发送邮件的代码示例：

$session->Logon('Microsoft Outlook Internet Settings');
die Win32::OLE->LastError(),"\n" if Win32::OLE->LastError(  );
# create a message object
my $message = $session->Outbox->Messages->Add;
die Win32::OLE->LastError(),"\n" if Win32::OLE->LastError(  );
# create a recipient object for that message object
my $recipient = $message->Recipients->Add;
die Win32::OLE->LastError(),"\n" if Win32::OLE->LastError(  );
# populate the recipient object
$recipient->{Name} = $to;
$recipient->{Type} = 1; # 1 = "To:", 2 = "Cc:", 3 = "Bcc:"
# all addresses have to be