Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Outlook Discussion :

Afficher le mail recherché et le transférer


Sujet :

VBA Outlook

  1. #1
    Membre à l'essai
    Afficher le mail recherché et le transférer
    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

  2. #2
    Expert éminent
    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