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.

8 réponses

  1. Jeremiah
     
    Eureka,

    J'ai fini par trouver sur

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

    bonne route et merci
    1
  2. 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
  3. 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
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 772
     
    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
  6. 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
  7. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 772
     
    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
  8. Jeremiah
     
    tu l'as testé?

    rien ne se passe chez moi!

    en tout cas merci quand même.
    0