Comment écrire du texte dans outlook avec une macro

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. Eureka,

    J'ai fini par trouver sur

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

    bonne route et merci
    1
    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
      1. 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
        1. Modérateur
          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
          1. 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
            1. Modérateur
              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
              1. tu l'as testé?

                rien ne se passe chez moi!

                en tout cas merci quand même.
                0