Sempre premesso che tu abbia installato e registrato il componente, posta il codice che non va.
Ciao

Alberto Biancardo
5 messaggi dal 09 febbraio 2003
Ecco qui il codice che non funziona; Aspmail funziona perchè ho un'altra applicazione sullo stesso server che non mi da problemi.

Grazie 1000
Gatto

Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")

objNewMail.RemoteHost = "mail.tuttopmi.it"
objNewMail.FromAddress = R_emailRegitrazione
objNewMail.FromName = "gigi"
objNewMail.AddRecipient = FixQuotes(request.form("email"))
objNewMail.Subject = R_OgEmailReg
objNewMail.BodyText = (strMsgHeader) & vbCrLf & vbCrLf & "** Original-IP:" & Request.ServerVariables("REMOTE_ADDR")

' impediamo di dare un errore in caso di mancato invio
'On Error Resume Next
SendOk = objNewMail.SendMail

If not(SendOk) <> 0 Then
Err_Msg = Err_Msg & "<li>Your request was not sent due to the following error: " & objNewMail.Response & "</li>"
End if

Set objNewMail = Nothing
11.886 messaggi dal 09 febbraio 2002
Contributi
Adesso che ci faccio caso tu hai istanziato il componente con

Set objNewMail = Server.CreateObject("SMTPsvg.Mailer")

prova a fare così:

Set objNewMail = Server.CreateObject("Persists.Mailsender")

Enjoy learning and just keep making
5 messaggi dal 09 febbraio 2003
Ho provato, ma niente da fare.

"Persists.Mailsende"r credo comunque sia per ASPEMAIL e non per ASPMAIL.

Grazie
Gatto
Se fosse stato Aspemail comunque non sarebbe funzionato perche' non e' "Persists.Mailsender" ma "Persits.Mailsender".
Comunque e' proprio un altro componente, quindi non si può adattare allo script per aspemail
Ciao

Alberto Biancardo

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.