Discussion :

[challe1976]

Bonjour,

J'ai un application Access qui créer un fichier PDF, par la suite, une fois le fichier PDF ouvert, l'envoyer par mail.

Je connais la procédure pour envoyer un fichier Excel par mail mais envoyer un fichier PDF, est-ce possible?

Merci.

Catherine

J'ai essayer un truc mais ça ne fonctionne pas. :-(

Voici mon 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
16
17
18
19
 
 
Private Sub BDCEnvoiPDF_Click()
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim PDF As Object, Classeur As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  Set PDF = GetObject(, "PDF.Application")
  Set Classeur = XL.ActiveWorkbook
  MonMessage.to = "test@test.hotmail.com"
  MonMessage.Attachments.Add Classeur.FullName
  MonMessage.Subject = "Bla bla bla"
  Corps = Corps & "Bla bla bla"
  MonMessage.Body = Corps
  MonMessage.Send
  Set MonOutlook = Nothing
  MsgBox "Courriel envoyé"
End Sub

[ClaudeLELOUP]

Bonjour,

Regarde ici un exemple : http://claudeleloup.developpez.com/t...plic-ploc/#LVI

[Dixies]

Bonsoir,

Impossible n'est Access ...

Apparemment, il faut voir avec Docmd.OutPutTo

As-tu vu ceci ? :
http://www.developpez.net/forums/d12...-jointes-mail/
http://warin.developpez.com/access/pdf/

Bonne soirée

[challe1976]

Oui, merci

Mais ça ne correspond à ce que je veux : mon fichier PDF est deja ouvert.

Est-ce que le pdf correspond à oFld quand on le nomme dans le code suivant parce que ça ne fonctionne pas.

Merci.

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
 
 
Private Sub BDCEnvoiPDF_Click()
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim PDF As Object, Classeur As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  Set PDF = GetObject(, "PDF.Application")
  Set Classeur = XL.ActiveWorkbook
  MonMessage.to = "mail@mail.com"
  MonMessage.Attachments.Add Classeur.FullName
  MonMessage.Subject = "bla bla"
  Corps = Corps & "Bla bla bla
  MonMessage.Body = Corps
  MonMessage.Send
  Set MonOutlook = Nothing
  MsgBox "Courriel envoyé"
End Sub

[ClaudeLELOUP]

Oui, merci

Mais ça ne correspond à ce que je veux : mon fichier PDF est deja ouvert.

[challe1976]

Je ne sais pas à quel endroit l'intégrer dans mon code et ce que je dois changer :

Pouvez-vous m'aider ?

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
 
 
Private Sub BDCEnvoiExcel_Click()
 
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim XL As Object, Classeur As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  Set XL = GetObject(, "Excel.Application")
  Set Classeur = XL.activeworkbook
  MonMessage.to = "mail@mail.com"
  MonMessage.Attachments.Add Classeur.FullName
  MonMessage.Subject = "Bla Bla Bla"
  Corps = Corps & "Bla Bla Bla"
  MonMessage.Body = Corps
  MonMessage.Send
  Set MonOutlook = Nothing
  MsgBox "Courriel envoyé"
 
End Sub

[ClaudeLELOUP]

[challe1976]

J'ai écris le lien mais ce qui est en gras change à chaque semaine le nom du dossier et du fichier,
je pensais qu'il existait une commande qui pouvait dire le fichier ouvert sans le nommer.

Et il bloque à la ligne en gras:

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
Private Sub BDCEnvoiPDF_Click()
  Dim MonOutlook As Object
  Dim MonMessage As Object
  Dim XL As Object, Classeur As Object
  Set MonOutlook = CreateObject("Outlook.Application")
  Set MonMessage = MonOutlook.CreateItem(0)
  Set XL = GetObject(, "Excel.Application")
  Set Classeur = XL.ActiveWorkbook
  MonMessage.to = "mail@mail.com"
  MonMessage.Attachments.Add "K:\42200EXP\_Exploit_Donnees\Operationnels\OP2008-003 - Double facturation RMX\2014\12-DÉCEMBRE\E-EX5197-B_20141231.pdf"
  MonMessage.Subject = "Bla Bla Bla"
  Corps = Corps & "Bla Bla Bla"
  MonMessage.Body = Corps
  MonMessage.Send
  Set MonOutlook = Nothing
  MsgBox "Courriel envoyé"

End Sub

[ClaudeLELOUP]

Mais que veux-tu faire exactement, que vient faire ton classeur Excel dans l'histoire ?

J'ai compris que tu devais simplement envoyer mail avec un pdf en pièce jointe.

[challe1976]

oui mais le fichier est ouvert et le dossier change tout le temps
je croyais qu'il existait une commande qui pouvait dire le fichier ouvert au lieu d'écrire le chemin au complet

[ClaudeLELOUP]

J'ignore si c'est possible, ça m'étonnerait !

Il faut que tu trouves un moyen pour déterminer le chemin du fichier. Par exemple en ouvrant une boîte de sélection de fichier.


http://access.developpez.com/faq/?pa...#AffBoitDialog