Ouvrir un mail prédéfini via Excel

Bonjour,

Je vous explique ma situation :

- j'ai une liste de clients sur Excel à qui je dois envoyer des fichiers par mail ;
- je leur envois les mails un par un puisque chaque dossier est différent ;
- cependant, comme il y a des similitudes, j'ai des modèles de mails en ma disposition ;
- je voudrais donc simplement cliquer sur leur nom (ou adresse, ou etc...) et que cela m'ouvre un nouveau message dans Outlook avec leur adresse mail déjà inscrite et le message que je veux dans le corps ;
- cela doit me permettre de n'avoir que les pièces jointes à ajouter (j'ai vu que le VBA permettait de joindre un fichier mais les fichiers que je veux joindre sont tous différents).

Est-ce qu'il y a un moyen de paramétrer cela ? Car un lien hypertexte ne me permet pas de prédéfinir un message dans le corps... Peut-être par VBA ? Sûrement même ! Mais je ne m'y connais pas du tout, enfin, je suis débutant ! :/

Un peu d'aide s'il vous plaît ?

En vous remerciant pour votre attention et votre éventuelle réponse !

1 réponse

  1. Bonjour,

    Où se trouvent, sur la feuille, les adresses mail, l'objet et le texte des messages ?

    Cordialement.

    Daniel
    0
    1. Les adresses mails sont en colonne I, l'objet est sur la ligne 1 fusionné en A:J et les textes deux ne sont pas sur Excel mais je les ai en signatures de mail.

      Pensez-vous que ce soit faisable ?
      0
    2. @PaquitoPensez-vous que ce soit faisable ?

      Oui, bien sûr. Pour être plus précis, les adresses commencent en quelle ligne ?

      Daniel
      0
    3. Bonjour,

      Les adresses commencent en ligne 4.
      0
    4. @PaquitoBonjour,

      Les adresses mail ne doivent pas être des liens hypertexte.Soit tu supprimes les liens existants, soit tu bloques la saisie de liens hypertexte au niveau Excel. Les différentes options sont détaillées ici :

      https://support.microsoft.com/fr-fr/office/supprimer-ou-d%c3%a9sactiver-des-liens-hypertexte-027b4e8c-38f8-432c-b57f-6c8b67ebe3b0?ui=fr-fr&rs=fr-fr&ad=fr

      Le fonctionnement sera le suivant : le double clic sur une cellule de la plage I4:Ix provoquera l'affichage du message. Il te restera à le compléter.

      Pour la mise en place, copie ce code :

      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
        Dim olApp As Object, M As Object
        If Not Intersect(Target, Range("I4", Cells(Rows.Count, 9).End(xlUp))) Is Nothing Then
          Cancel = True
          Set olApp = CreateObject("Outlook.application")
          Set M = olApp.CreateItem(olMailItem)
          With M
              .Subject = [A1]
              .Recipients.Add Target.Value
              .Display
          End With
        End If
      End Sub


      Fais un clic droit sur l'onglet de la feuille, clique sur "visualiser le code" et colle le code dans la partie droite de la fenêtre de de l'éditeur VB qui vient de s'ouvrir. Enregistre le classeur au format .xlsm.

      Daniel
      0