🚀 go-pugleaf

Soovin saata maili, skript iseenesest töötab korralikult ainult et
mitte mul kodus, kus teenusepakkujaks Kernel. Nende support teatab, et
SMTP serveri audentimine pole vajalik.
Juhul, kui üritada kirjasaatmist, siis jääb asi pidama real
"objEmail.Send"

Set objEmail = CreateObject("CDO.Message")
Set objConf = objEmail.Configuration
Set objFlds = objConf.Fields
'---------------------------------------------------------------------
' SMTP server details
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") =
"mail.kodu.ee"
.Item("http://schemas.microsoft.com/cdo/configuration/
smtpauthenticate") = 0
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")
= "25"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") =
False
.Item("http://schemas.microsoft.com/cdo/configuration/
smtpconnectiontimeout") = 60
.Update

'---------------------------------------------------------------------
End With
objEmail.To = strMailTo

objEmail.From = "saatja@mail.ee"
objEmail.Subject = "Kirjake"
objEmail.TextBody = "Vt. Manust"
objEmail.AddAttachment  "c:\file.pdf"

objEmail.Send

Set objFlds = Nothing
Set objConf = Nothing
Set objEmail = Nothing