Hi All
I am e-mailing reports using the following code
DoCmd.SendObject acSendReport, "Rpthrs", acFormatSNP, "", "", "", " ", " "
Is it possible to generate an e-mail with two reports.At present I can only generate one at a time.
Thanks


Brendan Bartley

__________________
Brendan Bartley

Currently there is no way you can attach more than one report to an e-mail.

The closest thing you can get to is call the SendObject method twice. It will generate two independent e-mails with attachments. If your e-mail program is flexible enough, you can drag and drop attachment 2 next to the other e-mail's attachment 1 and then cancel e-mail 2.

Note, you do not have to place "" or " " in your SendObject statement. Just don't put anything.

    DoCmd.SendObject acSendReport, "Rpthrs", acFormatSNP

is enough. For methods that involve something at the end, e.g.

    DoCmd.OpenReport "Rpthrs", acPreview, , strCriteria

notice that you only have to include the comma as a placeholder but you don't need "" or " ".


Greg Serrano
Michigan Dept. of Environmental Quality, Air Quality Division

Thanks for all the help

Brendan Bartley

You can if you create the files and save to disk and then create code to email and attach documents. I attached 20 documents to an email all generated and sent through Access. I have some code around some place if I can find it.

Neil

I believe I found the right one. This should attach all files in a directory to an email.


Function Email12MthReports()

    Dim objOutlook As Outlook.Application
    Dim objOutlookMsg As Outlook.MailItem
    Dim objOutlookRecip As Outlook.Recipient
    Dim objOutlookAttach As Outlook.Attachment
    Dim AttachmentPath As String
    Dim fso, f, fc, file

    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder("N:\Exports\" & MonthName(Month(Form_frmACLSRptsMTDYTD!MthBegDt)) & " - " & Year(Form_frmACLSRptsMTDYTD!MthBegDt) & "\12-Month\")
    Set fc = f.files

    On Error Resume Next
    ' Create the Outlook session.
    Set objOutlook = CreateObject("Outlook.Application")

    ' Create the message.
    Set objOutlookMsg = objOutlook.CreateItem(olMailItem)

    With objOutlookMsg
        ' Add the To recipient(s) to the message.
        Set objOutlookRecip = .Recipients.Add("Neil Shefler;Valeria Audivert")
        objOutlookRecip.Type = olTo

       ' Set the Subject, Body, and Importance of the message.
       .Subject = "Branch 12-Month PnL Reports"
       .Body = "Attached are the 12-Month PnL report by branch." & vbCrLf & vbCrLf
       .Importance = olImportanceNormal

       ' Loop through files to attach
       For Each file In fc
            Let AttachmentPath = file
            ' Add attachments to the message.
            If Not IsMissing(AttachmentPath) Then
               Set objOutlookAttach = .Attachments.Add(AttachmentPath)
            End If
       Next
       rst.Close

       ' Resolve each Recipient's name.
       For Each objOutlookRecip In .Recipients
           objOutlookRecip.Resolve
           If Not objOutlookRecip.Resolve Then
               objOutlookMsg.Display
           End If
       Next
       .Send

    End With
    Set objOutlookMsg = Nothing
    Set objOutlook = Nothing

End Function

Neil

scubasteve,

The code above works for me if I do not use more than one email addy as you posted..

Set objOutlookRecip = .Recipients.Add("Neil Shefler;Valeria Audivert")

Using more than one gives me problems in the resolve portion of the code

' Resolve each Recipient's name.
     For Each objOutlookRecip In .Recipients
         objOutlookRecip.Resolve
         If Not objOutlookRecip.Resolve Then
             objOutlookMsg.Display
         End If
     Next
And shows me a message box "Can't contact LDAP Directory Server (81)" after a few minutes.

Anyone having any ideas on how I can resolve this issue?

Thanks