none
Sending email and attachment in Access 2010 to Outlook RRS feed

  • Question

  • Hello everyone,

    I am using this code in Access 2010 to send email attachment through Outlook 2010.

    The problem is my file name is dynamic. I am using the date at the end of each file in the folder.

    The code calls for a fix file name and will give an error if the file(s) are not there, or when the folder is empty.

    How do I get this to simply attached any file in the folder with CSV at the end, and also if the folder is missing, empty or file is not there the program does not crash. What I mean is the program will continue to another sub or function if an error occurs?

    Public Sub sendEmail()
    Dim appOutLook As Outlook.Application
    Dim MailOutLook As Outlook.MailItem
    Set appOutLook = CreateObject("Outlook.Application")
    Set MailOutLook = appOutLook.CreateItem(olMailItem)
    With MailOutLook
        .BodyFormat = olFormatRichText
        .To = "bob@builder.com"
        ''.cc = ""
        ''.bcc = ""
        .Subject = "text here"
        .HTMLBody = "text here"
        .Attachments.Add ("C:\Users\builder\Desktop\" & "*.csv")
        .Send
    End With
    End Sub

    Thanks everyone, you guys are the best!



    • Edited by Synthologic Tuesday, December 4, 2012 9:47 PM
    Tuesday, December 4, 2012 9:39 PM

Answers

  • Hello there and thanks for the responds, I really appreciate your help.
    When I run your code above, I get the error as indicated in the message box.

    I am not sure why, I did change the directory as indicated.

    The code worked under test and I have just tested it again so don't know what the problem is.

    Code by Henry will add multiple files if required but if no files found then it will send the email without the attachment. Is that what you want? If not, then modify as below.

    Public Sub sendEmail()
      Dim appOutLook As Outlook.Application
      Dim MailOutLook As Outlook.MailItem
      Dim strPath As String
      Dim strFileName As String
      Set appOutLook = CreateObject("Outlook.Application")
      Set MailOutLook = appOutLook.CreateItem(olMailItem)
      With MailOutLook
        .BodyFormat = olFormatRichText
        .To = "bob@builder.com"
        '.cc = ""
        '.bcc = ""
        .Subject = "text here"
        .HTMLBody = "text here"
        'add all CSV files
        strPath = "C:\Users\builder\Desktop\"
        strFileName = Dir(strPath & "*.csv")
        If strFileName <> "" Then
            While strFileName <> ""
              .Attachments.Add (strPath & strFileName)
              strFileName = Dir()
            Wend
        Else
            MsgBox "No file matching " & strPath & "*.csv " & " found." & vbCrLf & _
                    "Processing terminated."
            Exit Sub
        End If
        .Send
        '.Display      'Used during testing without sending (Comment out .Send if using this line)
      End With
    End Sub

     


    Regards, OssieMac

    • Marked as answer by Synthologic Saturday, December 8, 2012 9:54 PM
    Wednesday, December 5, 2012 7:08 AM

All replies

  • Try the following. It does not send multiple attachments; only the first file matching the Filter criteria (if found) otherwise terminates.

    If you want multiple attachments then need more coding.

    Public Sub sendEmail()
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Dim strPath As String
        Dim strFilter As String
        Dim strFile As String
       
        strPath = "C:\Users\User\Desktop\"      'Edit to your path
        strFilter = "*.csv"
        strFile = Dir(strPath & strFilter)
       
        If strFile <> "" Then
       
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
           
            With MailOutLook
                .BodyFormat = olFormatRichText
                .To = "bob@builder.com"
                ''.cc = ""
                ''.bcc = ""
                .Subject = "text here"
                .HTMLBody = "text here"
                .Attachments.Add (strPath & strFile)
                .Send
                '.Display    'Used during testing without sending (Comment out .Send if using this line)
            End With
        Else
            MsgBox "No file matching " & strPath & strFilter & " found." & vbCrLf & _
                    "Processing terminated."
            Exit Sub    'This line only required if more code past End If
        End If

    End Sub


    Regards, OssieMac

    Wednesday, December 5, 2012 4:56 AM
  • Hi Syntholgic

    "Synthologic" schrieb im Newsbeitrag news:d3b0c997-fae8-4fc8-adce-47a5e7b2a667@communitybridge.codeplex.com...

    The code calls for a fix file name and will give an error if the
    file(s) are not there, or when the folder is empty.
    How do I get this to simply attached any file in the folder with CSV at
    the end, and also if the folder is missing, empty or file is not there
    the program does not crash. What I mean is the program will continue to another sub or function if an error occurs?

    You can use the Dir() method iteratively to get all files that fit your abbrevation from this folder as added below (untested).

    Public Sub sendEmail()
      Dim appOutLook As Outlook.Application
      Dim MailOutLook As Outlook.MailItem
      Dim strPath As String
      Dim strFileName As String
      Set appOutLook = CreateObject("Outlook.Application")
      Set MailOutLook = appOutLook.CreateItem(olMailItem)
      With MailOutLook
        .BodyFormat = olFormatRichText
        .To = "bob@builder.com"
        '.cc = ""
        '.bcc = ""
        .Subject = "text here"
        .HTMLBody = "text here"
        'add all CSV files
        strPath = "C:\Users\builder\Desktop\"
        strFileName = Dir(strPath & "*.csv")
        While strFileName <> ""
          .Attachments.Add (strPath & strFileName)
          strFileName = Dir()
        Wend
        .Send
      End With
    End Sub

    HTH
    Henry


    Wednesday, December 5, 2012 6:15 AM
  • Try the following. It does not send multiple attachments; only the first file matching the Filter criteria (if found) otherwise terminates.

    If you want multiple attachments then need more coding.

    Public Sub sendEmail()
        Dim appOutLook As Outlook.Application
        Dim MailOutLook As Outlook.MailItem
        Dim strPath As String
        Dim strFilter As String
        Dim strFile As String
       
        strPath = "C:\Users\User\Desktop\"      'Edit to your path
        strFilter = "*.csv"
        strFile = Dir(strPath & strFilter)
       
        If strFile <> "" Then
       
            Set appOutLook = CreateObject("Outlook.Application")
            Set MailOutLook = appOutLook.CreateItem(olMailItem)
           
            With MailOutLook
                .BodyFormat = olFormatRichText
                .To = "bob@builder.com"
                ''.cc = ""
                ''.bcc = ""
                .Subject = "text here"
                .HTMLBody = "text here"
                .Attachments.Add (strPath & strFile)
                .Send
                '.Display    'Used during testing without sending (Comment out .Send if using this line)
            End With
        Else
            MsgBox "No file matching " & strPath & strFilter & " found." & vbCrLf & _
                    "Processing terminated."
            Exit Sub    'This line only required if more code past End If
        End If

    End Sub


    Regards, OssieMac

    Hello there and thanks for the responds, I really appreciate your help.
    When I run your code above, I get the error as indicated in the message box.

    I am not sure why, I did change the directory as indicated.

    Thanks again!

    Wednesday, December 5, 2012 6:31 AM
  • Hi Syntholgic

    "Synthologic" schrieb im Newsbeitrag news:d3b0c997-fae8-4fc8-adce-47a5e7b2a667@communitybridge.codeplex.com...

    The code calls for a fix file name and will give an error if the
    file(s) are not there, or when the folder is empty.
    How do I get this to simply attached any file in the folder with CSV at
    the end, and also if the folder is missing, empty or file is not there
    the program does not crash. What I mean is the program will continue to another sub or function if an error occurs?

    You can use the Dir() method iteratively to get all files that fit your abbrevation from this folder as added below (untested).

    Public Sub sendEmail()
      Dim appOutLook As Outlook.Application
      Dim MailOutLook As Outlook.MailItem
      Dim strPath As String
      Dim strFileName As String
      Set appOutLook = CreateObject("Outlook.Application")
      Set MailOutLook = appOutLook.CreateItem(olMailItem)
      With MailOutLook
        .BodyFormat = olFormatRichText
        .To = "bob@builder.com"
        '.cc = ""
        '.bcc = ""
        .Subject = "text here"
        .HTMLBody = "text here"
        'add all CSV files
        strPath = "C:\Users\builder\Desktop\"
        strFileName = Dir(strPath & "*.csv")
        While strFileName <> ""
          .Attachments.Add (strPath & strFileName)
          strFileName = Dir()
        Wend
        .Send
      End With
    End Sub

    HTH
    Henry




    Hello Henry,
    I tested your approach and it's working, before I mark this as Answered, I am looking at it more in-case I hit a wall.

    Thanks
    • Edited by Synthologic Wednesday, December 5, 2012 6:35 AM
    Wednesday, December 5, 2012 6:32 AM
  • Hello there and thanks for the responds, I really appreciate your help.
    When I run your code above, I get the error as indicated in the message box.

    I am not sure why, I did change the directory as indicated.

    The code worked under test and I have just tested it again so don't know what the problem is.

    Code by Henry will add multiple files if required but if no files found then it will send the email without the attachment. Is that what you want? If not, then modify as below.

    Public Sub sendEmail()
      Dim appOutLook As Outlook.Application
      Dim MailOutLook As Outlook.MailItem
      Dim strPath As String
      Dim strFileName As String
      Set appOutLook = CreateObject("Outlook.Application")
      Set MailOutLook = appOutLook.CreateItem(olMailItem)
      With MailOutLook
        .BodyFormat = olFormatRichText
        .To = "bob@builder.com"
        '.cc = ""
        '.bcc = ""
        .Subject = "text here"
        .HTMLBody = "text here"
        'add all CSV files
        strPath = "C:\Users\builder\Desktop\"
        strFileName = Dir(strPath & "*.csv")
        If strFileName <> "" Then
            While strFileName <> ""
              .Attachments.Add (strPath & strFileName)
              strFileName = Dir()
            Wend
        Else
            MsgBox "No file matching " & strPath & "*.csv " & " found." & vbCrLf & _
                    "Processing terminated."
            Exit Sub
        End If
        .Send
        '.Display      'Used during testing without sending (Comment out .Send if using this line)
      End With
    End Sub

     


    Regards, OssieMac

    • Marked as answer by Synthologic Saturday, December 8, 2012 9:54 PM
    Wednesday, December 5, 2012 7:08 AM
  • Hy Synthologic

    Set a breakpoint at the While statement and check the content of strFileName. Does it contain the name of the file you want to send?

    You also may before sending use the .Display method of the MailItem and check if it is correctly.

    Finally, you should add an error handler to this sub to ensure code errors become visible.

    Henry

    Wednesday, December 5, 2012 7:18 AM
  • Hello there and thanks for the responds, I really appreciate your help.
    When I run your code above, I get the error as indicated in the message box.

    I am not sure why, I did change the directory as indicated.

    The code worked under test and I have just tested it again so don't know what the problem is.

    Code by Henry will add multiple files if required but if no files found then it will send the email without the attachment. Is that what you want? If not, then modify as below.

    Public Sub sendEmail()
      Dim appOutLook As Outlook.Application
      Dim MailOutLook As Outlook.MailItem
      Dim strPath As String
      Dim strFileName As String
      Set appOutLook = CreateObject("Outlook.Application")
      Set MailOutLook = appOutLook.CreateItem(olMailItem)
      With MailOutLook
        .BodyFormat = olFormatRichText
        .To = "bob@builder.com"
        '.cc = ""
        '.bcc = ""
        .Subject = "text here"
        .HTMLBody = "text here"
        'add all CSV files
        strPath = "C:\Users\builder\Desktop\"
        strFileName = Dir(strPath & "*.csv")
        If strFileName <> "" Then
            While strFileName <> ""
              .Attachments.Add (strPath & strFileName)
              strFileName = Dir()
            Wend
        Else
            MsgBox "No file matching " & strPath & "*.csv " & " found." & vbCrLf & _
                    "Processing terminated."
            Exit Sub
        End If
        .Send
        '.Display      'Used during testing without sending (Comment out .Send if using this line)
      End With
    End Sub

     


    Regards, OssieMac

    Yes it does, I was missing something, that's what happens when one is up after 7am to 3am. :)
    Unfortunately I get the ActiveX Component Can't Create error. Which prevents my program from running with windows task scheduler.

    However, based specifically on my question, your code is a great solution. I will need to deal with that error, not sure how but it is not related I think.

    Thank you do much for taking the time to share your knowledge.

    Wednesday, December 5, 2012 5:15 PM
  • Hy Synthologic

    Set a breakpoint at the While statement and check the content of strFileName. Does it contain the name of the file you want to send?

    You also may before sending use the .Display method of the MailItem and check if it is correctly.

    Finally, you should add an error handler to this sub to ensure code errors become visible.

    Henry

    Thank you so much Henry, this is also a perfect answer, I which people could mark multiple entries as answers.

    Thank again for taking your precious time.
    Wednesday, December 5, 2012 5:17 PM
  • Unfortunately I get the ActiveX Component Can't Create error. Which prevents my program from running with windows task scheduler.

    However, based specifically on my question, your code is a great solution. I will need to deal with that error, not sure how but it is not related I think.

    Thank you do much for taking the time to share your knowledge.

    Only a long shot

    Because you are running from Task scheduler I am wondering if it is not picking up the VBA Reference to Outlook or maybe cannot create because Outlook is already open. I have experienced problems before with Outlook already open and have fixed with the solution below which uses the GetObject to test if already open before attempting to CreateObject. (See code between asterisk lines)

    Note: You can turn off the VBA reference to Outlook because the example below uses late binding.

    Public Sub sendEmail_2()
        Dim objOutlook As Object    'Use for late binding
        Dim objNameSpace As Object  'Use for late binding
        Dim MailOutLook As Object   'Use for late binding
        Dim strPath As String
        Dim strFileName As String
       
        '*************************************************
        On Error Resume Next
        Set objOutlook = GetObject(, "Outlook.Application")
        On Error GoTo 0
       
        If objOutlook Is Nothing Then
            Set objOutlook = CreateObject("Outlook.Application")
        End If
        '*****************************************************
       
        Set MailOutLook = objOutlook.CreateItem(0)  'Late binding method
     
      With MailOutLook
        .BodyFormat = 3      'Late binding in lieu of olFormatRichText
        .To = "bob@builder.com"
        '.cc = ""
        '.bcc = ""
        .Subject = "text here"
        .HTMLBody = "text here"
        'add all CSV files
        strPath = "C:\Users\User\Desktop\"  'Edit to your path
        strFileName = Dir(strPath & "*.csv")
        If strFileName <> "" Then
            While strFileName <> ""
              .Attachments.Add (strPath & strFileName)
              strFileName = Dir()
            Wend
        Else
            MsgBox "No file matching " & strPath & "*.csv " & " found." & vbCrLf & _
                    "Processing terminated."
            Exit Sub    'This line only required if more code past End If
        End If
        '.Send
        .Display  'Use for testing in lieu of .Send
      End With
    End Sub


    Regards, OssieMac

    Wednesday, December 5, 2012 9:42 PM
  • Unfortunately I get the ActiveX Component Can't Create error. Which prevents my program from running with windows task scheduler.

    However, based specifically on my question, your code is a great solution. I will need to deal with that error, not sure how but it is not related I think.

    Thank you do much for taking the time to share your knowledge.

    Only a long shot

    Because you are running from Task scheduler I am wondering if it is not picking up the VBA Reference to Outlook or maybe cannot create because Outlook is already open. I have experienced problems before with Outlook already open and have fixed with the solution below which uses the GetObject to test if already open before attempting to CreateObject. (See code between asterisk lines)

    Note: You can turn off the VBA reference to Outlook because the example below uses late binding.

    Public Sub sendEmail_2()
        Dim objOutlook As Object    'Use for late binding
        Dim objNameSpace As Object  'Use for late binding
        Dim MailOutLook As Object   'Use for late binding
        Dim strPath As String
        Dim strFileName As String
       
        '*************************************************
        On Error Resume Next
        Set objOutlook = GetObject(, "Outlook.Application")
        On Error GoTo 0
       
        If objOutlook Is Nothing Then
            Set objOutlook = CreateObject("Outlook.Application")
        End If
        '*****************************************************
       
        Set MailOutLook = objOutlook.CreateItem(0)  'Late binding method
     
      With MailOutLook
        .BodyFormat = 3      'Late binding in lieu of olFormatRichText
        .To = "bob@builder.com"
        '.cc = ""
        '.bcc = ""
        .Subject = "text here"
        .HTMLBody = "text here"
        'add all CSV files
        strPath = "C:\Users\User\Desktop\"  'Edit to your path
        strFileName = Dir(strPath & "*.csv")
        If strFileName <> "" Then
            While strFileName <> ""
              .Attachments.Add (strPath & strFileName)
              strFileName = Dir()
            Wend
        Else
            MsgBox "No file matching " & strPath & "*.csv " & " found." & vbCrLf & _
                    "Processing terminated."
            Exit Sub    'This line only required if more code past End If
        End If
        '.Send
        .Display  'Use for testing in lieu of .Send
      End With
    End Sub


    Regards, OssieMac

    Hey Ossie, for some strange reason I have multiple computers and it does not do this on one of them running Outlook 2010 PRO 64.
    I am not sure it matters. But I am away from the problem computer which is where the project is. I will test this as soon as I can and let you know.

    Now that you mention Outlook runing, it makes perfect sense.  I always have outlook open and ruining on that computer.

    I'll report back soon.

    Thanks again, you are AMAZING!!

    Thursday, December 6, 2012 6:38 AM
  • Unfortunately I get the ActiveX Component Can't Create error. Which prevents my program from running with windows task scheduler.

    However, based specifically on my question, your code is a great solution. I will need to deal with that error, not sure how but it is not related I think.

    Thank you do much for taking the time to share your knowledge.

    Only a long shot

    Because you are running from Task scheduler I am wondering if it is not picking up the VBA Reference to Outlook or maybe cannot create because Outlook is already open. I have experienced problems before with Outlook already open and have fixed with the solution below which uses the GetObject to test if already open before attempting to CreateObject. (See code between asterisk lines)

    Note: You can turn off the VBA reference to Outlook because the example below uses late binding.

    Public Sub sendEmail_2()
        Dim objOutlook As Object    'Use for late binding
        Dim objNameSpace As Object  'Use for late binding
        Dim MailOutLook As Object   'Use for late binding
        Dim strPath As String
        Dim strFileName As String
       
        '*************************************************
        On Error Resume Next
        Set objOutlook = GetObject(, "Outlook.Application")
        On Error GoTo 0
       
        If objOutlook Is Nothing Then
            Set objOutlook = CreateObject("Outlook.Application")
        End If
        '*****************************************************
       
        Set MailOutLook = objOutlook.CreateItem(0)  'Late binding method
     
      With MailOutLook
        .BodyFormat = 3      'Late binding in lieu of olFormatRichText
        .To = "bob@builder.com"
        '.cc = ""
        '.bcc = ""
        .Subject = "text here"
        .HTMLBody = "text here"
        'add all CSV files
        strPath = "C:\Users\User\Desktop\"  'Edit to your path
        strFileName = Dir(strPath & "*.csv")
        If strFileName <> "" Then
            While strFileName <> ""
              .Attachments.Add (strPath & strFileName)
              strFileName = Dir()
            Wend
        Else
            MsgBox "No file matching " & strPath & "*.csv " & " found." & vbCrLf & _
                    "Processing terminated."
            Exit Sub    'This line only required if more code past End If
        End If
        '.Send
        .Display  'Use for testing in lieu of .Send
      End With
    End Sub


    Regards, OssieMac


    Hey OssieMac,
    Just needed to get back to you with an update, I did try this approach and unfortunately for me it did not work.
    Do you think this has something to do with Outlook Exchange Server? Because this does not happen on the Outlook installed on my laptop but happens on the Desktop where I have Exchange Server.

    Any other ideas? I was really excited about this approach, now I feel like a kid with a broken toy. :(

    Friday, December 7, 2012 5:42 AM

  • Just needed to get back to you with an update, I did try this approach and unfortunately for me it did not work.
    Do you think this has something to do with Outlook Exchange Server? Because this does not happen on the Outlook installed on my laptop but happens on the Desktop where I have Exchange Server.

    Any other ideas? I was really excited about this approach, now I feel like a kid with a broken toy. :(

    Previously you said that it would not run with Task Scheduler. Have you tried just running directly from Excel?

    Unfortunately without Outlook Exchange Server to test with I can't specifically answer your question but I do know that I previously answered a question relating to selecting the sender for the email where the user has multiple email addresses. Exchange server would work with everything else except allow selection of the sender. In the end the person asking the question decided to just use Display so that he/she could manually select the sender. So I guess that I am saying that I see no reason why Excehange server should be the problem but I can't rule it out either.

    Just one thought, does your Outlook Exchange server allow HTML. Maybe try .Body instead of .HTML.

    Suggest that if none of this answers (and I doubt that it will) then post a new question with a copy of the code and the statement that it works on your Laptop with Outlook but not with Exchenge server. Someone might know the answer.


    Regards, OssieMac

    Friday, December 7, 2012 7:25 AM
  • So I understand this correctly:

    One machine is running Office 2010 in WOW64 (32-bit) which is a Standard installation and here it works correctly

    On the other machine you are running Exchange Server (which is 64-bit, there is not Exchange in 32-bit available). And there you have Outlook in 64-bit installed. The code is run in Access 2010 (which hopefully is 32-bit, as recommended by MS) and running on this machine therefore in WOW64. But you have Outlook 2010 installed in 64-bit (BTW I wasn't aware Outlook has a PRO version, do you really mean Outlook 2010 or do you mean Office 2010 PRO 64).

    If I got it right then it can't work for a simple reason: You can't access from 32-bit Access in WOW64 the Outlook Application running in the 64-bit environment by OLE automation. This is technically not possible. The WOW64 is strictly closed to 32-bit appciations running inside this environment, there is no way to get out to the 64-bit world from there.

    To be able to run it you must have all applications in the 32-bit or 64-bit environment while the 64-bit installations of Office aren't recommended by Microsoft. Beside other incompatibilities in VBA and API calls you may in the 64-bit environment also see other limitations, maybe even in the OLE automation environment.

    My recommendation is to run also on the second machine where you have Exchange server installed all Office application only in the 32-bit version. These are stable and you will not have any problems to move an Access application to this machine and run it from here.

    But there is another thing you have to look at: Its not recommended to run Exchange Server and Outlook on the same machine. If you do this for example on Small Business Server 2011 (Windows Server 2008 R2) you get warnings telling you better not to do it as it's a configuration that is not supported by MS. To be honest: An Exchange Server belongs into it's own environment without any Office applications in stalled in there. This may be even a virtual machine.

    I expect you have to first set up your environment correctly and then after the application will run as you expect. You then will also get support if errors like the seen ActiveX creation error occure because this environment is then common. You will not easy find here somebody that has such an environment available to help finding the error and may have to contact Microsoft and open a support case there to get the solution for this issue.

    What I would do in your case is following:

    Install for example Windows Server 2012 on the laptop in a minimal configuration to run HyperV. Then install a Windows Server 2008 R2 or later in one virtual machine and install on this one your Exchange Server 2010. Then create a new virtual machine in HyperV and run there Windows 7 64-bit. Install in this machine Office 2010 32-bit.

    If everything is configured correctly exchange server in the 1st virtual machine should be reachable by Outlook in the 2nd virtual machine and in the network where the laptop is running. And the applications in Windows 7 VM should now behave the same way as they do on physical computers in the same network. It's a little bit of work but it will solve your issues and will ensure you are running in a supported environment.

    The dark side of this environment is that you need 2 WS license and one W7 license. If it's a test/development environment then a MSDN license will contain what you need for developing and testing the scenario.

    Henry

    Friday, December 7, 2012 8:51 AM
  • Thank you so much Ossie and Henry, at this point, I have decided to use a Form in Access and attached a timer to it. So that the form runs the Macro. This way the email works, it only fails with Task Scheduler.

    The problem here is I have to leave Access running, which is not a problem because I only have a single application and do not use Access for anything else.

    Thank again for all your help.

    Just to recap, this behavior does not happen on my personal computer, only the workstation running Outlook Exchange. And I am running Office 2010 Pro plus on Win 64. Not Outlook pro, sorry if that was confusing.

    Synth

    Saturday, December 8, 2012 9:58 PM
  • I'm wondering if the VBA Code could be altered to include a date format?

    I have an export that writes files appending the date that they are created at the end of the file, so my code for file names is something like this:

    "Report 1 "& Format(Date, "yyyy-mm-dd") & ".pdf")

    I attempted to put the "& Format(Date, "yyyy-mm-dd") & ".pdf") into the VBA Code that I saw, but it's not allowing it.  I'm getting a Compile Error -- Expected: list separator or )

    Thanks in advance for any help.

    JMDataConsultant

    Thursday, May 16, 2013 4:39 PM
  • Hello,

    I am trying to sent attachments that would include a report which I have already done and its working.

    It crates a PDF from the report and attach to an e-mail, but I also need to include attachments in the database existing in the database (ATTACHMENT data type).

    Any clues?

    Thanks

    Lucio

    Saturday, June 1, 2013 12:42 AM