Ciao,
io ho una pagina ASP che invia le email con il seguente codice:
siccome la pagina ASP è interna al nostro server exchange, volevo sapere se questo tiene traccia delle email inviate dal mittente che è un utente del dominio interno.codice:Dim objMail, objConfig ' Crea 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 ' ATTENZIONE! Usare il proprio indirizzo di server email! ' E' FONDAMENTALE per l'invio della email .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" ' Porta SMTP .Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 ' Porta CDO .Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 .Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 .Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "XXXXX" .Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "XXXXX" ' 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 proprietaà necessarie objMail.From = email ' Mittente objMail.To = emailCli ' Destinatario if emailAg <> "" then objMail.Cc = emailAg ' Invio copia all'agente end if objMail.Subject = "Comunicazione al Cliente per la contestazione con id " & idCont ' Oggetto objMail.HTMLBody = "<html><head><meta http-equiv='Content-Type' content='text/html; charset=ISO-8859-1' /></head><body>Riepilogo contestazione: Id Contestazione: " & idCont & " Oggetto: " & oggetto & " Cliente: " & codCli &"-"& desCli &" Articolo: " & codArt &"-"& desArt & " Difetto: " & catDif & " - " & codDif & " </p>Per poter procedere ad una celere risoluzione della presente contestazione, è invitato a leggere la presente comunicazione: </p>" & comuCli & " </p>Cordiali Saluti Kerasan Srl</head></html>" ' Invia l'email objMail.Send() Set objMail = Nothing
Grazie.
Rispondi quotando
