Ik wil met de volgende tekst , meerdere tabellen automatisch door outlook laten verzenden. 1 tabel lukt me nog met onderstaande tekst, echter hoe krijg ik het voor elkaar meerdere bestanden in xls. in dezelfde email als attachment te verzenden.
alvast bedankt voor jullie hulp
Public Function runprocess()
'1 auto VOORWAARDEN
'2 TABEL COMPLEET
'3 NIET VERKOCHT VERKLAARDE AUTOS
'4 garantie label gewijzigd natl
'5 LK GEGEVENS NIET INGEVULD VOOR HUIDIGE DATUM
'7 auto VOORWAARDEN IN HANDEL
'Email
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "1 auto VOORWAARDEN"
DoCmd.OpenQuery "2 TABEL COMPLEET"
DoCmd.OpenQuery "3 NIET VERKOCHT VERKLAARDE AUTOS"
DoCmd.OpenQuery "4 garantie label gewijzigd natl"
DoCmd.OpenQuery "5 LK GEGEVENS NIET INGEVULD VOOR HUIDIGE DATUM"
DoCmd.OpenQuery "7 auto VOORWAARDEN IN HANDEL"
Dim onderwerp As String
Dim tekst As String
onderwerp = "auto in af te leveren rapportage "
tekst = "zie bijlagen!" & vbCrLf & vbCrLf _
& "Met vriendelijke groet," & vbCrLf _
& "afzender" & vbCrLf _
& "helpdesk" & vbCrLf _
& "Tel: " & vbCrLf & vbCrLf
DoCmd.SendObject acSendQuery, "1 auto voorwaarden", acFormatXLS, "help@me.nl;", , , onderwerp, tekst, False
MsgBox "Process klaar"
alvast bedankt voor jullie hulp
Public Function runprocess()
'1 auto VOORWAARDEN
'2 TABEL COMPLEET
'3 NIET VERKOCHT VERKLAARDE AUTOS
'4 garantie label gewijzigd natl
'5 LK GEGEVENS NIET INGEVULD VOOR HUIDIGE DATUM
'7 auto VOORWAARDEN IN HANDEL
DoCmd.SetWarnings (False)
DoCmd.OpenQuery "1 auto VOORWAARDEN"
DoCmd.OpenQuery "2 TABEL COMPLEET"
DoCmd.OpenQuery "3 NIET VERKOCHT VERKLAARDE AUTOS"
DoCmd.OpenQuery "4 garantie label gewijzigd natl"
DoCmd.OpenQuery "5 LK GEGEVENS NIET INGEVULD VOOR HUIDIGE DATUM"
DoCmd.OpenQuery "7 auto VOORWAARDEN IN HANDEL"
Dim onderwerp As String
Dim tekst As String
onderwerp = "auto in af te leveren rapportage "
tekst = "zie bijlagen!" & vbCrLf & vbCrLf _
& "Met vriendelijke groet," & vbCrLf _
& "afzender" & vbCrLf _
& "helpdesk" & vbCrLf _
& "Tel: " & vbCrLf & vbCrLf
DoCmd.SendObject acSendQuery, "1 auto voorwaarden", acFormatXLS, "help@me.nl;", , , onderwerp, tekst, False
MsgBox "Process klaar"