本帖最后由 502762378 于 2011-4-24 13:25 编辑
给一个人发已经测试成功
下面是代码#include <INet.au3>
$s_SmtpServer = "whex101"
$s_FromName = "502762378"
$s_FromAddress = "502762378@qq.com"
$s_ToAddress = "502762378@qq.com"
$s_Subject = "My Test UDF"
Dim $as_Body[2]
$as_Body[0] = "Testing the new email udf"
$as_Body[1] = "Second Line"
$Response = _INetSmtpMail ($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body)
$err = @error
If $Response = 1 Then
MsgBox(0, "Success!", "Mail sent")
Else
MsgBox(0, "Error!", "Mail failed with error code " & $err)
EndIf
现在我想达到的目的是$s_ToAddress 为多个联系人,看了下INet.au3,还是不知道怎么搞,求解
其实还有个问题的,如何highlight出一些邮件内容的颜色、字体,用的是outlook |