[Outlook 2003] IMAP, règles et déplacement ?

IMAP, règles et déplacement ? [Outlook 2003] - Logiciels - Windows & Software

Marsh Posté le 23-04-2008 à 13:41:52    

Salut,
 
J'ai installé des config IMAP pour des clients avec outlook 2003.
 
Tout se passe plutôt bien sauf que les emails envoyés sont copiés dans le PST local et pas dans le répertoire "sent items" du serveur.
J'ai créé une règle pour déplacer les mails en question directement après l'envoi.
 
Le truc chiant c'est que quand la personne envoie un mail de 2mo, outlook fige pendant 1 minute le temps que le mail s'auto copie dans les éléments envoyés sur le serveur. C'est donc pas top top...
 
Y a t'il un moyen de faire autrement ?
 
J'ai pensé à faire une règle qui s'auto exécute tous les soirs à 21h mais ça n'a pas l'air d'être possible.
En plus les règles fonctionnent pour l'Inbox et pas le reste :/
 
merci :jap:


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le 23-04-2008 à 13:41:52   

Reply

Marsh Posté le 23-04-2008 à 15:54:03    

Voilà quelques infos trouvées ici et là.
 
Dans tous les cas notre ami outlook (2003) freez quand il déplace des emails du local à l'IMAP. Que ce soit fait par macro ou par drag'n drop.
 
Plusieurs solutions s'offrent à vous donc.
 
1) la règle qui déplace le message après l'envoi. ça dérange pas pour les petits mails mais avec un gros truc ça freez... si vous avec une connex 100mo c'est mois un soucis évidemment [:paysan]
 
2) faire une macro qu'on lance tous les soirs avant de partir qui vide le dossier "Sent items" local et copie le tout sur l'IMAP. Ca marche mais si d'un coup vous voulez vérifier un truc dans votre outlook vous devez attendre la fin de la copie... et ça peut être long
 
Dans les autres trucs trouvés, l'histoire des fichiers supprimés.
En IMAP quand on supprime un fichier, il se trace et reste là jusqu'à ce qu'on Purge le tout. Certaines personnes VEULENT que les mails se déplacent dans un répertoire genre "Deleted items" du serveur...
 
2 solutions
1) faire un drag'n drop des emails en question vers la poubelle IMAP
2) faire une macro qui déplace le truc et le supprime après. L'avantage c'est qu'on peut ajouter un bouton dans la barre d'outils et comme ça les gens sont contents.
 
Pour la macro c'est par là
 

