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 ?

[Jean-Philippe André]

Salut,
en repensant la méthode, es-tu capable de :
- générer les états au format PDF ?
- envoyer un mail avec ce fichier PDF attaché ?
- envoyer un mail avec plusieurs pièces jointes ?

Ton chemin est tout tracé.

Les éléments fournis par Jeannot45 sont tout à fait adéquats.

[Skoat]

Non je ne sais pas comment générer un fichier PDF via access, je ne savais même pas que cela était faisable !

Envoyer un mail avec une pièce jointe oui, un mail avec plusieurs pièces jointes non, c'est pour cela que j'ai ouvert ce sujet.

Comment faire ?

[Jean-Philippe André]

As-tu lu les liens fournis par Jeannot45 ? tout me semble y être expliqué

[Skoat]

Je n'ai pas réussi, pour parer à mon problème, j'ai formé les utilisateurs à regrouper les pièces jointes en 1 seul mail.

Cela est un peu contraignant mais ça marche.

11 pièces jointes = 11 mails, grace à un glisser/déposer il regroupe tout en un seul.

Merci de votre aide.