Notizie 

MAIL-INC.ASP modificato per l'uso con CDOSYS

Inserito il 13 dicembre 2003 alle 15:12:00 da djveleno. IT - Tutorials
Indirizzo sito : Searchwarezz
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

Commenti

6 Commenti - 5/5 - Voti : 2
Inserito il 15 dicembre 2003 alle 15:28:08 da azzurro.  5/5
 
ottimo per chi ha aspnuke su winserver 2k3

Grande DJ :)
Inserito il 16 dicembre 2003 alle 11:29:44 da bricke.  5/5
 
Beh potevi almeno citarmi come fonte. Un grazie Bricke sarebbe bastato :P
Inserito il 16 dicembre 2003 alle 22:39:02 da djveleno.  0/5
 
Bhe, mi sembra di averlo fatto pubblicamente nel FORUM.... ma se non ti basta.... GRAZIE BRICKE!!!!!
Ciauzz DJ
Inserito il 12 novembre 2015 alle 04:43:05 da Anonimo.  0/5
 
At last, somoene who knows where to find the beef
Inserito il 14 novembre 2015 alle 17:31:11 da Anonimo.  0/5
 
Hi TomI have tried using the above code in my workbook and I am gentitg the warning messages but even if I fill in the required cells, if I try to save or exit, I am still gentitg the messages.For test purposes I have used the exact code as above. Any Suggestions?Please accept my apologies as I am very new to Excel and VBA.RegardsJason http://klbysyyg.com [url=http://dqgxtk.com]dqgxtk[/url] [link=http://xpinccc.com]xpinccc[/link]
Inserito il 15 novembre 2015 alle 00:45:04 da Anonimo.  0/5
 
Fernando, obrigado pela dica. Eu tambe9m sou <a href="http://mcgwvgl.com">grndae</a> fe3 do IntelliWebSearch. Estava mesmo pensando em escrever uma resenha sobre esse programa, mas me falta tempo para atualizar o blog. Uso muito esse programa e realmente a produtividade aumenta muito.

Aggiungi - Commenti

Login Anonimo
Messaggio
[b] [i] [u] [s] [url] [img] [cit]
Codice di sicurezza
Vota! / 5

Log in

Login
Password
Memorizza i tuoi dati:

Cerca

 

Sostieni AspNuke

Un piccolo gesto per aiutarci a mantenere AspNuke.it online

Promo

MusicWebItalia.it
Video Testi Traduzioni Spot Colonne sonore Accordi e Spartiti gratis.

Visitatori

Visitatori Correnti : 110
Membri : 0 offline Anna

Iscritti

 Utenti: 18943
Ultimo iscritto : glauco
Lista iscritti
Messaggi privati: 3373 Commenti: 2817 Immagini: 39 Downloads: 144 Articoli: 49 Pagine: 101 Siti web: 425 Notizie: 180 Sondaggi: 11 Preferiti: 1265731 Post sui forum: 51195 Libro degli ospiti: 4 Eventi: 7

Versioni

Temi