Code :
  1. Sub Delete()
  2. ' By Douglas J. Nakakihara (http://offbe.at)
  3. '
  4. ' A lot has been written about how Google was able to adapt their email engine to support IMAP.
  5. ' It's use of labels instead of a folder hierachy results in emails never being really deleted
  6. ' even when they are no longer visible in the Inbox folder/label. Essentially, the "Inbox" label is
  7. ' removed, so the email no longer appears in the Inbox. It remains, however, on the mail server.
  8. '
  9. ' The quick solution is to just drag emails to the Trash "folder" (really just a special label).
  10. ' This macro automates the process and will automatically move selected emails to the Google
  11. ' [Gmail]/Trash folder, just like deleting normally. Gmail deletes Trash email after 30 days.
  12. '
  13. ' The only modification you should need to do is change the OLaccountName varible below
  14. ' You'll also need to change the Security Level to Medium (Tools menu  > Macro > Security)
  15. '
  16. ' To install:
  17. ' 1. Tools menu > Macro > Visual Basic Editor
  18. ' 2. On the left side, right-click Module and chose Module > Insert > Module
  19. ' 3. Copy and paste this code in the window
  20. ' 4. Save and close the VB editor
  21. '
  22. ' You can add the macro to your toolbar or just run it from Tools menu > Macros.
  23. '
  24. ' To add to the toolbar:
  25. ' 1. Right-click the toolbar and choose Customize
  26. ' 2. On the Commands tab select Macros
  27. ' 3. Drag the gmailDelete command to the desired position on the toolbar
  28. ' 4. Right-click the macro on the toolbar and choose Default Style. You can also choose
  29. '    Change Button Image to customize the icon.
  30. '
  31. ' Code inspiration:
  32. '  Outlook moving code by Chewy Chong at:
  33. '   http://verychewy.com/archive/2006/ [...] older.aspx
  34. '  getfolder function:
  35. '   http://wiki.activityowner.com/inde [...] linker.bas
  36. '
  37. ' NOTE: If you drag/move email from an IMAP folder to a folder on your PC, it just becomes
  38. ' unlabeled. One workaround, albeit a PITA, is to copy the email to the folder and then
  39. ' use this macro.
  40. '
  41. ' Searching for unlabeled email from Gmail Tip #22
  42. ' at http://www.g04.com/misc/GmailTipsComplete.html:
  43. '
  44. '  ...if you want to list all unlabeled messages, just create a long search string containing
  45. '  every label that you have defined. Be sure to include the "-" character in front of every
  46. '  label. This ensures that messages with these labels will be EXCLUDED (remember, you are
  47. '  looking for all messages WITHOUT Labels.) You can also optionally include the hidden
  48. '  "inbox" Label to exclude anything in your Inbox.
  49. '
  50. '  For example, if you have defined the Labels "Family", "Friends", "Ebay", and "Support",
  51. '  you would enter the following string into the search field (note that the labels are not
  52. '  case sensitive) to find all Unlabeled messaegs:
  53. '
  54. '  -label:inbox -label:family -label:friends -label:ebay -label:support
  55. '------------------------------------------------------------------------------------------
  57.     Dim OLaccountName As String
  58.    
  59.     OLaccountName = "Mailbox"      'Account name in Outlook
  60.     MoveSelectedMessagesToFolder (OLaccountName)
  61.    
  62. End Sub
  64. Sub MoveSelectedMessagesToFolder(oStore As String)
  66.     On Error Resume Next
  67.     Dim folderName As String
  68.     Dim objFolder As Outlook.MAPIFolder
  69.     Dim objInbox As Outlook.MAPIFolder
  70.     Dim objNS As Outlook.NameSpace
  71.     Dim objItem As Outlook.MailItem
  72.    
  73.     folderName = "Trash"    'Do not change
  74.    
  75.      'The NameSpace is the object that gives you access to all Outlook's folders.
  76.      'In Outlook there is only one and it is called "MAPI" which is an acronym
  77.      'for Messaging Application Programming Interface.
  78.    
  79.     Set objNS = Application.GetNamespace("MAPI" )
  80.     Set objInbox = objNS.GetDefaultFolder(olFolderInbox)
  81.     Set objFolder = getfolder(oStore, folderName)
  82.     If objFolder Is Nothing Then
  83.         MsgBox folderName & " doesn't exist!", vbOKOnly + vbExclamation, "INVALID FOLDER"
  84.     End If
  85.     If Application.ActiveExplorer.Selection.Count = 0 Then
  86.         'Require that this procedure be called only when a message is selected
  87.         Exit Sub
  88.     End If
  89.     For Each objItem In Application.ActiveExplorer.Selection
  90.         If objFolder.DefaultItemType = olMailItem Then
  91.             If objItem.Class = olMail Then
  92.                 objItem.Move objFolder
  93.             End If
  94.         End If
  95.     Next
  96.     Set objItem = Nothing
  97.     Set objFolder = Nothing
  98.     Set objInbox = Nothing
  99.     Set objNS = Nothing
  100. End Sub
  102. Function getfolder(oStore As String, ofolder As String) As Outlook.MAPIFolder
  103.     Dim objNS As Outlook.NameSpace
  104.     Dim found As Boolean
  105.     Dim outlookstore As Outlook.MAPIFolder
  106.     Dim newname As String
  107.     Set objNS = Application.GetNamespace("MAPI" )
  108.     found = False
  109.     'Get OutLook Store
  110.     While Not found
  111.         On Error Resume Next
  112.         Set outlookstore = objNS.Folders(oStore)
  113.         If outlookstore Is Nothing Then
  114.             MsgBox "Outlook store " & oStore & " not found. ", vbOKOnly + vbExclamation, "Outlook store not found"
  115.             Exit Function
  116.         Else
  117.             found = True
  118.         End If
  119.     Wend
  120.     'Get Outlook Folder
  121.     found = False
  122.     While Not found
  123.         On Error Resume Next
  124.         Set getfolder = getgmailfolder(outlookstore, ofolder)
  125.         If getfolder Is Nothing Then
  126.             MsgBox "Outlook Folder " & ofolder & " not found. ", vbOKOnly + vbExclamation, "Outlook Folder not found"
  127.             Exit Function
  128.          Else
  129.             found = True
  130.          End If
  131.     Wend
  132.     'clean up
  133.     Set objNS = Nothing
  134. End Function
  136. Public Function getgmailfolder(ByRef oStore As Outlook.MAPIFolder, strFolderPath As String) As MAPIFolder
  137.   ' folder path needs to be something like
  138.   '   "Public Folders\All Public Folders\Company\Sales"
  139.  
  140.   Dim colFolders As Outlook.Folders
  141.   Dim objFolder As Outlook.MAPIFolder
  142.   Dim arrFolders() As String
  143.   Dim i As Long
  144.   On Error Resume Next
  146.   strFolderPath = Replace(strFolderPath, "/", "\" )
  147.   arrFolders() = Split(strFolderPath, "\" )
  148.   Set objFolder = oStore.Folders.Item(arrFolders(0))
  149.   If Not objFolder Is Nothing Then
  150.     For i = 1 To UBound(arrFolders)
  151.       Set colFolders = objFolder.Folders
  152.       Set objFolder = Nothing
  153.       Set objFolder = colFolders.Item(arrFolders(i))
  154.       If objFolder Is Nothing Then
  155.         Exit For
  156.       End If
  157.     Next
  158.   End If
  160.   Set getgmailfolder = objFolder
  161.   Set colFolders = Nothing
  162. End Function


 
remplacez la ligne :     OLaccountName = "Mailbox"  
avec votre nom de compte IMAP
et la ligne :     folderName = "Trash"    'Do not change
avec le nom de votre répertoire poubelle :o


---------------
Des trucs - flickr - Instagram
Reply

Marsh Posté le 23-04-2008 à 19:31:31    

Sous Outlook 2007, il suffit d'aller dans les propriétés du compte de messagerie, dans les paramètres supplémentaires, onglet Dossiers. Là, il y a une option pour lui dire de mettre les éléments envoyés dans un dossier de ton serveur plutôt qu'en local. Vérifie si tu ne l'as pas sous Outook 2003.

Message cité 1 fois
Reply

Marsh Posté le 23-04-2008 à 21:24:41    

Wolfman a écrit :

Sous Outlook 2007, il suffit d'aller dans les propriétés du compte de messagerie, dans les paramètres supplémentaires, onglet Dossiers. Là, il y a une option pour lui dire de mettre les éléments envoyés dans un dossier de ton serveur plutôt qu'en local. Vérifie si tu ne l'as pas sous Outook 2003.

 

ouaip c'est une des améliorations de 2007... mais y a pas sous 2003.

 

Autre truc très con sous 2003, les PST crées pour les comptes IMAP sont en format AINSI... et limités à 1.9GB... les fichiers PST pour le POP sont par contre en UNICODE et limités à 18GB.

 

Sous 2007, tous les fichiers ont été passés en UNICODE

 

EDIT : :hello: en fait :D


Message édité par darxmurf le 23-04-2008 à 21:25:09

---------------
Des trucs - flickr - Instagram
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed