ciao a tutti. vi scrivo perchè dopo aver letto tutti messaggi nel forum il vostro aiuto è la mia ultima spiaggia.
ho xp pro ed installato CDOSYS ( verificato con lo script di check). devo, come molti richiedono, mandare e-mail dal server IIS 5.1
installato sul mio pc.
ho provato tutti gli script che ho trovato ma nulla le e-mail non partono, le email rimangono sempre nella cartella di coda del server locale senza darmi errori.
il mi SMTP è configurato con la porta 25, ho provato a dargli ancheun indirizzo IP 127.0.0.1 ma niente. questo di seguito è lo script che ho usato. qualcuno mi può aiutare? grz a tutti:
----------------------------------------------
<%
' Dichiara l'oggetto email e la configurazione
Dim objMail, objConfig
' Dimensiona l'oggetto email
Set objMail = Server.createObject("CDO.Message")
' ====================================
'Dimensiona l'oggetto configurazione
Set objConfig = Server.createObject("CDO.Configuration")
' Imposta le configurazioni
With objConfig
' Server SMTP di uscita
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost"( ho provato anche il nome del server ma nulla )
' Porta SMTP
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
' Porta CDO
.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Timeout
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
.Fields.update
End With
' Assegna le configurazioni
Set objMail.Configuration = objConfig
' ====================================
' Assegna all'oggetto le proprietà necessarie
' Mittente dell'email (indirizzo)
objMail.From = "mittente@dominio.com"
' Destinatario dell'email (indirizzo)
objMail.To = "destinatario@dominio.com"
' Cc e Bcc (opzionale)
objMail.Cc = "altroindirizzo@dominio.com; ancora@dominio.com"
objMail.Bcc = "altroindirizzo@dominio.com; ancora@dominio.com"
' Oggetto dell'email
objMail.Subject = "Oggetto della mail"
' Valore di priorità
objMail.Fields("urn:schemas:httpmail:importance"). Value = 2
objMail.Fields.update()
' Allegare un file
objMail.AddAttachment("d:\inetpub\webs\tuodominioc om\file.zip")
' Corpo del messaggio
objMail.TextBody = "Testo della mail" ' Formato Testo
objMail.HTMLBody = "Testo della mail" ' Formato HTML
' Invia l'email
objMail.Send()
' Distruggi l'oggetto
Set objMail = Nothing
%>

Rispondi quotando