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

Discussion :

Enregistrer des pièces jointes automatiquement


Sujet :

VBA Outlook

  1. #1
    Nouveau membre du Club
    Homme Profil pro
    Epitech
    Inscrit en
    mai 2019
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Epitech

    Informations forums :
    Inscription : mai 2019
    Messages : 33
    Points : 29
    Points
    29
    Par défaut Enregistrer des pièces jointes automatiquement
    Bonjour,

    Je suis novice en VBA, mais je connais la programmation ( Pour être plus précis je suis en fin dernière année de master à epitech ), en chercher sur internet j'ai pu trouver sur d'autres sites, ou même sur ce forum des exemples de code pour enregistrer automatiquement des pièces jointes, cependant il m'arrive de recevoir des mails qui contiennent des mails en pièces jointes et se sont ces mails en pièces jointes qui contiennent le contenu que je veux récupérer.

    De ce fait je voulais savoir si c'était possible de faire un programme qui récupère toujours les pièces jointes "normal" mais qui puisse également récupérer les pièces jointes lorsqu'elles sont contenus dans les mails qui sont en pièces jointes.
    Je suis ouvert à d'autres solutions autre que le VBA s'il en existe ( logiciel, autres langages de programmation... )

    Cordialement,

    Arkning

  2. #2
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 708
    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 708
    Points : 6 473
    Points
    6 473
    Billets dans le blog
    17
    Par défaut
    Bonjour,
    Il faut tester tes PJ pour savoir si l'extention est .msg si c'est le cas tu enregistres ta pj sur le disque puis tu l'ouvre avec OpenSharedItem et tu la traites comme un email classique.

    https://www.developpez.net/forums/d1...ssier-windows/

    https://www.developpez.net/forums/d1...ointe-msg-pdf/

    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
    Function get_File_extension(FILE As String, Optional Majuscule As Boolean) As String
    '---------------------------------------------------------------------------------------
    ' Procedure : get_File_extension
    ' Author    : octu
    ' Date      : 30/04/2015
    ' Purpose   : retrouve l'extension d'un fichier
    '---------------------------------------------------------------------------------------
    '
        Dim revFile As String
        Dim PositionPoint As Long
        get_File_extension = ""
        revFile = StrReverse(FILE)
        PositionPoint = InStr(1, revFile, ".", vbTextCompare)
        get_File_extension = StrReverse(Mid(revFile, 1, PositionPoint))
        If Majuscule = True Then get_File_extension = UCase(get_File_extension)
        If Majuscule = False Then get_File_extension = LCase(get_File_extension)
    End Function
    tu peux aussi utiliser FSO

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    if Fso.GetExtensionName(File)= "Msg" then

  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Epitech
    Inscrit en
    mai 2019
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Epitech

    Informations forums :
    Inscription : mai 2019
    Messages : 33
    Points : 29
    Points
    29
    Par défaut
    Bonjour,

    Merci de votre retour, cependant je ne vois pas comment enregistrer la pièce jointe si celle-ci est un ".msg"

    Voici mon code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String
    sSaveFolder = "C:\Users\username\Desktop\"
    For Each oAttachment In MItem.Attachments
    oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next
    End Sub
    Si j'ai bien compris une fois que j'ai réussi à sauvegarder mon .msg sur le Bureau par exemple, je vais pouvoir utiliser Fso.GetExtensionName("Le chemin de mon fichier")= "Msg" et s'il s'agit bien d'un .msg alors je dois utiliser un OpenSharedItem c'est bien cela ?

    Cordialement,

    Arkning

  4. #4
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 708
    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 708
    Points : 6 473
    Points
    6 473
    Billets dans le blog
    17
    Par défaut
    Tu peux le faire avant ou après ton export

    en gros comme cela
    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
    If StrComp(get_File_extension(oAttachment.DisplayName), ".MSG", vbTextCompare) = 0 Then
     
     
            Dim OL As Object
            If UCase(Application) = "OUTLOOK" Then
                Set OL = Application
            Else
                Set OL = CreateObject("outlook.application")
            End If
     
            Dim oNamespace As Object    'namespace
            Dim oSharedItem As Object    'MailItem
            Dim oFolder As Object    'Folder
     
            On Error GoTo ErrRoutine
     
            ' Get a reference to a NameSpace object.
            Set oNamespace = OL.GetNamespace("MAPI")
     
            ' Open .msg.
            Set oSharedItem = oNamespace.OpenSharedItem(sSaveFolder & oAttachment.DisplayName)
     
            'ici on exporte les pj du mail qui était une pj
            For Each pj In oSharedItem.attachments
                pj.SaveAs "c:\temp \" & pj.Filename
            Next pj
     
     
     
    End If
     
    EndRoutine:
            On Error GoTo 0
            Set oSharedItem = Nothing
            Set oFolder = Nothing
            Set oNamespace = Nothing
            Exit Sub
     
    ErrRoutine:
            Select Case Err.Number
            Case 287    ' &H0000011F
                ' This error occurs if the code is run by an
                ' untrusted application, and the user chose not to
                ' allow access.
                MsgBox "Access to Outlook was denied by the user.", _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case -2147024894  ' &H80070002
                ' Occurs if the specified file or URL could not
                ' be found, or the file or URL cannot be
                ' processed by the OpenSharedItem method.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case -2147352567  ' &H80020009
                ' Occurs if the specified file or URL is not valid,
                ' or you attempt to use the Move method on
                ' an Outlook item that represents a shared item.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case Else
                ' Any other error that may occur.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            End Select
     
            GoTo EndRoutine

  5. #5
    Nouveau membre du Club
    Homme Profil pro
    Epitech
    Inscrit en
    mai 2019
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Epitech

    Informations forums :
    Inscription : mai 2019
    Messages : 33
    Points : 29
    Points
    29
    Par défaut
    Bonjour,

    Encore merci de votre retour, j'ai essayé d'implémenter votre code mais j'ai l'impression que rien ne se passe.

    Je ne sais pas si cela a son importance mais ce code VBA est éxecuté via Outlook et une règle qui est censé exécuter ce script à chaque message que je reçois.

    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
    90
    91
    92
    93
    Function get_File_extension(FILE As String, Optional Majuscule As Boolean) As String
    '---------------------------------------------------------------------------------------
    ' Procedure : get_File_extension
    ' Author    : octu
    ' Date      : 30/04/2015
    ' Purpose   : retrouve l'extension d'un fichier
    '---------------------------------------------------------------------------------------
    '
        Dim revFile As String
        Dim PositionPoint As Long
        get_File_extension = ""
        revFile = StrReverse(FILE)
        PositionPoint = InStr(1, revFile, ".", vbTextCompare)
        get_File_extension = StrReverse(Mid(revFile, 1, PositionPoint))
        If Majuscule = True Then get_File_extension = UCase(get_File_extension)
        If Majuscule = False Then get_File_extension = LCase(get_File_extension)
    End Function
     
    Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String
    sSaveFolder = "C:\Users\username\Desktop\"
    For Each oAttachment In MItem.Attachments
    If StrComp(get_File_extension(oAttachment.DisplayName), ".MSG", vbTextCompare) = 0 Then
     
     
            Dim OL As Object
            If UCase(Application) = "OUTLOOK" Then
                Set OL = Application
            Else
                Set OL = CreateObject("outlook.application")
            End If
     
            Dim oNamespace As Object    'namespace
            Dim oSharedItem As Object    'MailItem
            Dim oFolder As Object    'Folder
     
            On Error GoTo ErrRoutine
     
            ' Get a reference to a NameSpace object.
            Set oNamespace = OL.GetNamespace("MAPI")
     
            ' Open .msg.
            Set oSharedItem = oNamespace.OpenSharedItem(sSaveFolder & oAttachment.DisplayName)
     
            'ici on exporte les pj du mail qui était une pj
            For Each pj In oSharedItem.Attachments
                pj.SaveAs "C:\Users\username\Desktop\Message\" & pj.FileName
            Next pj
    Else
            oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    End If
     
    EndRoutine:
            On Error GoTo 0
            Set oSharedItem = Nothing
            Set oFolder = Nothing
            Set oNamespace = Nothing
            Exit Sub
     
    ErrRoutine:
            Select Case Err.Number
            Case 287    ' &H0000011F
                ' This error occurs if the code is run by an
                ' untrusted application, and the user chose not to
                ' allow access.
                MsgBox "Access to Outlook was denied by the user.", _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case -2147024894  ' &H80070002
                ' Occurs if the specified file or URL could not
                ' be found, or the file or URL cannot be
                ' processed by the OpenSharedItem method.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case -2147352567  ' &H80020009
                ' Occurs if the specified file or URL is not valid,
                ' or you attempt to use the Move method on
                ' an Outlook item that represents a shared item.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case Else
                ' Any other error that may occur.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            End Select
     
            GoTo EndRoutine
    Next
    End Sub
    Pourriez-vous m'expliquer votre approche s'il vous plait ? Quand j'essaye avec un message qui contient bien une pièce jointe qui est un .msg le code bug dans le else or il est censé rentrer dans le IF et non le else vu qu'il s'agit d'un .msg.

    Cordialement,

    Arkning

  6. #6
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 708
    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 708
    Points : 6 473
    Points
    6 473
    Billets dans le blog
    17
    Par défaut
    Bonjour,
    2 petites erreurs il faut utiliser FileName et aussi enregistrer (saveas) sur le disque l'email en pj avant de l'ouvrir avec OpenSharedItem

    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
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    Sub test_SaveAttachmentsToDisk()
        Dim MItem As Outlook.MailItem
        Set MItem = ActiveInspector.CurrentItem
        SaveAttachmentsToDisk MItem
    End Sub
    
    Function get_File_extension(FILE As String, Optional Majuscule As Boolean) As String
    '---------------------------------------------------------------------------------------
    ' Procedure : get_File_extension
    ' Author    : octu
    ' Date      : 30/04/2015
    ' Purpose   : retrouve l'extension d'un fichier
    '---------------------------------------------------------------------------------------
    '
        Dim revFile As String
        Dim PositionPoint As Long
        get_File_extension = ""
        revFile = StrReverse(FILE)
        PositionPoint = InStr(1, revFile, ".", vbTextCompare)
        get_File_extension = StrReverse(Mid(revFile, 1, PositionPoint))
        If Majuscule = True Then get_File_extension = UCase(get_File_extension)
        If Majuscule = False Then get_File_extension = LCase(get_File_extension)
    End Function
    
    Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
        Dim oAttachment As Outlook.Attachment
        Dim sSaveFolder As String
        sSaveFolder = "C:\Users\" & Environ("username") & "\Desktop\"
        For Each oAttachment In MItem.Attachments
            If StrComp(get_File_extension(oAttachment.FileName), ".MSG", vbTextCompare) = 0 Then
    
    
                Dim OL As Object
                If UCase(Application) = "OUTLOOK" Then
                    Set OL = Application
                Else
                    Set OL = CreateObject("outlook.application")
                End If
    
                Dim oNamespace As Object    'namespace
                Dim oSharedItem As Object    'MailItem
                Dim oFolder As Object    'Folder
    
                On Error GoTo ErrRoutine
    
                ' Get a reference to a NameSpace object.
                Set oNamespace = OL.GetNamespace("MAPI")
                ' enreigistrement sur le disque
                oAttachment.SaveAsFile sSaveFolder & oAttachment.FileName
                ' Open .msg.
                Set oSharedItem = oNamespace.OpenSharedItem(sSaveFolder & oAttachment.FileName)
    
                'ici on exporte les pj du mail qui était une pj
                For Each pj In oSharedItem.Attachments
                    pj.SaveAs "C:\Users\username\Desktop\Message\" & pj.FileName
                Next pj
            Else
                oAttachment.SaveAsFile sSaveFolder & oAttachment.displayName
            End If
    
    EndRoutine:
            On Error GoTo 0
            Set oSharedItem = Nothing
            Set oFolder = Nothing
            Set oNamespace = Nothing
            Exit Sub
    
    ErrRoutine:
            Select Case Err.Number
            Case 287    ' &H0000011F
                ' This error occurs if the code is run by an
                ' untrusted application, and the user chose not to
                ' allow access.
                MsgBox "Access to Outlook was denied by the user.", _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case -2147024894  ' &H80070002
                ' Occurs if the specified file or URL could not
                ' be found, or the file or URL cannot be
                ' processed by the OpenSharedItem method.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case -2147352567  ' &H80020009
                ' Occurs if the specified file or URL is not valid,
                ' or you attempt to use the Move method on
                ' an Outlook item that represents a shared item.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case Else
                ' Any other error that may occur.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            End Select
    
            GoTo EndRoutine
        Next
    End Sub

  7. #7
    Nouveau membre du Club
    Homme Profil pro
    Epitech
    Inscrit en
    mai 2019
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Epitech

    Informations forums :
    Inscription : mai 2019
    Messages : 33
    Points : 29
    Points
    29
    Par défaut
    Bonjour,

    Je vous remercie encore, j'ai pu finalement enregistrer le mail sur mon Bureau cependant j'ai une erreur :
    438 - Project 1
    Propriété ou méthode non gérée par cet objet.

    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
    90
    91
    92
    93
    94
    95
    96
    97
    Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongPtr)
     
    Function get_File_extension(FILE As String, Optional Majuscule As Boolean) As String
    '---------------------------------------------------------------------------------------
    ' Procedure : get_File_extension
    ' Author    : octu
    ' Date      : 30/04/2015
    ' Purpose   : retrouve l'extension d'un fichier
    '---------------------------------------------------------------------------------------
    '
        Dim revFile As String
        Dim PositionPoint As Long
        get_File_extension = ""
        revFile = StrReverse(FILE)
        PositionPoint = InStr(1, revFile, ".", vbTextCompare)
        get_File_extension = StrReverse(Mid(revFile, 1, PositionPoint))
        If Majuscule = True Then get_File_extension = UCase(get_File_extension)
        If Majuscule = False Then get_File_extension = LCase(get_File_extension)
    End Function
     
    Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
        Dim oAttachment As Outlook.Attachment
        Dim sSaveFolder As String
        sSaveFolder = "C:\Users\saabi\Desktop\"
        For Each oAttachment In MItem.Attachments
            If StrComp(get_File_extension(oAttachment.FileName), ".MSG", vbTextCompare) = 0 Then
     
     
                Dim OL As Object
                If UCase(Application) = "OUTLOOK" Then
                    Set OL = Application
                Else
                    Set OL = CreateObject("outlook.application")
                End If
     
                Dim oNamespace As Object    'namespace
                Dim oSharedItem As Object    'MailItem
                Dim oFolder As Object    'Folder
     
                On Error GoTo ErrRoutine
     
                ' Get a reference to a NameSpace object.
                Set oNamespace = OL.GetNamespace("MAPI")
                ' enreigistrement sur le disque
                oAttachment.SaveAsFile sSaveFolder & oAttachment.FileName
                Sleep 10000
                ' Open .msg.
                Set oSharedItem = oNamespace.OpenSharedItem(sSaveFolder & oAttachment.FileName)
     
                'ici on exporte les pj du mail qui était une pj
                For Each pj In oSharedItem.Attachments
                    pj.SaveAs sSaveFolder & pj.FileName
                Next pj
            Else
                oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
            End If
     
    EndRoutine:
            On Error GoTo 0
            Set oSharedItem = Nothing
            Set oFolder = Nothing
            Set oNamespace = Nothing
            Exit Sub
     
    ErrRoutine:
            Select Case Err.Number
            Case 287    ' &H0000011F
                ' This error occurs if the code is run by an
                ' untrusted application, and the user chose not to
                ' allow access.
                MsgBox "Access to Outlook was denied by the user.", _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case -2147024894  ' &H80070002
                ' Occurs if the specified file or URL could not
                ' be found, or the file or URL cannot be
                ' processed by the OpenSharedItem method.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case -2147352567  ' &H80020009
                ' Occurs if the specified file or URL is not valid,
                ' or you attempt to use the Move method on
                ' an Outlook item that represents a shared item.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            Case Else
                ' Any other error that may occur.
                MsgBox Err.Description, _
                        vbOKOnly, _
                        Err.Number & " - " & Err.Source
            End Select
     
            GoTo EndRoutine
        Next
    End Sub
    Est-ce du à une erreur de ma part au niveau du SharedItem ?

    Bien à vous,

    Arkning

  8. #8
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 708
    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 708
    Points : 6 473
    Points
    6 473
    Billets dans le blog
    17
    Par défaut
    à quel endroit l'erreur?

  9. #9
    Nouveau membre du Club
    Homme Profil pro
    Epitech
    Inscrit en
    mai 2019
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Epitech

    Informations forums :
    Inscription : mai 2019
    Messages : 33
    Points : 29
    Points
    29
    Par défaut
    Bonjour,

    Je suis désolé de vous dire que moi même je ne sais pas, quand j'envoi un mail pour essayer, je vois bien le mail qui s'enregistre dans mon bureau, puis l’exécution du sleep puis j'ai le message d'erreur que je vous ai décrit précédemment mais ce fameux message ne me propose pas de lancer en mode débogage ou même aucune indication pour savoir d'où vient l'erreur...

    Cordialement,

    Arkning

  10. #10
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 708
    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 708
    Points : 6 473
    Points
    6 473
    Billets dans le blog
    17
    Par défaut
    Comment est déclenché SaveAttachmentsToDisk

  11. #11
    Nouveau membre du Club
    Homme Profil pro
    Epitech
    Inscrit en
    mai 2019
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Epitech

    Informations forums :
    Inscription : mai 2019
    Messages : 33
    Points : 29
    Points
    29
    Par défaut
    Bonjour,

    C'est déclenché grâce à une règle dans Outlook à chaque fois que je reçois un mail j'ai demandé à exécuter ce "script".

    Cordialement,

    Arkning

  12. #12
    Expert éminent
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 708
    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 708
    Points : 6 473
    Points
    6 473
    Billets dans le blog
    17
    Par défaut
    Quand tu est dans l'éditeur VBE, tu as un menu DEBOGAGE, clique sur COMPILER...
    s'il y a des erreurs dans d'autres macros ça peut les trouver.

  13. #13
    Nouveau membre du Club
    Homme Profil pro
    Epitech
    Inscrit en
    mai 2019
    Messages
    33
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 22
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : Epitech

    Informations forums :
    Inscription : mai 2019
    Messages : 33
    Points : 29
    Points
    29
    Par défaut
    Bonjour,

    J'ai beau cliqué sur Debogage et Compiler mais rien ce se passe...
    De plus j'ai ajouté des lignes de debug.print sSaveFolder mais rien ne s'affiche dans la console execution de l'éditeur.

    Cordialement,

    Arkning

Discussions similaires

  1. [OL-2013] Enregistrer des pièces jointes automatiquement
    Par r.sandrine dans le forum Outlook
    Réponses: 37
    Dernier message: 31/01/2018, 12h45
  2. Enregistrer des pièces jointes sur un tableau excel
    Par Roberta. dans le forum Outlook
    Réponses: 3
    Dernier message: 22/07/2016, 21h56
  3. [OL-2010] Enregistrement des pièces jointes de tous les mails d'un fichier pst
    Par Daejung dans le forum Outlook
    Réponses: 3
    Dernier message: 21/03/2015, 07h37
  4. [OL-2007] Extraction des pièces jointes automatique dans un dossier externe
    Par Athly dans le forum VBA Outlook
    Réponses: 0
    Dernier message: 14/04/2009, 17h01
  5. Sauvegarde des pièces-Joints automatique
    Par benhamidaa dans le forum Outlook
    Réponses: 1
    Dernier message: 31/12/2007, 08h56

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