ciao a tutti
sto cercando di far inviare una semplice mail con cdosys!!! ma non ci riesco..
dopo aver provato decine di codici...ora sto provando questo...
<html>
<body>
<%
Dim objMessage, objConfig
'Crea gli oggetti per il messaggio e per la configurazione
Set objMessage = CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
'Configurazione server smtp
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "localhost"
objConfig.Fields(cdoSMTPServerPort) = 25
'Aggiornamento configurazione
objConfig.Fields.Update
Set objMessage.Configuration = objConfig
'crea il messaggio
objMessage.To = " nome@destinatario.it "
objMessage.Cc = " tizio@perconoscenza.it ; amministrazione@perconoscenza.it "
objMessage.Bcc = " info@copianascosta.net "
objMessage.From = """Info"" < info@mittente.com >"
objMessage.ReplyTo = " info@mittente.com "
objMessage.Subject = "Invio Email CDOsys"
'objMessage.TextBody = "messaggio in formato testuale"
objMessage.HtmlBody = "<html><body>messaggio in formato HTML</body></html>"
' gestione errori
On Error Resume Next
' Send the CDOSYS Message
objMessage.Send
Set objMessage = Nothing
Set objConfig = Nothing
'visualizza un messaggio di ok in caso di invio senza problemi
'altrimenti visualizza il messaggio di errore
If Err.Number = 0 Then
Response.Write "Il messaggio è stato inviato; nessun errore!<hr>"
Else
Response.Write Err.Description & "<hr>"
Err.Number = 0
End If
On Error Goto 0
%>
</body>
</html>
Il server dove mi appoggio ha CDosys ....
quando lancio questa pagina mi dice.....
The transport failed to connect to the server.
cosa sbaglio!? non riesco ad uscirne fuori....
aiutooo!!
Rispondi quotando
