Discussion :

[Skoat]

Bonjour à tous,

je suis en train de compléter une base access que j'ai crée pour mon entreprise, et je bug sur un point.

Je souhaite envoyer par mail 4 états différents.

J'ai testé différentes choses :

- 4 macros "envoi objet" = 4 mails différents
- 1 macro avec 4 "envoi objet" = 4 mails différents

En utilisant une seule macro, j'arrive à envoyer mes 4 états mais pas comme je le souhaite.

En un clic, il ouvre Lotus Notes, me crée 4 mails différents, avec une pièce jointe (un état) par mail.

Je souhaiterai n'avoir qu'un seul mail, avec mes 4 états en pièces jointes dedans.

Pouvez-vous m'aider svp . Merci d'avance

[Jeannot45]

et bienvenue sur le forum de DVP

Est-ce que ce sujet tiré de la peut t'apporter une aide :
Envoyer un mail avec Lotus

[Skoat]

Oui j'ai déjà regardé, mais je ne vois pas comment envoyer plusieurs états dans le même mail, tous en pièces jointes.

[Jeannot45]

Peut-être en créant une boucle et en concaténant les pièces jointes en séparant par un ;
Un peu comme dans Outlook

[Skoat]

Cela ne fonctionne pas.


J'ai peut être une idée : comment fait-on pour voir la programmation d'une macro ?

J'ai fait : insertion/macro, j'ai crée 4 lignes "EnvoyerObjet", ça me donne 4 mails différents.

En voyant la programmation de cette macro je pourrais peut être la modifier à ma guise, mais comment faire pour voir cette procédure évennementielle ?

[Skoat]

J'ai trouvé : outils/Macros/Convertir en VBA.

Voici ce que cela me donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function zzzzzzzzzzzzz1()
On Error GoTo zzzzzzzzzzzzz_Err
 
    DoCmd.SendObject acReport, "Graph - Litiges par motif - Nb lignes", "SnapshotFormat(*.snp)", "NOM CONTACT MAIL", "", "", "", "", False, ""
 
 
zzzzzzzzzzzzz_Exit:
    Exit Function
 
zzzzzzzzzzzzz_Err:
    MsgBox Error$
    Resume zzzzzzzzzzzzz_Exit
 
End Function

SendObject ne permet-il d'envoyer qu'un objet ? J'ai essayé ceci, sans succès :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function zzzzzzzzzzzzz()
On Error GoTo zzzzzzzzzzzzz_Err
 
    DoCmd.SendObject acReport, "Graph - Litiges par motif - Nb lignes" And "REQ - litiges : top IFLS (Nb lignes)", "SnapshotFormat(*.snp)", "NOM CONTACT LOTUS", "", "", "", "", False, ""
 
 
zzzzzzzzzzzzz_Exit:
    Exit Function
 
zzzzzzzzzzzzz_Err:
    MsgBox Error$
    Resume zzzzzzzzzzzzz_Exit
 
End Function

Cela me met comme message : incompatibilité de type !

Alors comment faire pour intégrer 2 objets dans la même procédure ?