[AC-2007] Envoi Mail automatique [Résolu]

[pop.paki]

Bonjour,

Je débute complétement en VBA voici ce que j'aimerais faire:

Dans un formulaire lorsque l'on appuie sur un bouton ça enregistre l'enregistrement dans une table et ca demande un mail à taper afin d'envoyer le dernier enregistrement.

J'aimerais pouvoir mettre en forme le mail type:

Bonjour,

Suite à .....

Nous sommes tombés d'accord sur:

- [Si casserole cochée] Casserole à [Champs prix]
- [Si assiette cochée] Assiette à [Champs Prix]

Merci pour votre confiance

Cordialement,

XXX

Est ce possible

Merci beaucoup pour vos reponses

[pop.paki]

Bonjour,

En premier lieu j'ai essayé d'utiliser l'action de macro envoyerobjet. Mais a chaque fois que j'envoi ou je ferme outlook, access plante avec un rapport d'erreur.

Deuxième chose le pdf joint affiche tous les enregistrements de la table et non le formulaire que j'ai devant les yeux.

Savez vous comment au moins règler ces problèmes ?

Merci

[Nitsuja]

Bonjour,

Je n'ai jamais utiliser cette macro mais il est possible de piloter outlook sur Access en utilisant VBA.

[pop.paki]

Oui mais mon access plante suite à la fermeture d'outlook ou envoi du mail

[pop.paki]

Personne sur ce problème ?

Une idée pour faire un équivalent de la macro envoyerobjet mais par VBA ?

Merci

[pop.paki]

Si vous cherchez encore la réponse je l'ai trouvée la voici. A noter que la commande sendObject plante donc il faut reconstruire la méthode:

Code :

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
 
DoCmd.OpenQuery "R_PDF"
DoCmd.OpenForm "F_Propal_EnvoiMail"
DoCmd.OutputTo acOutputForm, "", acFormatPDF, "C:\Documents and Settings\David\Bureau\David\Projet\Temp\Proposition.pdf"
DoCmd.Close acQuery, "R_PDF"
 
Dim MonOutlook As Object
Dim MonMessage As Object
Set MonOutlook = CreateObject("Outlook.Application")
Set MonMessage = MonOutlook.CreateItem(0)
 
With MonMessage
.To = Forms![Sites]![Contacts_editeurs]![Mail]
.Cc = "Mon mail"
.Subject = "Mon objet"
.BodyFormat = olFormatHTML
.HTMLBody = "<FONT FACE='Verdana' SIZE=-1>"texte"
.Attachments.Add "C:\Documents and Settings\David\Bureau\David\Projet\Temp\Proposition.pdf"
.Display
.Send
 
End With
 
DoCmd.Close acForm, "F_Propal_EnvoiMail"
DoCmd.Close acForm, "F_Creation_Propal"
 
Set MonOutlook = Nothing

Pour info:

R_Pdf est une requête qui me permet d'isoler un enregistrement sur un formulaire

F_EnvoiMailPropal est un formulaire qui me permet de mettre en forme mon pdf final

Forms![Sites]![Contacts_editeurs]![Mail] me permet de prendre directement le bon mail de ma table grâce au formulaire principal

1° le pdf est enregistré dans un dossier
2° je l'attache au mail

Enfin si vous ne voulez pas que le mail parte automatiquement il suffit d'enlever .Send

Voila