Discussion :

[euskal75]

Bonjour,
Ai fait, je pense, le tour des tutoriels mais je n ai pas trouvé ce que je cherchais.J'ai donc trouvé sur je ne sais plus quel site ce code :

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
Private Sub Commande130_Click()
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.To = Forms![CONTACT].[EMAIL1] & ";" & Forms![CONTACT].[EMAIL2]
  MonMessage.CC = "toto@societe.com"
  MonMessage.Subject = "Test "
  MonMessage.Body = ""
  MonMessage.Send
  Set MonOutlook = Nothing
 
End Sub

pour envoyer mon mail.Ca marche très bien.
Par contre, comment faire pour pouvoir y joindre un fichier?
En fait je dois joindre un état que j ai transformé en PDF.
Je compte donc faire une macro qui, quand je clique sur le bouton
- génère le document PDF à partir de l'état - ok (avec tutoriel cafeÏne)
- Envoie un mail aux adresses presentes dans mon formulaire - ok
- en y joignant le doc PDF qui vient d'être généré...pas ok !!
Je me permets de décrire toute la manip, parceque peut être suis je mal partie dans mon projet?.....
Je n'arrive pas a trouver la syntaxe qui me permettrait de pouvoir sélectionner mon fichier a joindre.J'ai effectivement vu un tutoriel a ce sujet, mais qui, je pense ne convient pas a mon cas.
Merci d'avance à celui qui peut m'aider...

[cafeine]

Hello,

pour joindre une pièce, regarde dans la FAQ :
http://access.developpez.com/faq/?re...r=outlook+mail

[euskal75]

En effet j'ai vu cette FAQ, je suis dessus, mais je ne suis pas un cador en code et je n'arrive pas a lancer ca en cliquant sur un bouton.
Ou dois je placer ce code? Ca bug si je le mets sur evenement click en effet j ai:

Code :

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

1
2
3
4
Private Sub Commande130_Click()
Public Sub CreateEmail( _
    Recipient As String, _
...

Je bidouille depuis toute a l heure et je n arrive a rien.
(J ai "adapté" le code a mes variables)
Et avec la première option, il n y a pas de solution pour attacher ce satané fichier?

[euskal75]

J'avance doucement, j ai trouvé la syntaxe pour ajouter le fichier:

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
Private Sub Commande130_Click()
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.To = Forms![CONTACT].[EMAIL1] 
  MonMessage.CC = "toto@societe.com"
  MonMessage.Subject = "Test "
  MonMessage.Body = ""
  MonMessage.Attachments.Add "C:\copie\ac.txt"
  MonMessage.Send
  Set MonOutlook = Nothing
 
End Sub

Mais par contre pour rendre cela variable...??? C'est à dire que le prog ouvre une fenêtre windows avec un "Parcourir" afin que je puisse aller selectionner mon fichier sur mon disque?

[euskal75]

Bon alors, je parle toute seule mais si ca peut aider quelqu'un....
En fait dans PDF créator on peut forcer le nom du document PDF généré.
Donc il suffit que je reprenne ce nom dans le code.
Par contre comment enchainer
1 - Apercu de l'état (nécessaire à l'utilisateur)
2 - Imprimer sur PDF Creator (et donc générer le fichier PDF)
3 - Envoyer le mail
Je ne m 'en sors pas en macro...Dois je me servir des "executer code" et dans ce cas comment enregistrer ces codes qui fonctionnent pour pouvoir les "appeler" dans la macro??

[Lou Pitchoun]

Salut,

Par contre comment enchainer
1 - Apercu de l'état (nécessaire à l'utilisateur)
2 - Imprimer sur PDF Creator (et donc générer le fichier PDF)
3 - Envoyer le mail

1- Tu peux y mettre un bouton non imprimable sur l'état qui va appeler une focntion de génération de PDF.
2- Regarde le tutoriel de Cafeine sur la génération des PDF
3- Une fois le PDF généré tu appelles la fonction d'envoi de mail.

Ex :

Code :

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

1
2
3
4
5
6
Sub EnvoiMail()
 
    'Appel fonction de génération du PDF cf tuto
    'Appel fonction envoi de mail
 
End Sub

[euskal75]

Ok pour le tutoriel de caféïne, par contre je ne comprends pas ta "fonction d'envoi mail"....
En fait, suis partie sur un bouton enchainant les commandes

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
Private Sub Compte_rendu_Click()
On Error GoTo Err_Compte_rendu_Click
 
    Dim stDocName As String
 
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    stDocName = "COMPTE RENDU"
    DoCmd.OpenReport stDocName, acNormal
 
    Dim MonOutlook As Object
  Dim MonMessage As Object
 
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  MonMessage.To = Forms![CONTACT].[EMAIL1]   MonMessage.CC = "toto@societe.com"
  MonMessage.Subject = "Test - Compte-rendu"
  MonMessage.Body = ""
  MonMessage.Attachments.Add "C:\Documents and Settings\toto\Mes documents\compterendu.pdf"
  MonMessage.Send
 
  Set MonOutlook = Nothing
Exit_Compte_rendu_Click:
    Exit Sub
 
Err_Compte_rendu_Click:
    MsgBox Err.Description
    Resume Exit_Compte_rendu_Click
 
End Sub

Il me reste un souci, c'est que je n'arrive pas a forcer l'impression sur l'imprimante PDFCreator, afin d'être sure que mon document compterendu.pdf soit bien généré...Il ne sagirait pas d'envoyer à un fournisseur le compte rendu fait avec le fournisseur précedent

[Lou Pitchoun]

Ok pour le tutoriel de caféïne, par contre je ne comprends pas ta "fonction d'envoi mail"....
En fait, suis partie sur un bouton enchainant les commandes

Il me reste un souci, c'est que je n'arrive pas a forcer l'impression sur l'imprimante PDFCreator, afin d'être sure que mon document compterendu.pdf soit bien généré...Il ne sagirait pas d'envoyer à un fournisseur le compte rendu fait avec le fournisseur précedent

Le code que tu as mis est le code d'envoi de mail. La focntion envoimail j'aurais du l'appeler GeneratePDFSend

Pour ce qui est de l'impression avec l'imprimante PDFcreator : si tu as appliqué le tuto : ça le fait tout seul. point V-B

En fait tu devrais avoir ça pour le bouton de l'état :

Code :

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

1
2
3
4
5
6
Sub GeneratePDFSend()  
 
    getPDF
    EnvoiMail
 
End Sub

A adapter un peu pour récupérer des infos nécessaire par exemple le mail du fournisseur à partir du formulaire. Ou si son adresse est présente sur l'état alors récupère le à partir de l'état directement.
Pour le nom du PDF concatène le nom de l'état et celui du fournisseur et/ou la date. A toi de voir.

PS : pense aux balises code : bouton # de l'éditeur.

[euskal75]

excuse moi pour les balises...
Je n'ai pas le temps de voir ce que tu me dis là.Je me remettrai la dessus mercredi
En tout cas merci pour ton aide.
Bon week end et joyeux noël !