Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Outlook > VBA Outlook
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 03/05/2007, 09h55   #1
Invité de passage
 
Inscription : avril 2007
Messages : 2
Détails du profil
Informations forums :
Inscription : avril 2007
Messages : 2
Points : 0
Points : 0
Par défaut [VBA-O]Chercher macro

Bonjour,

Actuellement, sous outlook 2002, je consulte ma messagerie personnel et une messagerie générique.
Je souhaite faire une régle pour que lorsque je reçois sous la messagerie générique un mail avec le mot URGENT dans l'objet ou le corps du texte, il soit mis en rouge.
Le problème, est que toutes les régles que je trouve dans outlook ne s'applique pas sur la messagerie générique. En fait, je crée la régle sur le profil de la messagerie générique. La régle s'applique quand je suis sur le profil mais ne s'applique pas si je passe sur mon profil (où je consulte ma messagerie et la messagerie générique).
J'ai vu qu'il est possible de faire une régle qui execute un script. Comment dois-je faire pour ecrire le script pour pouvoir le lancer ?
Si quelqu'un a déjà fait un script de ce type, pourriez-vous me donner le code ?

Merci
caracolle est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/05/2007, 09h12   #2
Responsable Visual Basic
 
Avatar de bbil
 
Inscription : juin 2003
Messages : 11 776
Détails du profil
Informations personnelles :
Âge : 45
Localisation : France, Ariège (Midi Pyrénées)

Informations forums :
Inscription : juin 2003
Messages : 11 776
Points : 16 858
Points : 16 858
Envoyer un message via Skype™ à bbil
les mails de la messageries "génériques" arrivent ou..? dans un dossier particulier ..?
si oui .. essai cela que j'ai en préparation (pour faq..) :

Citation:
Envoyé par Comment exécuter une action à l'arrivée d'un mail ?

Une solution peu-être de surveiller le dossier "boîte de réception", et l'événement associé ItemAdd exécuté à
chaque ajout de mail dans le dossier.

Tout d'abords définir et initialiser la collection InBoxItems, dans ThisOutlookSession

vba
Code :
1
2
3
4
Public WithEvents InBoxItems As Outlook.Items
Public Sub Application_Startup()
    Set InBoxItems = Outlook.Session.GetDefaultFolder(olFolderInbox).Items
End Sub


Puis dans ce même module (ThisOutlookSession) le code de l'événement :

vba
Code :
1
2
3
4
5
Private Sub InBoxItems_ItemAdd(ByVal Item As Object)
      If TypeName(Item) = "MailItem" Then
         MsgBox "Ajout/Reception d'un message : " & Item.Subject
      End If
End Sub

restera ensuite à adapter l'action au besoins...

bbil est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 09/05/2007, 09h47   #3
Invité de passage
 
Inscription : avril 2007
Messages : 2
Détails du profil
Informations forums :
Inscription : avril 2007
Messages : 2
Points : 0
Points : 0
Les mails arrivent dans la boite de reception de la messagerie générique.
Mon problème est que je ne trouve pas la ligne de code qui met un mail en rouge. Je voudrais qu'il soit en rouge dans ma liste de mail.
caracolle est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/05/2007, 07h24   #4
Membre chevronné
 
Avatar de cavo789
 
Homme Christophe Avonture
Développeur Web
Inscription : mai 2004
Messages : 649
Détails du profil
Informations personnelles :
Nom : Homme Christophe Avonture
Âge : 37
Localisation : Belgique

Informations professionnelles :
Activité : Développeur Web

Informations forums :
Inscription : mai 2004
Messages : 649
Points : 774
Points : 774
Par défaut Génial !

Je cherchais comment faire pour capturer l'évènement "New mail" et le code que tu as donné ci-dessus fait exactement ce que je voulais.

Merci !
cavo789 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 02h55.


 
 
 
 
Partenaires

Hébergement Web