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 :

Récupérer objet d'un mail


Sujet :

VBA Outlook

  1. #1
    Membre du Club
    Récupérer objet d'un mail
    bonjour à tous! comme d'habitude je viens encore demander de l'aide apres avoir failli passer mon ordi par la fenetre...
    j'ai fait un bouton dan outlook pour enregister des piece jointe directement dans un dossier spécifié. cela fonctionne mais lorsque que je veux changer de dossier en fonction de l'objet ou de la date du mail je n'y arrive plus. je pense que je defini mal les "object" au début pourriez vous m'aider?
    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
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    Dim ObjItem As Object
        Dim myMail As Outlook.MailItem
        Dim myolApp As New Outlook.Application
        Dim myOlExp As Outlook.Explorer
        Dim myOlSel As Outlook.Selection
        Dim MsgTxt As String
        Dim DateRecep As Date
        Dim x As Integer
        Dim titre As String
     
     
        MsgTxt = "Vous devez selectionner un seul mail"
        Set myOlExp = myolApp.ActiveExplorer
        Set myOlSel = myOlExp.Selection
        x = myOlSel.Count
     
        If x <> 1 Then
           MsgBox MsgTxt
           Exit Sub
        End If
     
    'récupération du nom de la piece jointe
     
       Set attachs = myOlSel.Item(x).Attachments
    For Each attach In attachs
    file = attach.FileName
     
     
    'selection de l'origine du mail :
    ' 1er cas : petzl
     
    '*************
    'c'est en dessous que cela coince  : "varialbe ou objet non défini"
    '********************
     If myMail.Subject Like "petzl" Then '
     
     
     
            If MsgBox("facture à immobiliser?", vbYesNo) = vbYes Then
                attach.SaveAsFile "Z:\THUNE\2020\ACHATS\petzl\immo\" & file
     
            Else: attach.SaveAsFile "Z:\THUNE\2020\ACHATS\petzl\revente\" & file
     
            End If
     
     
    '*************
    'c'est en dessous que cela coince  : "varialbe ou objet non défini"
    '********************
     
     
            DateRecep = Format(myMail.ReceivedTime, "dd/mm/yyyy")
     
                ' second cas autre facture
        Else
                Select Case Month(DateRecep)
                        Case "1"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\01_2020\" & file
                        Case "2"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\02_2020\" & file
                        Case "3"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\03_2020\" & file
                        Case "4"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\04_2020\" & file
                        Case "5"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\05_2020\" & file
                        Case "6"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\06_2020\" & file
                        Case "7"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\07_2020\" & file
                        Case "8"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\08_2020\" & file
                        Case "9"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\09_2020\" & file
                        Case "10"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\10_2020\" & file
                        Case "11"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\11_2020\" & file
                        Case "12"
                            attach.SaveAsFile "Z:\THUNE\2020\ACHATS\12_2020\" & file
                 End Select
     
     
    End If ' de selection facture
     
        Next
     
     
        End Sub
    ce qui est cool avec DVP c'est qu'il y as a chaque fois une réponse!

    ce qui est pas cool avec DVP c'est qu'a chaque réponse je me sens plus bête...

  2. #2

  3. #3
    Membre du Club
    pas vue votre message
    bonjour, je n'avai pas reçu de mail signalent votre réponse du coup je viens de la voir que maintenant, désolé de vous réponde si tard. en revanche mon problème a empiré je n'arrive plus à lancer aucune macro depuis outllok, pour tant elles fonctionnent bien quand je les lance en manuel depuis l'explorateur de projet VBA. j'ia essayer de réparer office et de mettre ces macro sur d'autre poste avec la même licence office 365 sans suces aurriez-vous une idée?
    ce qui est cool avec DVP c'est qu'il y as a chaque fois une réponse!

    ce qui est pas cool avec DVP c'est qu'a chaque réponse je me sens plus bête...

###raw>template_hook.ano_emploi###