Option Compare Database
 
'------------------------------------------------------------
' m_GK_Report_xls_transfer
'
'------------------------------------------------------------
Function m_GK_Report_xls_transfer()
On Error GoTo m_GK_Report_xls_transfer_Err
 
    DoCmd.SetWarnings False
    ' qxls_Export_Steuerung_aktualisieren
    DoCmd.OpenQuery "qxls_Export_Steuerung_aktualisieren", acViewNormal, acEdit
    ' Transfertyp: Exportieren / Dateiformat: Microsof Excel 8.0 / 
    ' Tabellenname: qGK_Report_Excel / Dateiname: O:\ber\2008\BMS\GK_Report.xls 
    '  / Feldnamen: Ja / Bereich: leer
    DoCmd.TransferSpreadsheet acExport, 8, "qGK_Report_Excel", _
      "O:\ber\2008\BMS\GK_Report.xls", True, ""
    ' Transfertyp: Exportieren / Dateiformat: Microsof Excel 8.0 / 
    ' Tabellenname: qGK_BewegKost / Dateiname: O:\ber\2008\BMS\GK_Report.xls  / 
    ' Feldnamen: Ja / Bereich: leer
    DoCmd.TransferSpreadsheet acExport, 8, "qGK_BewegKost", _
      "O:\ber\2008\BMS\GK_Report.xls", True, ""
    ' Transfertyp: Exportieren / Dateiformat: Microsof Excel 8.0 / 
    ' Tabellenname: tSteuerung_zeit / Dateiname: O:\ber\2008\BMS\GK_Report.xls  
    ' / Feldnamen: Ja / Bereich: leer
 
m_GK_Report_xls_transfer_Exit:
    Exit Function
 
m_GK_Report_xls_transfer_Err:
    MsgBox Error$
    Resume m_GK_Report_xls_transfer_Exit
 
End Function

Sub Schaltfläche1_BeiKlick()
  ' Aufruf Unterprogramm "senden"
  Call senden
End Sub
 
 
Private Sub senden()
  ' Outlook Applikation
  Dim ool As Outlook.Application
  Dim oInspector As Outlook.Inspector
  Dim oMail As Outlook.MailItem
  Dim myattachments As Variant
 
 
  Dim MailAdress
  MailAdress = "xyz@web.de"
 
 
  ' Verweis zu Outlook + neue Nachricht
  Set ool = CreateObject("Outlook.Application")
  Set oMail = ool.CreateItem(olMailItem)
  Set myattachments = oMail.Attachments
 
  ' Befreff-Zeile
  oMail.Subject = "Stand dieser Liste: " & _
    Format(Date, "Long Date") & " !"
 
  ' An-Zeile (Empfänger)
  oMail.To = MailAdress   ' "g.huber@unilog.at"
  oMail.Recipients.ResolveAll
  oMail.Display
 
  ' Texteingabe (Nachricht selbst)
  oMail.Body = "Hier die Exceldatei, bitteschön..."
 
 
  ' Anhang
  ' Der vollständiger Pfad muß angegeben sein.
  ' Es können auch weitere Dateien angegeben werden.
  ' Hierzu einfach mit myattachments.Add "???" fortsetzen.
  myattachments.Add "D:\_o\Ber\2008\GK_Report.xls"
 
' oMail.Save
' oMail.Send
 
  ' Speicher freigeben
  Set ool = Nothing
  Set oInspector = Nothing
  Set oMail = Nothing
End Sub