Dim Mail Set Mail = Server.CreateObject("Persits.MailSender") Mail.Host = "smtp.mediacom.it" Mail.From = sSender Mail.FromName = "" Mail.AddAddress = sRecipient Mail.Subject = sSubject
If bHTML Then Mail.Body = "<html><body>" & vbCRLF & Text2HTML(sText) & vbCRLF & "</body></html>" Else Mail.Body = sText End If
On Error Resume Next Mail.Send
If Err <> 0 Then Response.Write "Error encountered:" & Err.Description Else Response.Write "E-Mail inviata Correttamente" End If SendMail = True
End Function
Il mediacom mi è stato indicato dal mio provider di servizi ISP. Ho messo una piccola condizione per dirmi se la mail è stata spedita o ce qualche errore. Cmq. Non ricevo mail anche con questo componente. Ma mi chiedo Voi ricevete email da ASPNuke? io mai ricevuta 1.
Ki sa dirmi se ho: 1- prima di tutto se ho modificato il file giusto 2- se è stato modificato in maniera corretta e se funzionerebbe con ASPNuke.
09 gennaio 2003 alle 10:36:13 Modificato il 09 gennaio 2003 alle 11:00:40CDONTS, persisti? Prova con CDOSYS:
Function SendMail(ByVal sSender, ByVal sRecipient, ByVal sSubject, ByVal sText, ByVal bHTML) Dim oMail Dim oConfig
On error resume next 'CDOSYS Set oMail = Server.CreateObject("CDO.Message") Set oConfig = Server.CreateObject("CDO.Configuration") 'Configuration: oConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 oConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xxxxxxxx" 'il tuo smtp oConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 oConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 oConfig.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "fffff" 'il tuo utente oConfig.fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "dddd" 'la tua password oConfig.fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30 'Update configuration oConfig.Fields.Update Set oMail.Configuration = oConfig 'message body If bHTML Then oMail.TextBody = "<html><body>" & vbCRLF & Text2HTML(sText) & vbCRLF & "</body></html>" Else oMail.TextBody = sText End If 'FINE CDOSYS
SendMail = True End Function --------------- development@aspnuke.it
Pantera Utente
95 Discussioni
15 gennaio 2003 alle 09:37:20 YESSS!! Funziona perfettamente!!! Grazie Emu!
--------------- http://www.sartoridesign.it
Tried to hold me down, You can't stop me now!I paid my dues!
karoberto Amatore
44 Discussioni
01 maggio 2003 alle 16:55:02 confermo anch'io, funzionaaaa.... finalmente sono riuscito a ricevere un'e-mail spedita dal sito con asp-nuke. --------------- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ It's so simple to be Happy, but so difficult to be simple.
artax76 Utente
88 Discussioni
06 giugno 2003 alle 18:29:36 Ciao....sono su brinkster.....ho modificato il news-inc...ma nn funziona !! nn mi arriva nessuna email.....!!
06 giugno 2003 alle 21:03:38 Come non ricevi nessuna mail? Non avevi gia' 4 o 5 siti su Brinkster? E' il mail-inc.asp da modificare (o il go_newsletter.asp per le newsletter), non lo avevi gia' fatto? Ciao
--------------- development@aspnuke.it
artax76 Utente
88 Discussioni
06 giugno 2003 alle 21:24:11 si ho 4 siti ma nn ho mai usato l'invio delle MAIL..
ora mi pongo il problema in quanto mi si iscrive la gente con nomi tipo "cazzo" ecc e allora ho modificato il file configuration-inc e ho messo Autosignup=False ...ma cosi mi occorre l'invio delle ,mail....
Anna
Versione stampabile | Questa pagina è stata eseguita in 0,3203125 secondi.
FUNZIONALITA' BASE
CDONTS, PERSITS?
08 gennaio 2003 alle 20:48:44 
09 gennaio 2003 alle 10:36:13 ![[lo]](/smileys/coucou.gif)
01 maggio 2003 alle 16:55:02 
![[feu]](/smileys/feu.gif)