Bonjour à tous,
Le bout de code ci-dessous (nouveau mail avec un objet prédéfini), a fonctionné un premier temps puis après un redémarrage le bouton ne fonctionne plus (cela ne fait rien).
Dans mon centre de confidentialité j'ai activé les macros mais toujours rien.
J'ai essayé de créer une nouvelle macro (nouveau module) mais toujours rien.
Avez vous une solution ?
Merci
Méthode et code :
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.
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
Partager