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 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
|
Public Sub Mail()
'Déclarations
Dim MonApp As Outlook.Application
Dim MonMail As Object
Dim MonNameSpace As Outlook.NameSpace
Dim email As Outlook.MailItem
'Instance des objets
Set MonApp = Outlook.Application
Set MonNameSpace = MonApp.GetNamespace("MAPI")
'Set MonMail = Application.Session.GetItemFromID(EntryIDCollection)
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNamespace("MAPI")
Set myfolder = myNameSpace.GetDefaultFolder(olFolderInbox).Folders(14)
'Compte le nombre de mail dans la boite de reception
longueur = myfolder.Items.Count
For i = 1 To longueur
'recupere les info du mail
Set myitem = myfolder.Items(i)
V_date = myitem.ReceivedTime
heure = Mid(myitem.ReceivedTime, 12, 20)
V_date = Mid(V_date, 1, 10)
NbrDate = Weekday(V_date)
Jour = WeekdayName(NbrDate, False, vbSunday)
V_Exp = myitem.SenderName
If V_date < "01/01/2020" Then
If Jour = "samedi" Or Jour = "Dimanche" Then
With myitem
' fais ce que tu veux
MsgBox ("Le " & Jour & " " & V_date & " " & Nom & " " & V_Exp)
End With
End If
End If
Next i
End Sub |
Partager