Function
Outlook_Test()
Dim
strDbName
Dim
objApp
Dim
strFileName
As
String
Dim
strSubject, strBody, strAddresses
As
String
strDbName =
"C:\Stammdaten\Stammdaten.mdb"
Set
objApp = CreateObject(
"Access.Application"
)
objApp.OpenCurrentDatabase strDbName
Set
rsQuery = dbs.OpenRecordset(
"Update_Inventory_Value"
)
strSubject:
"Inventory Level Update"
strAddresses =
"blah@blah.de; blah1@blah.de"
strBody = CopyFromRecordset(rsQuery)
DoCmd.SendObject acSendNoObject, acFormatTXT, strAddresses, , , strSubject, strBody,
True
End
Function