envio de e-mail por CDO

Estou criando uma rotina de envio de e-mail utilizando CDO.

Utilizo o Access 2007 e Windows 7

Ao procurar nas referências do Access só achei CDO for Windows 2000 Library.

Pesquisei aqui no fórum mas não fui capaz de encontrar nada.

Alguem pode me ajudar ?

Se for por VBA não necessita de referencia para o CDO.
Se estiver usando VB6 ou VB. NET você vai precisar de referenciar a Microsoft CDO for Windows 2000 Library.

Sorry Avelino.

O artigo está muito bem conseguido e ainda não o tinha visto.
Pena o exemplo que está nele, no final abre sempre o formulario "Sua mensagem foi enviada com sucesso.", mas não envia não.

Eu utilizo o código abaixo e não necessito de referencia VBA para o CDO.



Sub EnvioEmailPorCDO(Mailto, MailCC, Mailtext, Optional Subject = "", Optional Attachment = "")
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
Dim Flds As Variant

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "jpaulo65@gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxx"
.Update
End With

strbody = "Isto é um teste."

With iMsg
Set .Configuration = iConf
.To = Mailto
.cc = MailCC
.BCC = ""
.From = """NoReply "" "
If Subject = "" Then
.Subject = "Isto é um teste"
Else
.Subject = Subject
End If
.TextBody = Mailtext
If Attachment <> "" Then .AddAttachment Attachment
.send
End With

Set iConf = Nothing
Set iMsg = Nothing
End Sub