Emailing Reports

[ssworthi]

I have tried to send reports out of Access with the email button Access offers and every time I try it opens a dialog of setting up an Outlook email account. I already have an account in Outlook but I go through the set up account steps anyway and then it says it doesn't recognize my account. What the what? I scream to myself; can someone help me figure this out. I am stumped. Thank you so much; so frustrating.

[June7]

You have Outlook installed and set up on your computer? Is it open and you are logged in?

[InsuranceGuy]

I'm a big fan of CDO for these reasons.

Simple example: http://www.rondebruin.nl/win/s1/cdo.htm
Complex example: http://www.cpearson.com/excel/Email.aspx

I've found the complex example to be fickle. Attachments get corrupted during the transmit process if you omit some of the string values which are defined optional in Chip's code sample. Pass a single space (" ") to subject, body and html body values instead of leaving blank to avoid the issues.

Best of luck,

Jeff

[RayMilhon]

Here's is a portion of code I have in my template DB.

Public Sub Masteremail()
    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOoutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.Attachment
    Dim sfile As String
    Dim filetocopy As String
    Dim fs As Object
    Set fs = CreateObject("scripting.filesystemobject")
    Set objOutlook = CreateObject("Outlook.Application")
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
    'Add list of recipients here
    objOutlookMsg.Recipients.Add ("@")
    With objOutlookMsg
        .Subject = "EMail subject Here"
        .Body = "EMail Body Here"
    End With
    sfile = "Enter the filename here"
    objOutlookMsg.Attachments.Add (sfile)
    'Repeat the above 2 lines for each file to add
    'Send the email
    objOutlookMsg.Send
    'Clear out the objects
    Set objOutlookMsg = Nothing
    Set objOutlook = Nothing


End Sub

Works pretty well for me

[RayMilhon]

Forgot to mention I export the report/query to a file usually PDF and there are 2 lines I modify depending on what I'm sending out and to whom.

Both follow comments in the previous post that tell you what needs to be put in there.

Also if you have multiple reports that could go to multiple recipients you could add 2 parameters one for the filename and 1 for the recipients and replace those 2 lines with the parameters. You could also modify if sending out multiple files to the same recipient but I haven't had to do that as yet.