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
    Homme Profil pro
    incompétent têtu
    Inscrit en
    novembre 2013
    Messages
    85
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : incompétent têtu
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2013
    Messages : 85
    Points : 54
    Points
    54
    Par défaut 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
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 830
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 48
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 830
    Points : 6 705
    Points
    6 705
    Billets dans le blog
    19
    Par défaut
    SALUT,

    est ce que les dossier de destination existent bien ?

  3. #3
    Membre du Club
    Homme Profil pro
    incompétent têtu
    Inscrit en
    novembre 2013
    Messages
    85
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : incompétent têtu
    Secteur : Enseignement

    Informations forums :
    Inscription : novembre 2013
    Messages : 85
    Points : 54
    Points
    54
    Par défaut 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...

Discussions similaires

  1. [OL-2010] Récupérer les destinataires, expéditeur, CC, objet, de chaque mail
    Par Hyppopo dans le forum VBA Outlook
    Réponses: 1
    Dernier message: 25/01/2019, 12h41
  2. Récupérer adresse mail et objet d'un mail outlook?
    Par drthodt dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 03/03/2009, 20h48
  3. [POO] Récupérer objet java dans script javascript
    Par Mister Nono dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 11/10/2006, 17h42
  4. récupérer objet d'un treeview
    Par pavlacki dans le forum Delphi
    Réponses: 1
    Dernier message: 01/08/2006, 01h30
  5. [struts][jsp] récupérer objet session dans ActionForm
    Par mlequim dans le forum Struts 1
    Réponses: 24
    Dernier message: 02/11/2005, 17h32

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo