Comment écrire du texte dans outlook avec une macro

Jeremiah -  
 Jeremiah -
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   Statut Membre Dernière intervention   948
 
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
Jeremiah
 
Eureka,

J'ai fini par trouver sur

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

bonne route et merci
1
jeremiah
 
Bonjour,

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


je re-dirai si j'ai trouvé mon bonheur.
0
jeremiah
 
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   Statut Modérateur Dernière intervention   2 761
 
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
jeremiah
 
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   Statut Modérateur Dernière intervention   2 761
 
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
Jeremiah
 
tu l'as testé?

rien ne se passe chez moi!

en tout cas merci quand même.
0