Discussion :

[Pierre.g]

Bonjour,

Je cherche à modifier l'objet d'un mail, dès l'ouverture du formulaire de réponse. Par exemple, modifier "RE: Sujet" par autre chose, dans le formulaire (pas au moment de l'envoi).

J'ai tenté de commencer par :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Application_ItemLoad(ByVal Item As Object)
 
    ' Vérifis que le formulaire est bien celui d'un mail
    If Item.Class <> olMail Then Exit Sub
 
    MsgBox Item.Subject
 
End Sub

Mais il y a une erreur sur la dernière ligne : "Impossible d'utiliser les propriétés et les méthodes de l'élément dans cette procédure événementielle."

Savez-vous comment vous y prendre ?

Merci.

Pierre

[gdbracelets]

essaie de mettre myItem.Subject = lavariablecontenantletextequejeveuxmettre

[carden752]

Bonjour,

Cette procédure évenementielle est utilisée pour initialiser des paramètres. Seul les propriétés Class et MessageClass de l'objet sont autorisées.
Essaies en déclarant un nouvel objet de type MailItem avec évènements et en chargeant son évenement Open.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public WithEvents it As MailItem
 
Private Sub Application_ItemLoad(ByVal Item As Object)
 
    ' Vérifis que le formulaire est bien celui d'un mail
    If Item.Class <> olMail Then Exit Sub
    Set it = Item
 End Sub
 
 
Private Sub it_Open(Cancel As Boolean)
mgbox it.Subject
End Sub

[Pierre.g]

Impeccable, merci beaucoup ça fonctionne comme ça.