Discussion :

[triaguae]

Bonjour

Je voudrais envoyer par macro un pdf d'une feuille, mais sans outlook.

Sous Access j'utilise Docmd.sendObject ........ qui met la pièce jointe dans l'application de messagerie active sur le PC (Thunderbird dans mon cas).

Est-ce que sous Excel il existe un équivalent de cette possibilité d'Access?

Sinon je ferais ça par CDO!

merci

[grisan29]

bonjour damalaan

voici un lien où Patricktoulon a mis un classeur d'envoi de mail sans outlook
et je vais te joindre son évolution qui permet de recevoir un reçu et d'envoyer a destinataire,CC et CCI avec ou sans pièces jointes Pièce jointe 149911

Pascal

[triaguae]

merci pour ce fichier, je le garde sous le coude!

j'ai finalement opté pour une solution avec Thunderbird

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
 
    Dim destinataire As String
    Dim sujet As String
    Dim fichier_joint As String
 
    destinataire =dest1 & "," & dest2
 
    sujet =  ActiveSheet.Cells(15, 5).Value
 
    body = "le corps de texte"
    fichier_joint = "C:\temp\votrePJ.pdf"
 
    strCommand = "C:\Program Files (x86)\Mozilla Thunderbird\thunderbird.exe"
 
    strCommand = strCommand & " -compose " & "to='" & destinataire & "'"
    strCommand = strCommand & "," & "subject=" & sujet & ","
    strCommand = strCommand & "body=" & body
    strCommand = strCommand & "," & "attachment=file:///" & fichier_joint
 
    MsgBox strCommand
 
    Call Shell(strCommand, vbNormalFocus)