Excel filer vedhæftet i mail

If you have Outlook then you can use automation to attach files etc.


http://msdn.microsoft.com/en-us/library/aa159619(office.11).aspx

DoCmd.SendObject kan kun bruges til at sende 'interne' Access objekter - og et Excelark er ikke af den type.
Så du må gøre som Terry siger - Outlook automation

Du må gerne få den funktion jeg har brugt de sidste par år til at udføre en lignende opgave - husk reference til Outlook.

Public Function fhpOutput_Send_File(strReceipiant As String, strFile_Name As String, strMessage As String, strSubject As String, Optional bolShow As Boolean = True) As Integer
On Error GoTo Error_fhpOutput_Send_File
  Dim olApp As Outlook.Application
  Dim objOL As Object
  Dim olMail As MailItem
  Dim CurrFile As String

  If strReceipiant = "" Then
    GoTo Exit_fhpOutput_Send_File
  End If
 
  Set objOL = CreateObject("Outlook.Application")
  Set olApp = New Outlook.Application
  Set olMail = olApp.CreateItem(olMailItem)
 
  With olMail
    .To = strReceipiant
    .Subject = strSubject
    .Body = strMessage
    .Attachments.Add strFile_Name
    If bolShow = True Then
      .Display
    Else
      .Send
    End If
  End With

  Set olMail = Nothing
  Set olApp = Nothing
  Set objOL = Nothing
 
Exit_fhpOutput_Send_File:
  Exit Function

Error_fhpOutput_Send_File:
  fhpOutput_Send_File = -32768
  Select Case Err.Number
    Case 3021
    Case 2501
    Case Is < 0
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpOutput_Send_File'"
  End Select
  Resume Exit_fhpOutput_Send_File

End Function

Hej Hugopedersen

Du siger at DoCmd.SendObject ikke kan sende Excel filer, det kan jeg nu godt få den til, problemet for mig ligger i, at få den til at kun sende de filer der ligger i den forespørgelse jeg har lavet, og ikke hele tabellen (jeg har b. la. Brugt Mugs fine guide http://www.eksperten.dk/guide/371)

Carsten

OK - jeg har bare aldrig fået det til at virke tilfredsstillende siden jeg prøvede det engang for mange år siden og så lavede jeg min egen funtion til det.

Det du ønsker er det 'For hver record i Tabel1 sendes en fil med de tilhørende records fra Tabel2' ?

Desværre er jeg lige blevet sat på en opgave med en TCP server i Delphi, så jeg kan ikke lige lave det for dig i dag.

Lige præcis

Det virker fint i min forspørgelse, men altså ikke på mine vedhæftede Excel filer, E-mail adressen har jeg fået ud af tabellen og over i mailprogrammet.

Carsten

Hej Alle

Jeg har selv fundet løsningen, tak for hjælpen til alle der prøvede, og rigtig god jul

Carsten

Hej Carsten
Any chance of hearing a bit more about your own solution?

And a Merry Christmas to you too.