Newsgroup: it.comp.appl.access
Titolo: CDONTS.NewMail

Ciao a tutti.
Avevo già postato questa richiesta. Ma senza mai risposta.
Dovrei inviare via Access una mail con del codice in HtMl in modo da poter
visualizazzare all' apertura della mail la pagina HTML e non il codice.
Ho provato con le mapi, con il winsock ma nulla da fare non riesco, o meglio
non so dove mettere il codice html per poter fare questa cosa.
Una persona molto gentile mi ha detto di provare con la libreria
CDONTS.NewMail.
Molto probabilmente questa deve risiedere su di un server Web.
Come faccio ad utilizzarla ???
Dove la posso trovare, visto che è da access che devo far partire la
mail.???
Spero di riuscire a risolvere questo problema.
Grazie Grazie
Enrico Pietrobon


Ti re-inoltro i miei 3 messaggi:
'---- primo
Dim myMail
Set myMail = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & ""content=""text/html; charset=iso-8859-1"">""
HTML = HTML & "<title>Sample NewMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "This is a sample message being sent using HTML. <BR></body>"
HTML = HTML & "</html>"
myMail.From = "
us...@example.com
"
myMail.To = "
us...@example.com
"
myMail.Subject = "Sample Message"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML
myMail.Send
Set myMail = Nothing
'---- secondo
Qui ho win2000srv e la libreria è:
- Microsoft CDO for NTS 1.2 Library
'---- terzo
Mi è arrivata proprio adesso una news da Aspitalia con un'altra soluzione
per 2003srv:
http://www.aspitalia.com/liste/usag/script.aspx?ID=553
Ciao.
--
Sergio MAZZA


Allora finalmente li ho trovati.
    Su windows Xp il file Cdont si chiama CDOSYS.dll
ma purtroppo questo non funziona al momento della chiamata viene restituito
un errore.
    Ho trovato all'interno di Windows 2000 Server il File CDONTS.DLL
questo sembra funzionare.
L'ho inserito nei riferimenti di access e ora all' istruzione
    Set objNewMail = CreateObject("CDONTS.NewMail")
non mi viene più dato oggetto non trovato.
il Problema ora è un altro..
il codice viene eseguito tutto fino all' istruzione
objNewMail.send
Qui magicamente mi viene dato l'errore 429
il componente ActiveX non è in grado di creare l'oggetto !!!
E adesso cosa mi manca.
Scusami e grazie.
Enrico.

Scusami, ma tieni presente che io lo devo applicare su un computer con
Windows Xp con connessione ad internet ADSL ma senza server.
è un computer singolo.
Enrico


Io sto utilizzando win2000srv (sp4) e con questo codice VBA in access mi
sono spedito un messaggio. Se vuoi te lo spedisco anche a te.
Controlla se il servizio SMTP è avviato. I messaggi in partenza li trovi
nella cartella C:\Inetpub\mailroot\Queue.
'---- Esempio
Dim myMail, HTML As String
Set myMail = CreateObject("CDONTS.NewMail")
HTML = "<!DOCTYPE HTML PUBLIC ""-//IETF//DTD HTML//EN"">" & vbCrLf
HTML = HTML & "<html>"
HTML = HTML & "<head>"
HTML = HTML & "<meta http-equiv=""Content-Type"""
HTML = HTML & Chr(34) & "content=" & Chr(24) & "text/html;
charset=iso-8859-1" & Chr(34) & ">" & Chr(34)
HTML = HTML & "<title>Sample NewMail</title>"
HTML = HTML & "</head>"
HTML = HTML & "<body>"
HTML = HTML & "This is a sample message being sent using HTML. <BR></body>"
HTML = HTML & "</html>"
myMail.From = "
Acce...@example.com
"
myMail.To = "
sergi...@tiscali.it
"
myMail.Subject = "Messaggio in html"
myMail.BodyFormat = 0
myMail.MailFormat = 0
myMail.Body = HTML
myMail.Send
Set myMail = Nothing
Ciao.
--
Sergio MAZZA