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
ma non mi funziona. In realta' non conosco l'smtp del server. Come faccio a recuperarlo (ho i permessi da admin sul server)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 %>

Rispondi quotando