Discussion :

[Herve_be]

Bonjour,
Outlook ne comporte pas d'enregistreur comme Excel; je connais VB6 mais pas les commandes spécifiques à VBA.
D'une manière générale, comment trouver les instructions relatives aux manipulations de mail ?

Ce que je voudrais faire est très simple
sélectionner tout le texte d'un mail ouvert en transfert ou en réponse
Format du texte - Paragraphe - Espacement avant = 0 - Espacement après = 0

Question subsidiaire : est-il possible ensuite d'activer cette macro à l'aide d'un bouton du ruban ?

Merci d'avance pour votre aide

[Oliv-]

Salut,

Tu peux lire ce post

pour commencer.

Ce qui est facile à énoncer n'est pas forcément aussi facile à réaliser !

ce que tu veux réaliser peux nécessiter d'utiliser l’objet WORD incorporé dans OUTLOOK, selon le format de ton message voir WordEditor

[Herve_be]

Bonjour,
Merci pour la réponse mais j'ai beau chercher, je ne trouve pas comment modifier les paramètres d'un paragraphe via VBA.

[Oliv-]

De quel type de message s'agit t'il ? HTML /BRUT /RTF ?

[Herve_be]

HTML.
En fait souvent quand on me répond l'espacement dans mon message d'origine passe à "Auto", le résultat étant que les lignes sont 2 fois trop espacées.
Alors je sélectionne tout le texte et remet l'espacement à zéro mais ce serait plus rapide si j'avais un bouton pour le faire en un clic.

[Oliv-]

est ce que cela règle ton pb ?

Code :

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

1
2
3
 
    Set OITEM = ActiveInspector.CurrentItem 'désigne l'élément actif càd le mail 
    OITEM.HTMLBody = Replace(Replace(OITEM.HTMLBody, "mso-margin-top-alt:auto", "margin-top:0.0pt"), "mso-margin-bottom-alt:auto", "margin-bottom:0.0pt")

tu devrais vérifier si ce n'est pas dans tes paramètres par défaut que tu as ce format de paragraphe

(dans NormalEmail.dot ?)

[Herve_be]

Cette macro fait exactement ce que je cherche, un tout grand merci !

Je l'ai affectée à un bouton sur la barre d'accès rapide, problème résolu !

Si je comprends bien tu remplaces "mso-margin-top-alt:auto" par "margin-top:0.0pt"
Où trouves-tu les infos pour connaître cette syntaxe ?
Au lieu de faire "replace" n'est-il pas possible de faire qqch comme "set" pour que la modification ne dépende pas de la valeur existante ?

[Oliv-]

c'est purement expérimental

avec ce code tu récupère dans le presse papier le code HTML et tu fouilles dedans

il faut ajouter une référence à "Microsoft Forms 2.0 Object library"

Code :

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

1
2
3
4
 With New DataObject
    .SetText OITEM.HTMLBody
    .PutInClipboard
    End With

l'autre solution c'est d'utiliser du code WORD voir réponse précédente

[Herve_be]

c'est purement expérimental

[Oliv-]

Dans le sens de empirique

[Herve_be]

Bonjour,
J'avais bien compris "empirique" (essai et erreur).

J'ai un autre problème : cette macro qui fonctionnait très bien ne fonctionne plus, j'ai un message d'erreur
"Les macros de ce projet sont désactivées. Référez-vous à l'aide en ligne ou à la documentation de l'application hôte pour savoir comment activer les macros."
Je ne trouve pas comment activer les macros dans l'aide d'Outlook.
Dans le menu "?" les macros ne sont pas désactivées.
Dans "gestion de la confidentialité - gestion des macros" j'ai coché "aucun contôle de sécurité pour lesmacros" mais ça ne change rien.

[Capedemo]

Bonjour,

Je réactive cette discussion car elle est exactement sur le sujet qui me concerne.
Je voudrais avoir une macro qui fasse la mise en forme de mon message :
Format du texte - Paragraphe - Espacement avant = 0 - Espacement après = 0

J'ai essayé la macro donnée en réponse mais cela ne donne rien. Ca ne plante pas mais ca ne change rien au format de mon message.
Je suis bien en HTML, mes macros sont actives (j'ai essayé une autre macro basique trouvée sur le forum et qui a fonctionné)

Auriez vous une solution à me proposer ?
Merci d'avance