1. #1
    Nouveau membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    juin 2016
    Messages
    152
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : juin 2016
    Messages : 152
    Points : 35
    Points
    35

    Par défaut Suppression de courriel outlook

    Bonjour,

    je n'arrive pas à supprimer le fichier envoyé via outlook. Il bloque par message d'erreur
    erreur d'exécution '-2147221238 (8004010a)
    erreur automation

    sur la ligne NewMail = NewMail.Move(MaPoubelle)

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
     SetOutlookApp = Outlook.Application
     
      Set MyNameSpace = OutlookApp.GetNamespace("MAPI")
      Set MaPoubelle = MyNameSpace.GetDefaultFolder(olFolderDeletedItems)
     
     
    NewMail = NewMail.Move(MaPoubelle)
     
     Set NewMail = Nothing
     Set MyNameSpace = Nothing
    comment résoudre le problème, SVP ? car le déplacer vers le dossier "deleted items" ne fonctionne pas et du coup l'effacer de ce répertoir je ne sais pas comment faire.

    Merci

  2. #2
    Expert éminent

    Homme Profil pro
    Curieux
    Inscrit en
    juillet 2012
    Messages
    4 338
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : juillet 2012
    Messages : 4 338
    Points : 8 274
    Points
    8 274
    Billets dans le blog
    5

    Par défaut

    Bonjour,

    qu'est-ce que NewMail ?
    est-ce une procédure sous Outlook ? Sur un évènement ?

    avec juste ces quelques lignes on ne pourra pas faire grand chose, il faut montrer la procédure complète et nous indiquer sous quelle application elle tourne.

    au lieu de localiser le dossier des éléments supprimés pour y déplacer le mail, tu peux également utiliser la méthode .Delete de MailItem


  3. #3
    Nouveau membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    juin 2016
    Messages
    152
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : juin 2016
    Messages : 152
    Points : 35
    Points
    35

    Par défaut

    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
     
    Dim MaPoubelle, MonEnvoi As Outlook.Folder
    Dim MyNameSpace As Outlook.Namespace
    Dim OutlookApp As New Outlook.Application
    Dim NewMail    As Object
    Dim myDestFolder As Outlook.Folder
    Dim myInbox As Outlook.Folder
     
     
     
    '**************************CREATION D'ENVOI************************************
    Set NewMail = OutlookApp.CreateItem(olMailItem)
     
        'Liste des destinataires
        With NewMail
     
           'Sujet :
           .Subject = "sujet"
           'Copies
           .To = "toto@gmail.com"
     
     
           'Corps du mail :
          NewMail.Body = "Bonjour," & vbCrLf _
        & vbCrLf _
        & "Vous trouverez ci joint le fichier essai.txt" & vbCrLf _
        & vbCrLf _
        & "Cordialement" & vbCrLf _
           '.Attachments.Add ActiveWorkbook.FullName
           .Attachments.Add (ThisWorkbook.Path & "\" & "essai.txt")
           '.Display
           'Envoi :
           .Send
     End With
     'Set NewMail

  4. #4
    Nouveau membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    juin 2016
    Messages
    152
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : juin 2016
    Messages : 152
    Points : 35
    Points
    35

    Par défaut

    NewMail.delete me fait une erreur d'automation, (j'avais déjà essayé)

    tant NewMail déclaré comme variable

    Dim NewMail As Outlook.MailItem
    ou
    Dim NewMail As Object

  5. #5
    Membre expérimenté
    Homme Profil pro
    Inscrit en
    août 2010
    Messages
    912
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : août 2010
    Messages : 912
    Points : 1 664
    Points
    1 664

    Par défaut

    Bonjour,

    A lire : https://msdn.microsoft.com/fr-fr/lib.../ff860683.aspx
    (remarque, au vu de tes variables, tu as du le lire)

    Voici le code complet :
    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
    Option Explicit
     
    Sub EnvoiEtDeplaceMail()
    Dim OutlookApp As New Outlook.Application
    Dim MyNameSpace As Outlook.Namespace
    Dim MaPoubelle As Outlook.Folder
    Dim MessagesEnvoyes As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim NewMail As Object
    Dim myItem As Object
     
    '**************************VARIABLES OBJETS************************************
        Set OutlookApp = Outlook.Application
        Set MyNameSpace = OutlookApp.GetNamespace("MAPI")
        Set MaPoubelle = MyNameSpace.GetDefaultFolder(olFolderDeletedItems)
        Set MessagesEnvoyes = MyNameSpace.GetDefaultFolder(olFolderSentMail)
        Set NewMail = OutlookApp.CreateItem(olMailItem)
     
    '**************************CREATION D'ENVOI************************************
     
        'Liste des destinataires
        With NewMail
            'Sujet :
            .Subject = "sujet"
            'Copies
            .To = "toto@gmail.com"
     
            'Corps du mail :
            NewMail.Body = "Bonjour," & vbCrLf _
                & vbCrLf _
                & "Vous trouverez ci joint le fichier essai.txt" & vbCrLf _
                & vbCrLf _
                & "Cordialement" & vbCrLf _
           '.Attachments.Add ActiveWorkbook.FullName
           .Attachments.Add (ThisWorkbook.Path & "\" & "Fichier.xml")
           '.Display
           'Envoi :
           .Send
        End With
     
    '**************************DEPLACEMENT************************************
        Set myItems = MessagesEnvoyes.Items
        Set myItem = myItems.Find("[Subject] = 'sujet'")
        myItem.Move MaPoubelle
     
    '**************************DESTRUCTION OBJETS************************************
        Set myItems = Nothing
        Set myItem = Nothing
        Set NewMail = Nothing
        Set MyNameSpace = Nothing
        Set MessagesEnvoyes = Nothing
        Set MaPoubelle = Nothing
    End Sub
    Cordialement,
    Franck P.


    Ps : n'oubliez pas de placer vos posts comme "résolus" () si tel est le cas...

  6. #6
    Nouveau membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    juin 2016
    Messages
    152
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : juin 2016
    Messages : 152
    Points : 35
    Points
    35

    Par défaut

    Re,

    En appliquant cette méthode avec la déclaration:
    NewMail.DeleteAfterSubmit = True avant le "with Newmail"

    cela supprime du dossier "Sent Items" et du "deleted Items"

    Merci.

  7. #7
    Expert confirmé
    Avatar de Oliv-
    Homme Profil pro
    solution provider
    Inscrit en
    mars 2006
    Messages
    3 008
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : solution provider

    Informations forums :
    Inscription : mars 2006
    Messages : 3 008
    Points : 5 261
    Points
    5 261
    Billets dans le blog
    13

    Par défaut

    Bonjour,
    tu aurais du préciser quand se déclenchait ta macro (Application_ItemSend ou .send)

  8. #8
    Nouveau membre du Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    juin 2016
    Messages
    152
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : Technicien maintenance

    Informations forums :
    Inscription : juin 2016
    Messages : 152
    Points : 35
    Points
    35

    Par défaut

    Désolé, Oliv, n'étant pas un expert...

    Mais dans tous les cas, merci pour vos interventions, car c'est du bénévolat de votre part.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Suppression doublons dans outlook
    Par alexlechevalier dans le forum C#
    Réponses: 1
    Dernier message: 30/10/2010, 14h45
  2. Suppression rendez-vous Outlook 2003
    Par ghostvb dans le forum VBScript
    Réponses: 4
    Dernier message: 20/09/2010, 10h05
  3. MAPI, suppression de message Outlook 2007
    Par OsMoZz dans le forum VB 6 et antérieur
    Réponses: 5
    Dernier message: 14/05/2008, 12h13
  4. Création, modification et suppression de contacts Outlook
    Par bulldozer27350 dans le forum VBA Outlook
    Réponses: 1
    Dernier message: 12/04/2007, 16h19

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