Di seguito, ho inserito il file mail-inc.asp, lo trovate nella cartella INCLUDES, modificato per l'uso di CDOSYS.
' Send mail with CDOSYS
' IN : sSender (string) : sender of the mail
' : sRecipient (string) : recipient of the mail (can use ; to send to many recipients)
' : sSubject (string) : subject of the mail
' : sText (string) : content of the mail
' : bHTML (boolean) : send HTML or text mail
' OUT : (boolean) : True
' Send mail with CDOSYS
' IN : sSender (string) : sender of the mail
' : sRecipient (string) : recipient of the mail (can use ; to send to many recipients)
' : sSubject (string) : subject of the mail
' : sText (string) : content of the mail
' : bHTML (boolean) : send HTML or text mail
' OUT : (boolean) : True
Function SendMail(ByVal sSender, ByVal sRecipient, ByVal sSubject, ByVal sText, ByVal bHTML)
Dim oMail, bOk

bOk = False

On Error Resume Next
Set oMail = Server.CreateObject("CDO.Message")
If Err.number <> 0 Then
Else
oMail.From = sSender
oMail.To = sRecipient
oMail.Subject = sSubject

If bHTML Then
oMail.HtmlBody = "" & vbCRLF & Text2HTML(sText) & vbCRLF & " "
Else
oMail.TextBody = sText
End If
oMail.Fields("urn:schemas:httpmail:importance").Value = 2
oMail.Fields.Update()
oMail.Send
bOk = True
End If
On Error GoTo 0

SendMail = bOk
Set oMail = Nothing
End Function

Dovete solo copiare e incollare su di un nuovo documento in NOTEPAD e salvare come mail-inc.asp

3 Commenti - 5/5 - Voti : 2

Inserito il 15 dicembre 2003 alle 15:28:08 da azzurro.     ottimo per chi ha aspnuke su winserver 2k3 Grande DJ

Inserito il 16 dicembre 2003 alle 11:29:44 da bricke.     Beh potevi almeno citarmi come fonte. Un grazie Bricke sarebbe bastato :P

Inserito il 16 dicembre 2003 alle 22:39:02 da djveleno.     Bhe, mi sembra di averlo fatto pubblicamente nel FORUM.... ma se non ti basta.... GRAZIE BRICKE!!!!! Ciauzz DJ

Login	Anonimo
Messaggio	[b] [i] [u] [s] [url] [img] [cit]
Codice di sicurezza
Vota!	- 1 2 3 4 5 / 5