Discussion :

[Malick]

J'ai créé une signature par défaut aussi bien pour les envois de mails que pour les réponses et les transferts.

Je me suis rendu compte qu'en répondant aux mails ou en faisant le transfert, le logo et les couleurs du texte de ma signature disparaissent automatique, laissant la place à un texte brut.

Edit : je viens de remarquer que le problème concerne un seul destinataire, pour tous les autres c'est ok.

Auriez-vous une idée sur comment résoudre ce problème afin de garder les éléments cités ?


Merci d'avance

Cordialement,
Malick

[Oliv-]

Bonjour,
Est ce que cet expéditeur t'envoi des Mail en HTML ou en BRUT ?

[Malick]

Bonjour,

Merci Oliv- pour ce retour.

Comment faire pour savoir le type de mail envoyé par l'expéditeur concerné ?

Pour les mails envoyés, j'ai ceci :

[Oliv-]

Le plus simple c'est de faire REPONDRE, et de regarder le format dans l'onglet "Format de texte"

[Malick]

Ok, en faisant cela, j'ai vu que le format était en Texte brut contrairement aux autres qui sont en HTML.

Donc mon problème serait-il lié à cela ?

[Oliv-]

Tout à fait,
La réponse se fait par défaut avec le format d'origine. Il n'y a pas de paramétrage pour modifier cela, il faut se utiliser une macro

http://www.developpez.net/forums/d15...t/#post8573658

[Malick]

Merci beaucoup je vais explorer cette proposition.

Cordialement,
Malick

[Malick]

J'ai un message d'erreur en essayant de compiler

En fait j'avais déjà ce code dans l'éditeur :

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
 
Public WithEvents AM As MailItem
 
Private Sub Application_ItemLoad(ByVal item As Object)
 
' Vérifis que le formulaire est bien celui d'un Email
    If item.Class = olMail Then
        Set AM = item
    Else
        Exit Sub
    End If
End Sub
 
 
Private Sub AM_Open(Cancel As Boolean)
 
If AM.Subject = "" Then AM.Subject = Date
End Sub

Ensuite j'ai inséré votre code juste après ce dernier :

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
Private m_MyEmails As VBA.Collection '' pour classe CMail
Private m_lNextKeyEmails As Long '' pour classe CMail
 
Private Sub Application_ItemLoad(ByVal item As Object)
'---------------------------------------------------------------------------------------
' Procedure : Application_ItemLoad
' Author    : Oliv
' Date      : 07/03/2016
' Purpose   : EMAIL WRAPPER / Receive Events of Multiple Emails
' BASED ON : http://www.vboffice.net/en/developers/inspector-wrapper-receive-events-of-multiple-emails/
'---------------------------------------------------------------------------------------
'
 
    Dim oMail As cMail
    If m_MyEmails Is Nothing Then Set m_MyEmails = New VBA.Collection
    Set oMail = New cMail
    If item.Class = olMail Then
        If oMail.Init(item, CStr(m_lNextKeyEmails)) Then
            m_MyEmails.Add oMail, CStr(m_lNextKeyEmails)
            m_lNextKeyEmails = m_lNextKeyEmails + 1
        End If
    ElseIf item.Class = olAppointment Then
        Set At = item
    End If
 
End Sub
 
Friend Property Get MyEmails() As VBA.Collection
' pour classe CMail
    Set MyEmails = m_MyEmails
End Property

Le message obtenu est ceci :

[Malick]

Pour information, le premier code a été fait par l'informaticien, je ne sais pas dans quel but.

Merci pour votre aide.

Cordialement,
Malick

[Malick]

J'ai supprimé le code trouvé sur place pour ne laisser que les codes que vous avez proposés. En compilant, j'ai ce message d'erreur :

[Oliv-]

as tu bien créé un module de Classe appelé cMail ? et collé dedans le code qui va avec ?

[Malick]

as tu bien créé un module de Classe appelé cMail ? et collé dedans le code qui va avec ?

Effectivement ça provenait de là.

Maintenant la compilation s'est très bien passée, mais la réponse n'inclut toujours pas la signature par défaut avec le logo et le formatage et je n'ai pas de message d'erreur.

[Oliv-]

Il faut utiliser le mode pas à pas, points d'arrêt et espions pour voir si cela se déclenche bien et ce qui se passe ou pas.

Je n'ai pas testé ce code sur OL2013, je ne sais pas le comportement avec le nouveau mode de réponse inline

[Malick]

Merci pour ce retour.

Il faut utiliser le mode pas à pas, points d'arrêt et espions pour voir si cela se déclenche bien et ce qui se passe ou pas.

Il n'y a pas de déclenchement de la macro.

Peut-être qu'il y a une incompatibilité avec OL2013 ; ben je pense que je vais continuer à l'utiliser avec le format Texte brut.

Merci encore pour votre disponibilité

Cordialement,
Malick

[Oliv-]

bonsoir,

si tu réponds lorsque le mail est ouvert (isolé) ça doit fonctionner , mais effectivement avec le mode reponse inline ca ne marche pas

[Malick]

si tu réponds lorsque le mail est ouvert (isolé) ça doit fonctionner

J'ai essayé cela, mais il n'y a pas de changement.

Merci encore

Edit : je vais continuer à l'utiliser avec le format Texte brut.