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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Si tu lis l'anglais, alors va voir ici : http://www.outlookcode.com:80/d/code/getfolder.htm
Cordialement Pascal
"J&B" a écrit dans le message de news: 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
Bonjour
Si tu lis l'anglais, alors va voir ici :
http://www.outlookcode.com:80/d/code/getfolder.htm
Cordialement
Pascal
"J&B" <jb@free.fr> a écrit dans le message de news:
48dfe7fb$0$10254$426a74cc@news.free.fr...
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
Bonjour Si tu lis l'anglais, alors va voir ici : http://www.outlookcode.com:80/d/code/getfolder.htm
Cordialement Pascal
"J&B" a écrit dans le message de news: 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