Emailing the Actual Database

[Lozzo]

Hi everyone,

I know there's the ability to email the reports from an access database, but I was wondering if it was possible to create a button that would email the actual database. I've done some research on this and haven't come up with anything so I'm not so sure about it being possible or not.

Thanks in advance to any help you can provide,
Lozzo

[ADezii]

Hi everyone,

I know there's the ability to email the reports from an access database, but I was wondering if it was possible to create a button that would email the actual database. I've done some research on this and haven't come up with anything so I'm not so sure about it being possible or not.

Thanks in advance to any help you can provide,
Lozzo

To the best of my knowledge, you cannot E-Mail the actual Database itself via the SendObject() Method. Your best best would be to Zip the Database, (should get a high Compression Ratio), then send it as a File Attachment.

[MSeda]

these are some macros I use to zip and send a backend data base from a command button in the FE.

  Sub ZipnSendUpdate(myPath As String, mySource As String, myName As String)
 
      Dim FileNameZip, FolderName
 
      Dim strDate As String, DefPath As String
 
      Dim oApp As Object
 
      Dim appOutLook As Outlook.Application
 
      Dim MailOutLook As Outlook.MailItem
 
      Dim myRecip As String
 
 
 
      DefPath = myPath
 
      If Right(DefPath, 1) <> "\" Then
 
          DefPath = DefPath & "\"
 
      End If
 
 
 
      FolderName = mySource
 
      strDate = Format(Now, "mmddyy")
 
      FileNameZip = DefPath & myName & strDate & ".zip"
 
 
 
      'Create empty Zip File
 
      NewZip (FileNameZip)
 
 
 
      Set oApp = CreateObject("Shell.Application")
 
 
 
      'Copy the files to the compressed folder
 
      oApp.NameSpace(FileNameZip).copyhere oApp.NameSpace(FolderName).Items
 
 
 
 
 
          Do Until oApp.NameSpace(FileNameZip).Items.Count = oApp.NameSpace(FolderName).Items.Count
 
          DoEvents
 
          Loop
 
 
 
          Set oApp = Nothing
 
 
 
  Set appOutLook = CreateObject("outlook.Application", "localhost")
 
  Set MailOutLook = appOutLook.CreateItem(olMailItem)
 
 
 
  myRecip = ELookup("[Employee Email]", "[Employee Table]", "[Receive Data Update] = YES AND [Employee Location] <> '" & myLoc & "'")
 
 
 
  With MailOutLook
 
  .Subject = Format(Now, "mm/dd/yy") & " Data Update"
 
  .body = "Attached please find the daily data update"
 
  .To = myRecip
 
  .Attachments.Add FileNameZip
 
  .Send
 
  End With
 
 
 
  End Sub
 
 
 
 
 
 
 
  Sub NewZip(sPath)
 
  'Changed by keepITcool Dec-12-2005
 
 
 
      If Len(Dir(sPath)) > 0 Then Kill sPath
 
      'Create empty Zip File
 
      Open sPath For Output As #1
 
      Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
 
      Close #1
 
 
 
  End Sub
 
 

newzip is something I actually found on excel site, it is pretty generic and should work as is. ZipnSend is tailored to my application so you'll need to tweek it to use in your app.