Server object error 'ASP 0177

[zeweb]

Server object error 'ASP 0177 : 800401f3'

Server.CreateObject Failed

/shop/include/inc_libreria.asp, line 60

Invalid ProgID. For additional information specific to this message please visit the Microsoft Online Support site located at: http://www.microsoft.com/contentredirect.asp.


non penso sia un problema nel settaggio ASPEmail...o no ?

'---Script per ASPEmail
Dim Mail
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = ServerMail
Mail.From = Mittente
Mail.AddAddress Destinatario
Mail.Subject = Titolo
Mail.Body = Corpo
On Error Resume Next
Mail.Send
If Err <> 0 Then
InvioMail = False
Else
InvioMail = True
End If
Set Mail = Nothing

Microsoft risponde così

ASP 0177 Impossibile eseguire il metodo Server.CreateObject

Tentando di inviare un messaggio di posta elettronica da una pagina ASP utilizzando l'oggetto Collaboration Data Objects (CDO) for NTS, si riceve il seguente messaggio di errore: Server object Error 'ASP 0177: 800401f3'
Server.CreateObject Failed
Line xx
Invalid class string


Ma io uso ASPEmail !!! :master:

Mi chiarite la confuzione ? Grazie !

[Sypher]

non esiste l'oggetto sul server

[zeweb]

vediamo se funzia su Nextra

  
<%
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
%>

[zeweb]

ho porovatoa correggere leggendo ciò che dice NEXTRA ma non mi funziona !

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

'---Funzioni per inviare mail

    Function InvioMail(ServerMail, Mittente, Destinatario, Titolo, Corpo)
'---Script per ASPEmail
Dim Mail
Set Mail = CreateObject("SMTPsvg.Mailer")  
Mail.RemoteHost = ServerMail
Mail.FromAddress = Mittente
Mail.AddRecipient = Destinatario
Mail.Subject = Titolo
Mail.BodyText = Corpo
On Error Resume Next
Mail.Send
If Err <> 0 Then
InvioMail = False
Else
InvioMail = True
End If
Set Mail = Nothing

Proprietà o metodo non supportati dall'oggetto: 'Mail.AddRecipient'

[Sypher]

Originariamente inviato da zeweb
ho porovatoa correggere leggendo ciò che dice NEXTRA ma non mi funziona !

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

'---Funzioni per inviare mail

    Function InvioMail(ServerMail, Mittente, Destinatario, Titolo, Corpo)
'---Script per ASPEmail
Dim Mail
Set Mail = CreateObject("SMTPsvg.Mailer")  
Mail.RemoteHost = ServerMail
Mail.FromAddress = Mittente
Mail.AddRecipient = Destinatario
Mail.Subject = Titolo
Mail.BodyText = Corpo
On Error Resume Next
Mail.Send
If Err <> 0 Then
InvioMail = False
Else
InvioMail = True
End If
Set Mail = Nothing

Proprietà o metodo non supportati dall'oggetto: 'Mail.AddRecipient'

non esiste quella proprietà per quell'oggetto

[zeweb]

quindi ?

[Sypher]

prova questo Mail.Recipient

[zeweb]

perfetto ora non da errori, aspetto di ricevere l'email !

Grazie 1000!