questa è la situazione: devo inviare tramite un programma in access delle e-mail, ho usato il seguente codice
codice:
 Dim objMail, objConfig
 Set objMail = CreateObject("CDO.Message")
 Set objConfig = CreateObject("CDO.Configuration")
 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mailserver"
 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
 objConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
 objConfig.Fields.Update
 objMail.Configuration = objConfig
 objMail.FROM = mittente
 objMail.To = Destinatario
 objMail.Subject = oggetto
 objMail.Fields("urn:schemas:httpmail:importance").Value = 2
 objMail.Fields.Update
 objMail.TextBody = testo
 objMail.Send
ma non riesco a mandare il testo a capo, ho provato con chr(10) & chr(13) ma non ha funzionato, avete dei suggerimenti?

Grazie a tutti