🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

2 total messages Started by andrus Mon, 16 Feb 2009 21:19
Visual skripti abil maili saatmine
#238
Author: andrus
Date: Mon, 16 Feb 2009 21:19
38 lines
2516 bytes
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
Re: Visual skripti abil maili saatmine
#239
Author: Virgo Pärna
Date: Thu, 19 Feb 2009 20:04
11 lines
1382 bytes
andrus@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.parna@mail.ee
Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads