convertire mail per windows 2003

[ukero]

Ciao , a tutti chi è in grado di convertire questo codice per mandare email tramite il CDOSYS su windows 2003 server ?
io uso xp.

if request.form("oggetto")<>"" AND request.form("priorita")<>"" AND 
request.Form("testo")<>"" then

dim oggetto
dim priorita
dim testo
dim rs
dim ObjMail
dim danome
dim damail
dim dachi
dim title_site
oggetto = Request.Form("oggetto")
priorita=request.form("priorita")
testo = Request.Form("testo")
Set rs=Server.CreateObject("ADODB.recordset")
dim stmsql
stmsql="Select nick,email FROM newsletter"
rs.Open stmsql,Conn
do while not rs.EOF
Set objMail = Server.CreateObject("CDONTS.NewMail")
'danome="" &   & ""
danome="" & Session("title_site") & ""
damail="<" & Session("email") & ">"		
dachi=chr(34) & danome & chr(34) & damail
objMail.From=dachi
objMail.Body=testo
objMail.To=chr(34) & rs("nick") & chr(34) &"<"& rs("email")&">"
objMail.Subject=oggetto
objmail.importance=priorita
objMail.Send
set objMail = nothing
rs.MoveNext
loop
rs.close
Set rs = nothing
End If

grazie 1000.

[Roby_72]

Cerca nel forum.

Roby

[ukero]

Originariamente inviato da Roby_72
Cerca nel forum.

Roby

ho già cercato nel forum
mà non so dove mettere il codice per CDOSYS , c'è anche la configurazione smtp, la porta etc,
e non so nulla di porte per l'smtp etc.

mi protesti aiutare?
grazie.

[ukero]

Originariamente inviato da Roby_72
Cerca nel forum.

Roby

up.