ASPEmail con Nextra

[zeweb]

Ho problemi a inviare una email con ASPEmail su Nextra...secondo voi
è giusto questo codice ?

Function InvioMail(ServerMail, Mittente, Destinatario, Titolo, Corpo)
'---Script per ASPEmail
Sub SendMail()    
Dim oMailer    
Set oMailer = CreateObject("SMTPsvg.Mailer")    
oMailer.RemoteHost = "smtp.nettuno.it"    
oMailer.FromAddress = "Utente@Nextra.it"    
oMailer.FromName = "Nome Utente"      
oMailer.AddRecipient "destinatario@dominio.it","destinatario@dominio.it"    
oMailer.Subject = "Test"    
oMailer.BodyText = "Test di invio email"    
bResultState = oMailer.SendMail    
sResponseState = oMailer.Response    
If oMailer.SendMail=False Then        
Response.Write("Errore nell'invio della mail :" & oMailer.Response    
End If          
Set oMailer = NothingEnd
Sub

[weppos]

Dai uno sguardo qui
http://www.aspemail.com/manual.html

[zeweb]

strano ho seguito quello che mi dice il supporto di nextra su ASPEmail

http://quickplace.nextra.it/QuickPla.../?OpenDocument

ma mi da

ActiveX component can't create object: 'SMTPsvg.Mailer'
/shop/include/inc_libreria.asp, line 53

Function InvioMail(ServerMail, Mittente, Destinatario, Titolo, Corpo)
'---Script per ASPEmail
Dim oMailer    
Set oMailer = CreateObject("SMTPsvg.Mailer")    
oMailer.RemoteHost = "smtp.nettuno.it"    
oMailer.FromAddress = "Utente@Nextra.it"    
oMailer.FromName = "Nome Utente"      
oMailer.AddRecipient "destinatario@dominio.it","destinatario@dominio.it"    
oMailer.Subject = "Test"    
oMailer.BodyText = "Test di invio email"    
bResultState = oMailer.SendMail    
sResponseState = oMailer.Response    
If oMailer.SendMail=False Then        
Response.Write "Errore nell'invio della mail :" & oMailer.Response
End If          
Set oMailer = Nothing

[weppos]

Vuol dire che non hai il componente installato su quel server.