Discussion :

[will Igetit]

bonjour ,
je souhaite que lorsque je recois un nouveau mail celui ci souvre d'office .
quelqu'un serait il comment faire s'il vous plait?

[Oliv-]

En utilisant l'événement nexmailex

et en modifiant un peu l'exemple de l'aide
à mettre dans thisoutlooksession

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_NewMailEx(ByVal EntryIDCollection As String)
    Dim mai As Object
    Dim intInitial As Integer
    Dim intFinal As Integer
    Dim strEntryId As String
    Dim intLength As Integer
 
    intInitial = 1
    intLength = Len(EntryIDCollection)
    'MsgBox "Collection of EntryIds: " & EntryIDCollection
    intFinal = InStr(intInitial, EntryIDCollection, ",")
    Do While intFinal <> 0
        strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intFinal - intInitial))
        'MsgBox "EntryId: " & strEntryId
        Set mai = Application.Session.GetItemFromID(strEntryId)
        'MsgBox mai.Subject
        intInitial = intFinal + 1
        intFinal = InStr(intInitial, EntryIDCollection, ",")
    Loop
    strEntryId = Strings.Mid(EntryIDCollection, intInitial, (intLength - intInitial) + 1)
    'MsgBox strEntryId
    Set mai = Application.Session.GetItemFromID(strEntryId)
    mai.display
 
End Sub

[will Igetit]

merci beaucoup.
au final jai reussi par nue autre methode gerer par EVENT
qui commence ainsi et enfait cre une reponse
le reste ressemble

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
 
Public WithEvents myOlItems As Outlook.Items
Public Sub Application_Startup()
 
    Set myOlItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub myOlItems_ItemAdd(ByVal Item As Object)....