Automatiser la fonction export dans outlook Résolu

Question

je dois automatiser la fonction export vers Excell ou Access des mails contenus dans un certain dossier
lorsque je cherche dans l'aide, je ne trouve que la manipulation par l'assistant soit celle que je dois automatis&#233;e (fichier --> menu importer --> exporter...)

si quelqu'un a la solution, d'avance merci

sev

cs_sev54 · Accepted Answer

Voila le code que j'ai trouv&#233; :

************************************************
Sub Export_MailsOutlook()
'la r&#233;f&#233;rence Microsoft Outlook 9.0 Object Library est activ&#233;e
Dim olApp As New Outlook.Application
Dim Cible As Outlook.MailItem
Dim Piece As Attachment
Dim dossierMail As Outlook.MAPIFolder
Dim destFolder


'n&#233;cessite d'activer la r&#233;f&#233;rence Microsoft DAO 3.6 Object Library
Dim dbs As Database
Dim rs As DAO.Recordset
Dim QD As QueryDef


'ouverture d'Access
Set AccessApp = CreateObject("access.application")
AccessApp.OpenCurrentDatabase ("c:\[mondossier]\[mabase].mdb")
Set dbs = AccessApp.CurrentDb


Set olApp = New Outlook.Application
Set dossierMail = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("[dossier_source]")
Set destFolder = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Folders("[dossier_destinataire]")


For Each Cible In dossierMail.Items


    'remplacement des caract&#232;res interdits dans les noms de dossier Windows
    Cible = Replace(Cible, "", "", 1)
    Cible = Replace(Cible, "/", "", 1)
    Cible = Replace(Cible, ":", "", 1)
    Cible = Replace(Cible, "*", "", 1)
    Cible = Replace(Cible, "?", "", 1)
    Cible = Replace(Cible, """", "", 1)
    Cible = Replace(Cible, "<", "", 1)
    Cible = Replace(Cible, ">", "", 1)
    Cible = Replace(Cible, "|", "", 1)
    
    ' on appelle la fonction qui eclate le sujet et retourne les &#233;l&#233;ments n&#233;cessaires pour la base
    ExploseSujet (Cible.Subject)
    
    'on insert les &#233;l&#233;ments
    dbs.Execute "INSERT INTO [matable] ([champ1], [champ2], [champ3], [champ4], [champ5], [champ6], [champ7], [champ8]) VALUES ('" & [valeur1] & "','" & [valeur2] & "','" & [valeur3] & "','" & [valeur4] & "','" & [valeur5] & "','" & [valeur6] & "','" & [valeur7] & "','" & [valeur8] & "');"


    'on cr&#233;e le chemin et le nom du dossier
    CheminDossier = "F:" & [valeur1] & "" & [valeur2] & "" & [valeur3] & "" & [valeur4] & "" & [valeur5] & ""
    
    Cible.SaveAs CheminDossier & Cible & ".msg", 3
       
    'on d&#233;place le mail dans un autre dossier
    Cible.Move (destFolder)


Next Cible


End Sub
***********************************************************

si &#231;a peut servir &#224; quelqu'un 

merci &#224; tous

cs_sev54 · Answer

personne n'a su me r&#233;pondre pour l'instant

chez microsoft, j'ai trouv&#233; un article qui, pour r&#233;sumer, dit que "on ne peut pas automatiser l'Assistant Importation/Exportation"

le lien pour aller le lire :
http://support.microsoft.com/default.aspx?scid=kb;fr;306067

donc je modifie ma question : quelqu'un saurait il comment aller r&#233;cup&#233;rer les &#233;l&#233;ments dans Outlook mais depuis Access ?

d'avance merci

Sev

Automatiser la fonction export dans outlook

2 réponses

Discussions similaires