Discussion :

[John86]

Bonjour à tous,

malgrés mes recherches sur divers forums, je rencontre une difficulté que je n'arrive pas à résoudre seul.

Pour résumer, tous les jours j'envoi un mail généré depuis Excel 2010 par du code VBA contenant divers informations (adresse, messages, objet, PJ etc...). Ca marche très bien.

Cependant, j'aimerai ajouter à ce mail (généré via un bouton VBA depuis Excel donc) un bouton de "validation" qui exécuterai un code X de mon choix. Ce bouton serait donc créer par VBA depuis Excel 2010 également dans le même code qui envoi le mail généré.

J'espère être assez clair dans mon explication/ma demande. Je ne cherche pas forcément un code tout cracher à copier/coller mais un début de piste. Je n'ai pas vraiment d'idée pour faire ce code.

Merci par avance,
Jonathan.

[Oliv-]

Salut,
Cela dépend de ta méthode d'envoi si c'est de l'automation outlook ou du CDO.
Si c'est de l'outlook, il te faut une couche directement dans outlook sur l'événement itemSend dans ThisoutlookSession avec l'interception d'un MOT dans le sujet par exemple.

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 Application_ItemSend(ByVal item As Object, Cancel As Boolean)
'by oliv modifiée le 20/02/2013

    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

     '###########verification SI PUBLIPOSTAGE #################################
    If UCase(item.subject) Like "*PUBLIPOSTAGE*" Then
        On Error Resume Next
'ici ton code

        'On supprime le terme PUBLIPOSTAGE du sujet
        item.subject = Replace(item.subject, _
                               "PUBLIPOSTAGE", "")
        
        'On sauvegarde le mail
        item.Save
        'on va directement à la fin pour éviter les questions sur l'envoi
        GoTo fin

    End If
fin:
End sub