Enregistrement mail dans Excel

Le
J&B
Bonjour,

J'utilises cette macro ci dessous de chez jacques boisgontier
'Merci" et qui marche bien.
Par contre je souhaiterai que la lecture se fasse a partir d'un autre
repertoire au lieu de celui par défaut
J'ai essayé en modifiant la ligne :
Set olxFolder = olns.GetDefaultFolder(6)
par :
Set olxFolder = olns.GetDefaultFolder(olFolderInbox.Folder "toto")
Mais marche pas !!!!!!!!!!!

Merci de votre Aide
J&B
-
Sub LitMessagerie()
Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olxFolder = olns.GetDefaultFolder(6)
Sheets("Mail").Select
On Error Resume Next
n = 2
For Each i In olxFolder.Items
Cells(n, 1) = i.Subject
Cells(n, 2).ClearComments
Cells(n, 2).AddComment Text:=Replace(i.Body, Chr(13), "")
Cells(n, 2).Comment.Shape.Height = 150
Cells(n, 2).Comment.Shape.Width = 300
Cells(n, 3) = i.SenderName
Cells(n, 4) = i.CreationTime
n = n + 1
Next
End Sub
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #17371861
Bonjour
Si tu lis l'anglais, alors va voir ici :
http://www.outlookcode.com:80/d/code/getfolder.htm

Cordialement
Pascal

"J&B" 48dfe7fb$0$10254$
Bonjour,

J'utilises cette macro ci dessous de chez jacques boisgontier
'Merci" et qui marche bien.
Par contre je souhaiterai que la lecture se fasse a partir d'un autre
repertoire au lieu de celui par défaut
J'ai essayé en modifiant la ligne :
Set olxFolder = olns.GetDefaultFolder(6)
par :
Set olxFolder = olns.GetDefaultFolder(olFolderInbox.Folder "toto")
Mais marche pas !!!!!!!!!!!

Merci de votre Aide
J&B
----------------------------------------------------------
Sub LitMessagerie()
Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olxFolder = olns.GetDefaultFolder(6)
Sheets("Mail").Select
On Error Resume Next
n = 2
For Each i In olxFolder.Items
Cells(n, 1) = i.Subject
Cells(n, 2).ClearComments
Cells(n, 2).AddComment Text:=Replace(i.Body, Chr(13), "")
Cells(n, 2).Comment.Shape.Height = 150
Cells(n, 2).Comment.Shape.Width = 300
Cells(n, 3) = i.SenderName
Cells(n, 4) = i.CreationTime
n = n + 1
Next
End Sub




Publicité
Poster une réponse
Anonyme