Inviare email con il componente CDOSys
Ecco un esempio: 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 = "messaggio in formato 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!" Else Response.Write Err.Description & "" Err.Number = 0 End If On Error Goto 0 %>