Visual skripti abil maili saatmine

[and...@auc.ee]

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 = "saa...@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

[Virgo Pärna]

and...@auc.ee wrote:
> Juhul, kui üritada kirjasaatmist, siis jääb asi pidama real
> "objEmail.Send"
>

Ja mingit veateadet ei tule vastu saatmisel? Kas ei või olla, et mingi
tulemüür või antiviirus väljuva ühenduse smtp porti blokeerib?

--
Virgo Pärna
virgo...@mail.ee