Díky za kod,
mám problém tento script odchází, ale když odremuji objEmail.AddAttachment
hlásí mi chybu "Objekt tuto vlatnost nebo metodu nepodporuje:
'objEmail.AddAttachment'
Nějaká idea proč?
Díky
Pavel
Set objArgs = WScript.Arguments
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "[email protected]"
objEmail.To = "[email protected]"(viz )
objEmail.Subject = "Subj"
objEmail.Textbody = "Teyt"
rem objEmail.AddAttachment = "C:\Aarcelona.txt"
with objEmail.Configuration.Fields
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing";) = 2 ' not
local, smtp
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver";) =
"out.smtp.cz"
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport";) = 25
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate";) = 1
.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername";) =
"[email protected]"
.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword";) =
"pass**"
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl";) = False
.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout";)
= 25
.Update
end with
objEmail.Send
--
<https://forum.pspad.com/read.php?1,67339,77772>
PSPad freeware editor https://www.pspad.com
