Elaborazione
Loading
Assistenza
Attivazione RSS RSS Informazioni RSS Info
Registrazione dominio
 
Trasferimento dominio
 
Articolo numero: faq-93 Articolo numero: faq-93

Inviare email con il componente CDOSys

Posted on 12-03-2008
 - By Admin

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 %>


Valutazione articolo

Torna a Ricerca