Discussion :

[cavo789]

Bonjour

Pensez-vous qu'il soit possible de détecter la présence de tags en temps réel lorsque l'on écrit un mail ? Ce que j'ai déjà pû faire : dans le ItemSend event de Outlook, je peux capturer le corps du mail et remplacer les tags par des Smileys. Par exemple remplacer :-) par une image.

Inconvénient : cela se fait uniquement lorsque le mail est envoyé et pas en temps réel.

Ce que j'aimerais : faire ce remplacement directement, un peu comme dans un programme de chat.


Ci-dessous mon code. Je pensais que le ItemChange event pourrait m'apporter une piste mais cela ne semble pas le cas.

Auriez-vous une idée ?

Merci.

Christophe

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public WithEvents OutlookAppEvents As Outlook.Application
Public WithEvents InBoxItems As Outlook.Items

Dim oMail As Outlook.MailItem

Private Sub AddinInstance_OnConnection(ByVal Application As Object, _
   ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, Custom() As Variant)
   
   ' Instanciate Outlook
   
   Set OutlookAppEvents = Application
   
   ' Instanciate the Inbox folder
   
   Set InBoxItems = Application.Session.GetDefaultFolder(olFolderInbox).Items
   
End Sub

Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, Custom() As Variant)
   
   Set InBoxItems = Nothing
   
   Set OutlookAppEvents = Nothing
   
End Sub



' -------------------------------------------------------
' ------- Cette procédure n'est jamais appelée ----------
' -------------------------------------------------------

Private Sub InBoxItems_ItemChange(ByVal Item As Object)

Dim sBody As String

   If TypeName(Item) = "MailItem" Then
      
      Set oMail = Item
      
      sBody = oMail.HTMLBody
      
      If InStr(sBody, ":-)") > 0 Then
        Call Replace(sBody, ":-)", "<img src='http://smileys.sur-la-toile.com/repository/Content/0016.gif' />")
      End If
      
      Set oMail = Nothing
      
   End If

End Sub

[cavo789]

Personne ? Est-ce chose impossible ?

[Heureux-oli]

Je ne pense pas que ce soit possible pendant la rédaction.
Sauf si tu utilise Word comme éditeur, dans les options de correction automatique, j'ai pas essayé.

[cavo789]

Ah ? Dommâge.

Merci pour ta réponse.