Discussion :

[tiopan]

je souhaite joindre une table dans un mail générer par le code ci dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
Public Sub CreateEmail(Recipient As String, Subject As String, Body As String, Optional Attach As Variant, Optional VoteOption As String, Optional ConfirmeLecture As Boolean)
On Error GoTo Err_CreateEmail
Dim appOutLook As Outlook.Application
Dim oEmail As Outlook.MailItem
 
    ' créer un nouvel item mail
    Set appOutLook = CreateObject("Outlook.Application")
    Set oEmail = appOutLook.CreateItem(olMailItem)
    ' les paramètres
    oEmail.To = Recipient
    oEmail.Subject = Subject
    oEmail.Body = Body
    oEmail.VotingOptions = VoteOption
    oEmail.ReadReceiptRequested = ConfirmeLecture
    ' s'il y a des pièces jointes
    If Not IsMissing(Attach) Then
        oEmail.Attachments.Add Attach
    End If
    ' envoie le message
    oEmail.Send
 
Err_CreateEmail:
   Exit Sub
End Sub

pour cela j'appele par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call CreateEmail(Destinataire_mail, "title", "message", nom_table_à_joindre, , False)

comment declarer nom_table_à_joindre pour qu'il comprenne que c'est une table?

[Tofalu]

Logiquement les pièces attachées sont des fichiers non ? Et non pas des objets Access

Sinon, une autre solution : http://access.developpez.com/sources/?page=ole#MailHTML