smtp email code

[alyon]

I'm trying to figure out a good code to use to send an email from Access 2007 through a smtp server. The email source I'm trying to use is godaddy, if that helps. All the codes I've found so far for smtp email, I change to fit our settings, and this error "A problem occured while Microsoft Office Access was communicating with the OLE server or ActiveX Control" always comes up. Also, all the smtp code doesn't show how to send a specific report, just file attachments from a root path. I know Outlook code, and to specify a certain report, and pdf, and whatnot... but outlook is not making anyone happy. Any help would be greatly appreciated.

Thanks!
alyon

[June7]

This has code for Lotus Notes, maybe is adaptable http://www.fabalou.com/VBandVBA/lotusnotesmail.asp

Except with the SendObject method http://msdn.microsoft.com/en-us/libr...ffice.12).aspx, don't think can email the report directly, must email report output (PDF, Excel, RTF).

[alyon]

Thanks for the reply, I couldn't get it to work.. So I ended up just going through a gmail account and used this code:
Set objmessage = CreateObject("CDO.Message")
myAttachment = "\\Attachment\Path.pdf "
objmessage.Subject = "My Subject"
objmessage.From = "me@email.com"
objmessage.To = Me.txtOwnerEmail.Value
objmessage.TextBody = "Body Message"
objmessage.AddAttachment myAttachment
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
objmessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objmessage.Configuration.Fields.Update
objmessage.SEND
Set objmessage = Nothing