Ciao a tutti,
ho bisogno di inviare mail tramite asp. Ho accesso ad un server aziendale (su cui e' installato CDOSYS).
Cercando ho trovato questo script
codice:
<%

' Dichiara l'oggetto email e la configurazione
Dim objMail, objConfig

' Dimensiona l'oggetto email
Set objMail = CreateObject("CDO.Message")


' ====================================

'Dimensiona l'oggetto configurazione
Set objConfig = Server.CreateObject("CDO.Configuration")

' Imposta le configurazioni
With objConfig
     
' Server SMTP di uscita
'Esempio mail.dominio.it
.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.??????.com " 

' 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@miosito.com"

' Destinatario dell'email (indirizzo)
objMail.To = "destinatario@miosito.com"

' Cc e Bcc (opzionale)
'objMail.Cc = "altroindirizzo@dominio.xx; ancora@dominio.xx"
'objMail.Bcc = "altroindirizzo@dominio.xx; ancora@dominio.xx"

' 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\tuodominiocom\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

%>
ma non mi funziona. In realta' non conosco l'smtp del server. Come faccio a recuperarlo (ho i permessi da admin sul server)