老大们～有谁用过外部脚本调用API发邮件的？帮忙看看应该怎么写的啊？

我这 邮件发送服务器为：SMTP 邮件接收服务器为：POP3
但是运行下来好像收不到邮件～～是什么原因啊？


use CQPerlExt;

$mailmsg=CQMailMsg::Build();
@a=qw(SMTP 邮件服务器地址 邮件地址 用户名 1);
$aa=$mailmsg->SetMailNotificationSettings(\@a);
print $aa;
$mailmsg->AddTo("收件人地址");
$mailmsg->SetSubject("haha");
$mailmsg->SetBody("for_test");
$mailmsg->Deliver();

CQMailMsg::Unbuild($mailmsg);

my $mailmsg = CQMailMsg::Build();
$mailmsg->AddTo($msg_to);
# You must log in to a database session if GetUserEmail is used.
$msg_cc = "。。。.com";
$mailmsg->AddCc($msg_cc);
$msg_subject = $entity->GetFieldValue("Headline")->GetValue();
use Encode;
$msg_subject = encode("gb2312",$msg_subject);
$mailmsg->SetSubject($msg_subject);
$mailmsg->SetBody($msg_subject);
$mailmsg->Deliver();
CQMailMsg::Unbuild($mailmsg);

我记得当时好像没有在代码里设置邮件服务器就可发送了
在CQ配置邮件服务器好像就可以了。

[ 本帖最后由 scmtata 于 2007-12-25 18:16 编辑 ]

说的不错
只要在客户端开启电子邮件通知即可
然后再写hook的时候 直接指定收件人的地址 就OK了

恩？
那 SetMailNotificationSettings 方法是用来做什么的啊？

我想不在HOOK里设置，直接用外部脚本来看看是不是可以直接发送邮件的～
大家帮忙想想啊～
外部脚本怎么用API配邮件服务器啊？

Perl的话倒是可以实现自动发邮件的～

use Net::SMTP;
my $smtp = new Net::SMTP '邮件服务器';
$smtp -> mail('发送邮件地址');
$smtp -> to('接收邮件地址');
$smtp -> data();
$smtp -> datasend("From: 发件人\n");
$smtp -> datasend("To: 收件人\n");
$smtp -> datasend("Subject: 标题\n");
$smtp -> datasend("\n");
$a="发送内容";
$smtp -> datasend($a);
$smtp ->dataend();
$smtp ->quit;

我觉得有点奇怪
如果你只想发邮件可以有N个办法，也可以不用借助CQ的邮件系统来发送；
比如可以作用blat来的发送。

这不正好看到了～
想试验一下啊～

HOOK里我试过了～倒是可以的～
就是用外部脚本调用不行啊～
找不到原因，心里痒痒的啊～

没做过，关注中。。。

use CQPerlExt;
你用这句话就可以使用OleMailMsg Object的方法来发邮件了。

有个疑问，这些方法里面没有perl的example！faint，我找到了，This object does not support Perl.

[ 本帖最后由 劳动者 于 2007-12-26 11:15 编辑 ]

没有用Perl发过mail，不过可以去尝试下。
我觉得楼主的mail settings这句有点问题，参照下面的几句。
use CQPerlExt;
my $cqmail = CQMailMsg::Build();
my @SMTPemailsettings = ('SMTP','yourmailserver','youremailaddress','name', '1');
my $setmail_success = $cqmail->SetMailNotificationSettings(\@SMTPemailsettings);

不过我个人认为使用这个是可以发mail的。
至于客户端中的Enable Email Notification，我想应该是针对邮件规则的。
使用脚本发生邮件应该与此设置没啥关系的。