Discussion :

[jonueva]

Bonjour,

Je suis très novice en programmation mais j’avais tout de même réussi à faire une macro sous Outlook.

Cette macro consiste à renommer l'objet du mail en ajoutant la date de réception devant, exemple:
Confirmation commande devient 20131114 Confirmation commande

Je fais également des remplacements de textes divers.

Cette macro marche uniquement dans le dossier boite de réception de Outlook.

J'ai désormais plusieurs compte imap et je souhaiterais que la macro s'exécute sur le dossier actif ou en subrillance sous Outlook.

Voici le code actuel:

Sub ObjetDate()
Dim oMail As MailItem
Dim myFolder As Folder
Dim myOlApp As Outlook.Application
Dim myNamespace As NameSpace
Dim StLeft As String


Set myOlApp = Outlook.Application
Set myNamespace = myOlApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder (olFolderInbox)

For Each oMail In myFolder.Items
oMail.Subject = Replace(oMail.Subject, "RE: ", "")
oMail.Save
oMail.Subject = Replace(oMail.Subject, "Re: ", "")
oMail.Save
oMail.Subject = Replace(oMail.Subject, "TR: ", "")
oMail.Save
oMail.Subject = Replace(oMail.Subject, "TR :", "")
oMail.Save
oMail.Subject = Replace(oMail.Subject, "Fwd: ", "")
oMail.Save
StLeft = Mid(oMail.ReceivedTime, 7, 4) & Mid(oMail.ReceivedTime, 4, 2) & Mid(oMail.ReceivedTime, 1, 2)
If Left(oMail.Subject, 8) <> StLeft Then
If IsNumeric(Mid(oMail.Subject, 1, 1)) = True And _
IsNumeric(Mid(oMail.Subject, 2, 1)) = True And _
IsNumeric(Mid(oMail.Subject, 3, 1)) = True And _
IsNumeric(Mid(oMail.Subject, 4, 1)) = True And _
IsNumeric(Mid(oMail.Subject, 5, 1)) = True And _
IsNumeric(Mid(oMail.Subject, 6, 1)) = True And _
IsNumeric(Mid(oMail.Subject, 7, 1)) = True And _
IsNumeric(Mid(oMail.Subject, 8, 1)) = True Then
If Mid(oMail.Subject, 9, 1) = " " Then
oMail.Subject = Mid(oMail.Subject, 10)
oMail.Save
Else
oMail.Subject = Mid(oMail.Subject, 9)
oMail.Save
End If
oMail.Subject = Mid(oMail.ReceivedTime, 7, 4) & Mid(oMail.ReceivedTime, 4, 2) & Mid(oMail.ReceivedTime, 1, 2) & " " & oMail.Subject
oMail.Save
Else
oMail.Subject = Mid(oMail.ReceivedTime, 7, 4) & Mid(oMail.ReceivedTime, 4, 2) & Mid(oMail.ReceivedTime, 1, 2) & " " & oMail.Subject
oMail.Save
End If
End If
Next oMail
End Sub

Quelle valeur dois-je affecter à myfolder?

Merci d'avance de vos contributions.

[Oliv-]

Salut,
il faut juste changer

Code :

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

Set myFolder = myNamespace.GetDefaultFolder (olFolderInbox)

par

Code :

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

1
2
 
 Set myFolder = ActiveExplorer.CurrentFolder.Items

[jonueva]

Bonjour,

Merci pour la réponse, mais cela me donne une erreur d'exécution '13':

Incompatibilité de type.

Une idée?

[Oliv-]

Salut effectivement
Set myFolder = ActiveExplorer.CurrentFolder

[jonueva]

Ok cela passe nickel à ce niveau là.

On peut dire que le problème de base est résolu.

J'ai désormais un problème au niveau des "oMail.Save".

Je pense que c'est le fait que ce soit un compte Imap, ça doit le perturber de changer l'intitulé de l'objet, je vais étudier le problème...

Merci de ta réactivité.