谁有SmtpMailer.au3[已解决]-已解决问题区-AUTOIT CN

无名蜘蛛 发表于 2010-9-25 08:57:17

谁有SmtpMailer.au3[已解决]

本帖最后由无名蜘蛛于 2010-9-28 05:52 编辑

我找不到SmtpMailer.au3
那位大虾上传一个谢谢!!!

lixiaolong 发表于 2010-9-25 11:49:34

SmtpMailer.au3;~ Smtp Mailer

;http://www.autoitscript.com/forum/index.php?showtopic=23860&st=0
#Include<file.au3>
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
;##################################
; Include
;##################################
#Include<file.au3>
;##################################
; Variables
;##################################
$s_SmtpServer = "smtp.gmail.com" ; smtp服务器 address for the smtp-server to use - REQUIRED
$s_FromName = "www.yidabu.com"    ; 邮件发送人 name from who the email was sent
$s_FromAddress = "your@gmail.com" ; 邮件发送者地址address from where the mail should come
$s_ToAddress = "your@gmail.com"    ; 邮件发送给谁 destination address of the email - REQUIRED
$s_Subject = "bbs.yidabu.com"       ;邮件标题 subject from the email - can be anything you want it to be
$as_Body = "autoit论坛" & @CRLF & _
"http://bbs.yidabu.com/forum-2-1.html" ; 邮件正文the messagebody from the mail - can be left blank but then you get a blank mail
$s_AttachFiles = ""                            ; 附件地址 the file you want to attach- leave blank if not needed
$s_CcAddress = ""    ; address for cc - leave blank if not needed
$s_BccAddress = ""    ; address for bcc - leave blank if not needed
$s_Username = "yidabu"                      ;用户名 username for the account used from where the mail gets sent - REQUIRED
$s_Password = "www.yidabu.com"          ; 密码password for the account used from where the mail gets sent - REQUIRED
$IPPort = 25                                  ; 发送端口 port used for sending the mail
$ssl = 0                                        ; 安全连接 enables/disables secure socket layer sending - put to 1 if using httpS
;~ $IPPort=465                                  ; yidabu.com提示：Gmail使用的发送端口
;~ $ssl=1                                        ; yidabu.com提示：Gmail要启用安全连接

;##################################
; Script
;##################################
Global $oMyRet
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
;~ $rc = _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject, $as_Body, $s_AttachFiles, $s_CcAddress, $s_BccAddress, $s_Username, $s_Password, $IPPort, $ssl)
;~ If @error Then
;~    MsgBox(0, "Error sending message", "Error code:" & @error & " Description:" & $rc)
;~ EndIf
;

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "",$IPPort=25, $ssl=0)
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Bcc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
      $objEmail.HTMLBody = $as_Body
Else
      $objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
      Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
      For $x = 1 To $S_Files2Attach
         $S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
         If FileExists($S_Files2Attach[$x]) Then
               $objEmail.AddAttachment ($S_Files2Attach[$x])
         Else
               $i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
               SetError(1)
               return 0
         EndIf
      Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = $IPPort
;Authenticated SMTP
If $s_Username <> "" Then
      $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
      $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
      $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
If $Ssl Then
      $objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
if @error then
      SetError(2)
      return $oMyRet
EndIf
EndFunc ;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number, 8)
$oMyRet = $HexNumber
$oMyRet = StringStripWS($oMyError.description,3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc ;==>MyErrFunc

无名蜘蛛 发表于 2010-9-25 12:07:52

谢谢

还是喜欢ACN，毕竟E文咱不熟。。。。。。

无名蜘蛛 发表于 2010-9-25 13:38:08

不知道为什么，改了半天都发不出去，用软件是可以的，所以smtp是开放的.

menfan1 发表于 2010-9-25 14:27:30

官网上有。。

ayumi502 发表于 2012-4-26 12:47:59

谢谢分享下来试试

shuaiw 发表于 2013-3-25 17:39:57

使用上面的代码发不出去啊，报错。

shuaiw 发表于 2013-3-25 17:40:17

使用上面的代码发不出去啊，报错。

lijianlin1983 发表于 2014-8-26 10:55:40

是不太好用

redapple2008 发表于 2018-8-6 13:57:03

### COM Error ! Number: 80020009 ScriptLine: 87 Description:与服务器的传输连接失败。

页: [1]

AUTOIT CN's Archiver

谁有SmtpMailer.au3[已解决]