envoi d'un mail via un lien hypertexte et insérer un lien web dans ce mail

michigan

XLDnaute Nouveau
Bonjour,

à travers un lien hypertexte qui me dirige vers ma boite mail, je souhaite insérer dans le corps du message un lien hypertexte qui me dirige vers un site web.(ex:google)
 

Lone-wolf

XLDnaute Barbatruc
Bonsoir michigan

Un proposition avec Outlook direct

VB:
Option Explicit

Sub Envoi_Mail()
Dim corps As String, lien As String
Dim OlApp As Object
Dim OlMail

    lien = "https://www.excel-downloads.com/forum/forum-excel.7/"

    corps = "Bonjour Monsieur," & vbLf & "Votre lien d'activation" & vbLf & vblf &  lien _
          & vbLf & vbLf & "Cordialement" & vbLf & vbLf & vblf &  "Votre WebMaster"

    Set OlApp = CreateObject("Outlook.Application")
    Set OlMail = OlApp.CreateItem(0)
    With OlMail
        .To = ""      'Envoyer à
        .Subject = ""         'Sujet
        .Body = corps           'Corps du message
        .Display      'Visualisation avant envois
        '.Send        'Envoi direct
    End With
    Set OlMail = Nothing
    Set OlApp = Nothing
End Sub
 

michigan

XLDnaute Nouveau
Bonjour, en faite sur mon tableau en C3 j'ai un lien hypertexte qui ouvre Outlook et qui envoi un message avec objet: demande arrivant à expiration et comme message: bonjour,
Votre demande arrive à échéance, merci de me prévenir si vous souhaitez la prolonger ou la terminé.
"Lien hypertexte qui m''ouvre internet sur le bon coin par exemple."
Cordialement

Le tout en une formule et non un vba.
 

Pièces jointes

  • Classeur.xlsx
    8.7 KB · Affichages: 51

michigan

XLDnaute Nouveau
Re bonjour

Sub Mail()
Dim corps As String, lien As String
Dim OlApp As Object
Dim OlMail
lien = "Ce lien n'existe plus.

corps = "Bonjour Monsieur,Votre demande arrive à échéance, merci de me prévenir si vous souhaitez la prolonger ou la terminé. " & vbLf & "Votre lien d'activation" & vbLf & vbLf & lien _
& vbLf & vbLf & "Cordialement" & vbLf & vbLf & vbLf & "Polinorsud : Cellule Colisage 2849 - 2845 - 3593" & vbLf & "N° Epsilon : " & Cells(3, 1)




Set OlApp = CreateObject("Outlook.Application")
Set OlMail = OlApp.CreateItem(0)
With OlMail
.To = Cells(3, 3) 'Envoyer à
.Subject = "" 'Sujet
.Body = corps 'Corps du message
.Display 'Visualisation avant envois
'.Send 'Envoi direct
End With
Set OlMail = Nothing
Set OlApp = Nothing
End Sub

Je me suis finalement rabattu sur la VBA

Je voudrais avec le même exemple lui demander de renvoyer dans le "corps" Si dans la mise en forme en colonne H le chiffre et rouge alors renvoyer la cellule de la colonne A correspondant

Et la même chose dans "Envoyer à" si la mise en forme et en rouge alors renvoyer la cellule de la colonne C

Et que cela renvoie "envoie mail" dans la colonne K, biensur en fonction de la mise en forme

J'ai joint un fichier pour être plus compréhensible
 

Pièces jointes

  • Classeur1.xls
    80 KB · Affichages: 62

Lone-wolf

XLDnaute Barbatruc
Re

Je ne comprend pas pourquoi tu te complique la vie et pas sûr d'avoir tout compris.

EDIT: ton classeur en retour, regarde si ç'est ce que tu voulais.
 

Pièces jointes

  • Classeur-michigan.xlsm
    35.1 KB · Affichages: 64
Dernière édition:

Discussions similaires

Réponses
1
Affichages
78
Compte Supprimé 979
C
Réponses
5
Affichages
156
Réponses
5
Affichages
332

Statistiques des forums

Discussions
311 732
Messages
2 081 995
Membres
101 857
dernier inscrit
mt60400