Salut,
Le fait d'utiliser deux fois "SendObject"... envoie évidement deux messages!
Par contre, tu peux exporter les deux états sous format Excel et ensuite les envoyer en fichier joint en utilisant cette
fonction.
Il faut juste modifier un peu la fonction, et ajouter une seconde ligne ".Attachements.Add", ce qui donne quelque chose comme :
'Exporter
DoCmd.OutputTo acOutputReport, "état1", "acFormatXLS", "C:\Fichier1.xls"
DoCmd.OutputTo acOutputReport, "état2", "acFormatXLS", "C:\Fichier2.xls"
'Envoyer
SendMailAutomation
'et placer la fonction dans un module général (ou sous le formulaire, mais elle ne sera utilisable que dans ce formulaire)
Sub SendMailAutomation()
Dim Ol_App As New Outlook.Application
Dim Ol_Item As Outlook.MailItem
Set Ol_Item = Ol_App.CreateItem(olMailItem)
'
With Ol_Item
.To = "destinataire@domaine.fr"
.Subject = "L'objet du message"
.Body = "Le corps du message"
.Attachments.add "C:\Fichier1.xls"
.Attachments.add "C:\Fichier2.xls"
.Save
.Send
End With
'
Set Ol_Item = Nothing
Set Ol_App = Nothing
End Sub
Cordialement,
Pierre(3stone)
© 2004-2013 
