[VBA] Insertion texte dans mail

[wizard0147]

Bonjour à tous,

Je viens de trouver un code permettant d'ajouter du texte dans un mail :

Sub InsertText()

Set objDoc = Application.ActiveInspector.WordEditor
Set objSel = objDoc.Windows(1).Selection
objSel.TypeText Text:="Hello!"

End Sub

Je souhaite modifier le "Hello!" par le texte suivant:

Hello

Je suis wizard0147

(en respectant le texte en gras, souligné et italique et sur plusieurs lignes)

Je cherche mais pas moyen. Quelqu'un aurait-il une idée?

Meci d'avance

 

[tototiti2008]

Re : [VBA] Insertion texte dans mail

Bonjour wizard,

ton code ne fonctionne pas chez moi
tu as une référence d'activée ?
C'est bien un code Excel ?

Bon, il faut dire que pour les mail, je n'ai pas Outlook mais Lotus, ça peut jouer

 

[wizard0147]

Re : [VBA] Insertion texte dans mail

Oups pardon, c'est un code outlook !
Je change de section