Comment écrire du texte dans outlook avec une macro

Fermé
Jeremiah - 31 janv. 2014 à 14:46
 Jeremiah - 21 mars 2014 à 15:06
Bonjour,


Je voudrais créer une macro sous outlook qui, via un bouton ajouté à ma quick access toolbar ou un raccourci clavier, me permet d'insérer la date du jour là où se trouve le curseur.



je me débrouille bien sous VBA excell et word, mais dans outlook, je suis paumé.

quelqu'un peut-il m'aider?

Merci d'avance.


A voir également:

8 réponses

Froulik Messages postés 3779 Date d'inscription lundi 11 novembre 2013 Statut Membre Dernière intervention 15 avril 2014 943
31 janv. 2014 à 14:49
bonjour
N'étant pas spécialiste, je peux te proposer une page :
https://dolphy35.developpez.com/article/outlook/vba/
si ça peut t'être utile...
1
Eureka,

J'ai fini par trouver sur

http://www.slipstick.com/outlook/insert-the-date-and-time/

bonne route et merci
1
Bonjour,

Merci pour l'info, je vais essayer de me débrouiller avec ça.


je re-dirai si j'ai trouvé mon bonheur.
0
Bon ben, cela ne m'aide pas vraiment.

il n'y a pas d'exemple ou l'on modifie le corps du message mail

une autre idée?
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
Modifié par pijaku le 5/02/2014 à 12:54
Bonjour,

Essayez ceci :

Sub DateInsert()
Dim myItem As Object
Set myItem = Application.ActiveInspector.CurrentItem
myItem.Body = Date & vbCr & myItem.Body
Set myItem = Nothing
Set myOlApp = Nothing
End Sub 


Sources

Cordialement,
Franck
0
Salut,

Merci, mais j'avais déjà essayé cela.

Et le problème, c'est que cela enlève tout le formatage du texte existant ainsi que les logos dans la signature.

il faudrait un truc du genre

Selection.TypeText Text:=" text a insérer"

comme dans Word
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 752
Modifié par pijaku le 6/02/2014 à 13:00
Salut,

Toi tu n'as pas lu toute la conversation placée dans le lien Sources de ma précédente réponse...

Euh... Remarque moi non plus...
La solution y est indiquée, en dernière réponse :

Sub InsereDate()
SendKeys Date
End Sub


Tout simplement...
Et voilà!

Cordialement,
Franck
0
tu l'as testé?

rien ne se passe chez moi!

en tout cas merci quand même.
0