發送電子郵件附件

我是vbs腳本的新手，但在此代碼中，我無法獲取要發送的附件。它發出的電子郵件，但沒有附件誰能幫發送電子郵件附件

DIM fso 
Set fso=CreateObject("Scripting.FilesystemObject") 
On Error Resume Next 
fso.CopyFile "C:\ASoft32\*.*", "E:\ASoft32\" 
'Wscript.Echo "File copy complete." 
strSMTPFrom = "[email protected]" 
strSMTPTo = "[email protected]" 
strSMTPRelay = "smtp.live.com" 
strTextBody = "Backup done vbs" 
strSubject = "VBS ALERT" 
strAddAttachment "(C:\ASoft32\Hamer.ftm)" 
Set oMessage = CreateObject("CDO.Message") 
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPRelay 
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
oMessage.Configuration.Fields.Update 
oMessage.Subject = strSubject 
oMessage.From = strSMTPFrom 
oMessage.To = strSMTPTo 
oMessage.TextBody = strTextBody 
oMessage.AddAttachment strADDAttachment 
oMessage.Send 
'Wscript.Echo "Email sent." 
Const TIMEOUT = 2 
Set objShell = WScript.CreateObject("WScript.Shell") 
objShell.Popup "Email sent" , TIMEOUT

來源

2017-03-23 I_malc

在你的代碼strAddAttachment "(C:\ASoft32\Hamer.ftm)"將無法正常工作。

嘗試：

strAddAttachment = "C:\ASoft32\Hamer.ftm"

假設文件在此位置存在，應該工作。

來源

2017-03-24 10:00:59 Dave

我試過了，但沒有成功，但如果我將SMTP.live.com更改爲我的處女SMTP服務器，則電子郵件會通過一個空的附件。 –

我試過了，沒有成功，但如果我將SMTP.live.com更改爲我的處女SMTP服務器，則電子郵件會通過一個空的附件。該腳本將在Outlook中沒有帳戶的PC上運行，這是它發送的電子郵件附件「無標題附件00212.dat（55B） –

發送電子郵件附件

回答

相關問題