電子メールの添付ファイルを送信

私は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上で実行されます。これらは「Untitled Attachment 00212.dat（55B）」という電子メールの添付ファイルです。 –

電子メールの添付ファイルを送信

答えて

関連する問題