Ciao a tutti vorrei provare a modificare l'invio che faccio dal mio sito de email ai miei clienti facendole partire non più da una casella di posta normale ma ben si da una casella di posta certificata
Lo script che sto utilizzando funziona correttamente con qualsiasi indirizzo di posta, quindi l'ho configurato con i valori che utilizziamo anche all'interno di outlook per leggere inviare messaggi
il messaggio di errore restituito dalla pagina è questo :
The transport failed to connect to the server
è possibile inviare i messaggi certificati tramite cdo? online non ho trovato nessuna documentazione che dica di no, al contrario ci sono esempi realizzati con aspx, quindi credo che sia solo un problema di configurazione .
questo è quello che sto facendo
qualcuno di voi ha provato a inviare posta certificata dal server?codice: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) = "smtps.pec.aruba.it" objConfig.Fields(cdoSMTPServerPort) = 465 objConfig.Fields(cdoSendUserName) = "posta@pec.miodominio.it" objConfig.Fields(cdoSendPassword) = "miapassword" 'Aggiornamento configurazione objConfig.Fields.Update Set objMessage.Configuration = objConfig 'crea il messaggio objMessage.To = trim(mailCliente) objMessage.From = "posta@pec.miodominio.it" objMessage.Subject = "Invio Email CDOsys" objMessage.HtmlBody = "<html><body>messaggio in formato HTML</body></html>" ' gestione errori On Error Resume Next ' Send the CDOSYS Message objMessage.Send Set objMessage = Nothing Set objConfig = Nothing

Rispondi quotando