Discussion :

[djallil]

Bonjour,

Je dois mettre en place dans mon entreprise un site dans lequel doit s'importer des mails en provenance d'outlook.

J'ai réfléchis à une solution qui permettrait de transférer les mails d'outlook dans un fichier .txt ou excel que mon site pourrait récupérer par la suite.

Il faudrait donc que outlook génère automatiquement un chier .txt ou excel dès son ouverture (ce que je n'arrive pas à faire).

Si vous savez comment faire, je suis preneur...

D'avance merci.

[Heureux-oli]

Essaie ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Application_NewMail()
    Dim myOlApp As New Outlook.Application
    Dim myItem As Outlook.Inspector
    Dim objItem As Object
    Set myItem = myOlApp.ActiveInspector
    Set objItem = myItem.CurrentItem
        strname = objItem.Subject
 
     objItem.SaveAs "C:\temp\" & strname & ".txt", olTXT
 
 
End Sub

En attendant mieux

[djallil]

Merci beaucoups!!!

Mais où dois-je mettre ce code???

[Heureux-oli]

Il faut faire Alt + F11

Mais le code comme je l'ai mis ne fonctionne pas.
Je cherche comment faire.

Pour l'instant, c'est une piste.

[djallil]

merciiiiiii!!

[Heureux-oli]

Après quelques essais, ce code fonctionne.
Il faut dans le Inbox avoir un sous dossier Temp. Mais ça on peut le changer.

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
Private Sub Application_NewMail()
    Dim myOlApp As New Outlook.Application
    Dim myNamespace As Outlook.NameSpace
    Dim myInbox As Outlook.Folder
    Dim myDestFolder As Outlook.Folder
    Dim myItems As Outlook.Items
    Dim myItem As Object
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myInbox = myNamespace.GetDefaultFolder(olFolderInbox)
    Set myItems = myInbox.Items
    Debug.Print "passage 1"
    Set myDestFolder = myInbox.Folders("Temp")
    'Set myItem = myItems.Find("[SenderName] = 'Dan Wilson'")
    Dim strName As String
 
    For Each myItem In myInbox.Items
 
        strName = myItem.EntryId
 
        myItem.SaveAs "C:\temp\" & strName & ".txt", olTXT
        myItem.Move myDestFolder
        Set myItem = myItems.GetNext
 
    Next myItem
End Sub

Code testé sur 2007