Pygos69
XLDnaute Nouveau
Bonjour,
Je souhaite récupérer les mails de plusieurs bals génériques, pour comptabiliser les mails du jour. (par excel vba)
J'utilise le fichier de JB (Outlook.zip)
, qui récupère les mails de ma boite de réception principale, ainsi que le calendrier, les contacts…..
Que faut il modifier pour effectuer la même opération sur les bals génériques ? (mails uniquement)
Sub LitMessagerie()
Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olxFolder = olns.GetDefaultFolder(6) ' olns.GetDefaultFolder(olFolderInbox)
Sheets("Litmessagerie").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
Merci d'avance,
Bien cordialement,
Je souhaite récupérer les mails de plusieurs bals génériques, pour comptabiliser les mails du jour. (par excel vba)
J'utilise le fichier de JB (Outlook.zip)
, qui récupère les mails de ma boite de réception principale, ainsi que le calendrier, les contacts…..Que faut il modifier pour effectuer la même opération sur les bals génériques ? (mails uniquement)
Sub LitMessagerie()
Set olApp = CreateObject("Outlook.Application")
Set olns = olApp.GetNamespace("MAPI")
Set olxFolder = olns.GetDefaultFolder(6) ' olns.GetDefaultFolder(olFolderInbox)
Sheets("Litmessagerie").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
Merci d'avance,
Bien cordialement,
Dernière édition:
