Là je suis perdu...
Voici mon code
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
|
Private WithEvents objSentItems As Items
Public DestinationFolder As Outlook.Folder
Public Sub Application_Startup() ' faire F5 su ce code pour initialiser ou fermer/réouvrir outlook
'Retrieve ID for accessing non-default sent folder
getStoreFolderID ("\\Public Folders - MonEmail@masociete.com\Medical Information Request")
Set objSentItems = Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Sub getStoreFolderID(Name)
Dim colStores As Outlook.Stores
Dim oStore As Outlook.Store
Dim oRoot As Outlook.Folder
On Error Resume Next
Set colStores = Application.Session.Stores
For Each oStore In colStores
If oStore.DisplayName = Name Then
Set DestinationFolder = oStore.GetDefaultFolder(olFolderSentMail)
Exit For
End If
Next
End Sub
Private Sub objSentItems_ItemAdd(ByVal Item As Object)
'Fired when something is added to personal "Sent Mail" folder
Dim MailItem As Outlook.MailItem
If TypeOf Item Is Outlook.MailItem Then
With Item
Set MailItem = Application.GetNamespace("mapi").GetItemFromID(.EntryID, .Parent.StoreID)
End With
Debug.Print MailItem.SenderName
MsgBox MailItem.SenderName
If MailItem.SenderName = "\\Public Folders - MonEmail@masociete.com\Medical Information Request" Then
If DestinationFolder Is Nothing Then getStoreFolderID ("\\Public Folders - MonEmail@masociete.com\Medical Information Request")
MailItem.Move DestinationFolder
End If
End If
Set MailItem = Nothing
End Sub |
Avec celui-là ça ne marche pas, rien ne se passe si ce n'est la boîte à message.
Si je garde le premier et dernier NOMBAL avec le nom complet qui pointe vers le public folder et et que je change le second en pointant le nom qui apparait dans le "From" des messages donc je change ceci:
If MailItem.SenderName = "\\Public Folders - MonEmail@masociete.com\Medical Information Request" Then
Par ceci
If MailItem.SenderName = "Medical Information Request" Then
J'obtiens la boîte à message et si je clique ok, j'ai le message suivant:
Run-time error '-2147352569 (80020009)
cannot move items
Est-ce qu'il y a quelque chose que je n'ai pas compris? Tu veux que l'on s'appelle par téléphone?
Partager