Discussion :

[eti_lac]

Bonjour,

Je souhaite envoyer depuis mon application Access un email mis en forme (police, coulers, images, tableaux) qui contient des données variables (date du jour, nom du client, montant du devis, etc.).

J'ai essayé via la méthode Docmd.SendObject en créant un état mais l'état est en pièce jointe.

Or je souhaite que les données variables soient dans le corps du message tout en conservant la mise en forme du modèle.

J'imagine que c'est un problème assez classique mais je n'ai pas trouvé la solution sur le forum.

J'utilise Access 2007

Merci d'avance.

[imsse]

salut je ne sais pas si sa répond a ta question mais voila ce que j'ai trouver pour envoyer un mail via access et sa à l'air de marcher

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
27
28
29
30
31
32
33
34
35
Private Sub Commande11_Click()
Dim olApp As Outlook.Application
  Dim EMail As Outlook.mailItem
  Set olApp = New Outlook.Application
  'Déclaration d'une variable ADO :
  Dim bds As New ADODB.Recordset
 bds.Open "R_Sélect_Email", CurrentProject.Connection
 
  ' On se positionne sur le premier enregistrement :
  bds.MoveFirst
  ' Tant que le dernier enregistrement n'est pas atteint :
  While Not bds.EOF
  ' On affiche le contenu du champs NomPrenom et EMail :
  Set objSession = olApp.GetNamespace("MAPI")   'Création de l'objet de gestion des message
  Set ObjMessage = ObjOutl.CreateItem(0)   'Ajout d'un item pour le message
 
    Set EMail = olApp.CreateItem(olMailItem)
   Set myAttachments = EMail.Attachments
 
    With EMail
    .To = "mail@mail.com"
    .Subject = "Ma société"
    .Attachments.Add (Forms!Employés1.Fiche_Id.Hyperlink.Address)
    .Body = "Ceci est un test. Ne pas répondre à ce message."
    .Display
    .Send
    End With
    ' On va sur le suivant :
   bds.MoveNext
  Wend
  ' On ferme et on libère la variable :
  bds.Close
  Set bds = Nothing
 
End Sub

bon courage.