Macro pour remplir un sujet automatiquement [Résolu]

[jouvrard]

Bonjour,

J'utilise Outlook 2007.

Je voudrais savoir s'il est possible, et surtout comment faire pour remplir automatiquement un sujet dans un nouveau message dans Outlook 2007.

Le mieux serait qu'il y ait une icône supplémentaire sur la fenêtre du nouveau message permattant en cliquant dessus le remplissage du champs "sujet" du mail.

Merci de votre aide!

[Heureux-oli]

Je ne comprends pas ta démarche.
Tu veux un bouton pour cliquer et remplir le sujet du message alors qu'il est à l'écran
Dis nous ce que tu veux faire exactement !

[jouvrard]

J'ai parfois du mal à être clair oui.

C'est bien ça: la fenêtre pour écrire un message est bien affichée à l'écran.

En fait pour une application particulière nous avons besoin d'envoyer un mail avec un sujet précis qu'il est difficile de retenir car il s'agit de caractères spéciaux.
Donc au lieu de le retaper à chaque fois, ils souhaiteraient avoir la possibilité de l'écrire directement en cliquant sur une icône par exemple.

[Heureux-oli]

Code :

1
2
3
4
5
6
7
8
9
Public Sub collersujet()
Dim oApp As Outlook.Application
Dim myI As MailItem
Set oApp = CreateObject("Outlook.Application")
Set myI = oApp.CreateItem(olMailItem)
myI.Subject = "Mon texte en Objet"
myI.Display
 
End Sub

Tu vas dans l'éditeur VBA (VBE) et tu colle ce code dans ThisOutlookSession.
Tu retournes dans Outlook, avec un clic droit sur les barres d'outils, personnaliser.
Tu ajoutes une barre d'outils.
Tu choisis commande, Macro et tu prends la macro que tu viens de faire.
Tu va avoir un bouton que tu peux modeler comme bon te semble.

C'est tout.

Tu peux même ajouter le destinataire si c'est toujours le même

Code :

myI.TO

[jouvrard]

Parfait, ça marche nickel, merci beaucoup!

[jouvrard]

Hop, j'en rajoute une couche:

Comment faire pour que cette macro se lance alors que je suis déjà dans une fenêtre de création de message pour que le sujet ajouté en cliquant sur l'icône s'ajoute à celui qu'à écrit l'utilisateur?

Exemple: j'écrit "Toto" dans l'objet, je clique sur l'icône et il se rajoute à la suite "Bonjour".

J'ai tenter de modifier celle existante mais étant quelque peu... nul dans ce domaine, je n'arrive pas à avoir le résultat recherché.

[Oliv-]

salut
Si tu n'as pas encore trouvé la réponse :

Code :

1
2
3
4
Sub monSujetSpecialementDurARetenir()
set myitem= ActiveInspector.currentitem
myitem.subject = myitem.subject+"mon texte"
end sub

Ok ?