Discussion :

[BGIE_29300]

Bonjour Excelliens !

Grâce à ce site, j'ai réussi à résoudre une partie de mon problème, mais pas la totalité, d'où ce SOS !

Je souhaiterais répondre à un mail d'Outlook en fonction d'un terme (n° de devis) se trouvant dans un tableau Excel et dont ce terme se trouve également dans l'objet d'un email sous Outlook, email qui se trouve dans le Dossier "BGIE" de la boite de réception.

J'ai rédigé tout le code (cf. ci-dessous) pour trouvé le mail dans Outlook en fonction du terme et pour ouvrir celui-ci.
Mais, je suis peut-être fatigué ... (voire stupide), je n'arrive pas à créer un mail de réponse au mail trouvé. J'ai essayé de glisser ".reply" mais rien ...

Comme j'ai également vu sur internet comment répondre à un mail sélectionné (j'ai essayé, et cela fonctionne), cela pourrait être la solution, mais le problème est que je ne sais pas codé sur Excel /VBA pour dire de sélectionner le mail. (je sais l'ouvrir en VBA, mais pas le sélectionner ...)

J'espère avoir été assez clair dans ma demande.

Voici le code pour ouvrir le mail contenant le terme "v01_b" :

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
35
36
37
38
39
40
Sub M_Recherche_dans_dossier_particulier_Objet_contenant()
 
 
 
    AA = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.Count       'Nombre de message ds boite principale
    BB = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders.Count     'Nombre de dossiers
 
    For I = 1 To BB
        CC = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders(I) 'Affiche tous les dossiers
        If CC = "BGIE" Then
            NUM_DOSSIER = I
            Exit For
        End If
    Next I
 
    If I = "" Then
        MsgBox "Rien trouvé dans le répertoire désigné."
        Exit Sub
    End If
 
    sj = "V_01b"    'terme recherché
 
    With GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders(NUM_DOSSIER)
        For I = 1 To .Items.Count
            If TypeOf .Items(I) Is Outlook.MailItem Then
              If UCase(.Items(I).Subject) Like "*" & UCase(sj) & "*" Then
                n = I
              End If
            End If
        Next
    End With
 
 
    If n = "" Then
        MsgBox "Rien trouvé dans la boite de réception."
    Else
        GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders(NUM_DOSSIER).Items(n).Display
    End If
 
End Sub

Merci d'avance pour votre aide.

[joe.levrai]

Bonjour,

un exemple

Code :

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

1
2
3
4
5
6
7
8
With GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders(NUM_DOSSIER).Items(n)
    Reponse = .HTMLBody
 
    With .Reply
        .HTMLBody = "toto" & vbCrLf & Reponse ' adapter bien sûr
        .Display 
    End With
End With

[BGIE_29300]

Super merci !