Discussion :

[candyneige]

Bonjour à vous.

Merci pour ce que vous faites pour les novices comme nous.

J'ai un soucis. Je chercher à afficher un mail Outlook et à le transférer via VBA.

En fait j'ai un tableau de données qui renferme, le nom des compagnies, et les numéros des factures émises.

les deux ensembles constitue l'objet du mail à envoyer.

Le travail que je fais à mon niveau est le suivant.

- Je sélectionne le nom de la compagnie dans mon fichier excel.
- la macro récupère le nom et le numéro de la facture dans deux variables,
- une troisième variable forme l'objet du mail,
- ensuite la macro va sur outlook et tente de retrouver le mail dont le sender est connu et l'objet correspond à la troisième variable.
- si le mail est trouvé, un message devra s'afficher.


Voici mon 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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Sub recherchemail()
 
Dim Dossier As Folder
Dim MonApp As Outlook.Application
Dim MonMail As Object, lesmails As Object
Dim ns As Object
Dim i As Object
Dim b As Integer
Dim j As Integer
Dim wbra As Workbook
Dim wsud As Worksheet
Dim lrow As Integer
Dim rngco As Range
Dim rnginv As Range
Dim R As Range
Dim data As Variant
Dim senderemail1 As String
Dim objectemail As String
 
 '------------------------------------- recuperation d l'objet du mail--------------------------------------------
Set wbra = ActiveWorkbook
Set wsud = wbra.Worksheets("Unpaid_details")
 
For Each R In Selection
 
    lrow = R.Row
    Set rngco = wsud.Range("C" & lrow)
    Set rnginv = wsud.Range("G" & lrow)
    data = rngco & ("- Oustanding Inv. n°") & rnginv
 
Next R
 
 
 
'------------------------------comparaison email et objet avec emailadresse et objet dans outlook------------------------------------------------
 
On Error Resume Next: Set MonApp = GetObject(, "Outlook.Application"): On Error GoTo 0
If MonApp Is Nothing Then Set MonApp = CreateObject("Outlook.Application")
Set ns = MonApp.GetNamespace("MAPI")
Set Dossier = ns.Folders("Accounting").Folders("Boîte de réception").Folders("UNPAID")
Set lesmails = Dossier.Items
 
'MsgBox "Le Dossier est " & Dossier.Name & " || Nombre de Mails : " & lesmails.Count
 
    j = lesmails.Count
    For b = j To 1 Step -1
    Set i = lesmails(b)
    senderemail1 = i.SenderEmailAddress
    objectemail = i.Subject
       If senderemail1 = "accounting@vatsystems.eu" And objectemail = data Then
            MsgBox "mail trouvé"
            Set MonMail = i.Forward
 
        Exit For
        End If
 
 
End Sub

le problème est que déjà, la recherche dans Outlook ne se fait pas dans l'ordre des message ( du dernier mail au premier mail), il y a des sauts de recherche ( il commence à partir du dernier mail, se retrouve subitement au 300 eme mail par exemple, revient au 5 eme mail .etc...) et a un certain moment, un message d'erreur s'affiche :

Erreur 438" cet objet ne gère pas cette propriété ou méthode

l'erreur apparaît au niveau de la ligne 48. mais au niveau de la ligne au dessus (le paramètre lesmails(b)) il n'y a rien qui s'affiche, c'est comme si le mail n'existe pas.

Je ne sais pas comment le régler.

Si vous avez une piste ça serait formidable.

Merci beaucoup

[Oliv-]

Bonjour,

Ton erreur vient surement du fait que tu ais d'autres éléments que des Emails dans ce dossier.

il faut tester le type d'objet

Code :

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

1
2
3
4
5
6
 If item.Class = olMail Then 
'= c'est bien un Email
' je fais mon traitement
else
' ce n'est pas un mail
end if

ensuite pour que ce soit plus rapide tu peux utiliser .restrict pour ne sélectionner que les mails répondant à tes critères.

Code :

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

Set lesmails = lesmails .Restrict("[Subject] = '"  & data &"'")

attention aussi à la casse