Discussion :

[guille37]

Bonjour à tous,

J'ai beau chercher un peu partout, je n'arrive pas a trouver la solution à ce que je cherche à faire.

Je souhaiterais pouvoir via une macro, insérer une phrase "opération : suivi construction piscine de Tsarabonjina" dans le corps du texte sans effacer ce qui est déjà écrit.

L'insertion serait positionné la plus part du temps en tous premier (1ere ligne du corps de message), mais éventuellement à la position du curseur.

J'arrive à inscrire du texte à la création d'un nouveau message via la commande ".body", mais il remplace tous en supprimant même la signature...

Merci d'avance

[Razou]

Salut,

Pour la position du curseur je ne sais pas comment faire mais si c'est à la première ligne il faut que tu enregistres le corps de ton mail en 2 partie, avant et après le saut de ligne.
Ensuite tu insère ta phrase sous la forme .body body1"&ton texte"&body2

[guille37]

Bonjour,

je vous joint un bout de code que j'ai récupérer que je cherche à adapter pour mon projet.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Test_Insertion()
 
 Dim myItem As Outlook.MailItem
 
 Dim myRecipient As Outlook.Recipient
 
 Set myItem = Application.???   ' je ne sais pas comment récupérer le mail actif, lors d'une création de mail => Application.CreateItem(olMailItem)
 
 Set myRecipient = myItem.Recipients.Add("Toto Dupond")
 
 myItem.Subject = "Compte rendu visite"
 
 myItem.Body = "opération : suivi construction piscine de Tsarabonjina" & myItem.Body
 
 myItem.Display
 
End Sub

mon premier souci et de récuperer le mail actif, => Set myItem = Application.???

pour le 2 éme problème, la solutionde Razou à l'air de fonctionner lorsque que la test sur un nouveau mail mais ça supprime quand même la signature...

Salut,

Pour la position du curseur je ne sais pas comment faire mais si c'est à la première ligne il faut que tu enregistres le corps de ton mail en 2 partie, avant et après le saut de ligne.
Ensuite tu insère ta phrase sous la forme .body body1"&ton texte"&body2

L'idée est de pouvoir insérer une ligne aussi bien dans un nouveau message que dans un transfert ou une réponse.

Merci

[guille37]

rebonjour,

Je suis toujours en recherche de solution...

quand j’essaie sous Word ça fonctionne et en plus j'arrive à le mettre en gras

Code :

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

1
2
3
4
5
Sub test()
    Selection.Font.Bold = True
    Selection.TypeText Text:="opération : suivi construction piscine de Tsarabonjina"
    Selection.Font.Bold = False
End Sub

La phrase s'insert à la position du curseur.

j'aimerais pouvoir faire la même chose dans le corps d'un mail, mais il y a une erreur sur "Selection."

Avez vous une idée?