Convertir un texte brut en lien hypertexte dans Outlook

Je rassemble un POC pour mon entreprise concernant certains outils de surveillance que nous utilisons. Dans le cadre de mon projet, j'ai besoin de convertir des portions d'un courrier électronique en texte clair envoyé dans un lien hypertexte (je ne peux pas envoyer les courriels en HTML à partir de l'outil lui-même).

Je n'ai presque aucune expérience avec VB, mais c'est ce que j'ai cousu en lisant plusieurs autres publications. Je me rends compte que ce n'est pas fonctionnel, mais je pensais qu'il s'agissait d'une base de référence pour que les autres donnent une meilleure idée de ce que j'essaie d'accomplir et de donner des commentaires. Essentiellement, j'essaie de rechercher le courrier électronique pour une chaîne et de la convertir en un lien hypertexte plus concis qui pointe vers cette même chaîne que l'url.

J'ai besoin d'aide pour nettoyer ce que j'ai si vous avez des astuces.

Option Explicit Sub InsertHyperLink(MyMail As MailItem) Dim body As String, re As Object, match As Variant body = MyMail.body Set re = CreateObject("vbscript.regexp") re.Pattern = "^https\..*Operation>$" For Each match In re.Execute(body) body = Replace(body, match.Value, "<a href=""" & Right(match.Value) & """>Open Link</a>", 1, -1, vbTextCompare) Next MyMail.body = body MyMail.Save End Sub

J'ai une réponse mais c'est un peu long, je suis sûr qu'il y a un moyen plus facile, mais fonctionne ainsi:

Si vous avez un mot dans le mot et que vous pouvez faire le lien hypertexte en cours de travail, puis modifier la police, la taille, etc., vous pouvez les copier du mot vers Outlook et garder un lien hypertexte. :RÉ