Discussion :

[Ricefab02]

Bonjour,

Après avoir trouvé la discussion
https://www.developpez.net/forums/d1...quement-macro/
j'ai mis le code ci-dessous, dans ThisOutlookSession.

Mais cela ne fonctionne pas. je veux bien quelque explication sur la fin du 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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Private Sub Application_ItemSend(ByVal item As Object, Cancel As Boolean)
 
   Dim prompt As String
    Dim taille, pieces
    Dim objNS As NameSpace
    Dim objFolder As MAPIFolder
 
    ' on verifie que c'est un mail
    If Not item.Class = olMail Then GoTo fin
 
    If item.Subject Like "Devis N°" Then
        'On Error Resume Next
        'Pour ajouter la même PJ à tous
        item.Attachments.Add "C:\scan2801.PDF"
 
 'Pour ajouter un document personnalisé d'après le destinataire _
         du mail décommenter
        ' ici le nom du document est "destinataire@domaine.fr.doc"
        'docperso = "d:\temp\monmailing\" & item.To & ".doc"
        'item.Attachments.Add Source:=docperso
 
        'On sauvegarde le mail
        item.Save
        'on va directement à la fin pour éviter les questions sur l'envoi
      GoTo fin
    End If
 
    '#######FIN #######
fin:
 
    Set item = Nothing
 
End Sub

Cordialement,

[Oliv-]

Hello

Il faut activer les macros pour l'utiliser

C est quoi ton besoin ?

[Ricefab02]

Oui Macro activé,

je veux ajouter les CGV (1 pdf) au devis generé par le logiciel tiers qui lance outlook directement.