Discussion :

[zermatt]

Bonjour, j'ai deux questions basiques concernant l'envoi d'un état par mail au format PDF.
L'état est filtré sur l'enregistrement en cours.

Le code fonctionne quasi parfaitement et j'obtiens le résultat escompté, mais après avoir cherché un peu partout, j'ai deux petites colles.

1ère question - Je ne souhaite pas d'aperçu, ni d'impression après que le fichier Pdf soit enregistré et aille en pièce jointe dans le mail, ce qui est le cas ici.
Est-ce que DoCmd.OpenReport le permet ou faut-il passer par une autre commande ?

2ème question - Est-il possible de valider automatiquement l'envoi sans avoir à cliquer sur le bouton "envoyer" d'Outlook. ?

Merci par avance.

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
'ENVOI FACTURE PAR MAIL
 
Dim oOutLook As Outlook.Application
Dim oEmailItem As MailItem
 
DoCmd.OpenReport "FACTURE", acViewPreview, , "[NOM]=[Forms]![LISTECLIENTS]![NOM]"
DoCmd.OutputTo acOutputReport, , "PDF", "c:\facture.pdf"
 
If oOutLook Is Nothing Then
    Set oOutLook = New Outlook.Application
End If
 
Set oEmailItem = oOutLook.CreateItem(olMailItem)
With oEmailItem
        .To = Me.EMAIL
        .CC = ""
        .Subject = "Facturation..."
        .Body = "Veuillez trouver ci-joint...."
        .Attachments.Add "c:\facture.pdf"
 
        .Display
End With
 
Set oEmailItem = Nothing
Set oOutLook = Nothing
Kill "c:\facture.pdf"

note : si je mets DoCmd.OpenReport "FACTURE", acViewReport, ... en place de acViewPreview, tout naturellement j'ai une impression

[hyperion13]

Salut,
Une piste
1er

Code :

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

DoCmd.OpenReport "FACTURE", acViewReport, , "[NOM]=[Forms]![LISTECLIENTS]![NOM]", acHidden

entre L27 et L28

Code :

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

DoCmd.Close acReport, "FACTURE"

2nd
.Display permet de visualiser le mail
.Send permet de l'envoyer

[zermatt]

Merci infiniment, c'est parfait !!!!