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

[michigan]

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]

Bonsoir michigan

Un proposition avec Outlook direct

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]

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.

 

[michigan]

Voilà dans l'idée ce qui s'approche de ma demande. Sauf que je n'arrive pas à mettre un lien hypertexte dans cette formule. Si vous avez plus simple je suis preneur.
Merci à tous

 

[Lone-wolf]

Re

Je n'ai jamais utiliser cette méthode, et te dire si c'est possible ou pas d'ajouter un autre lien, j'en ai aucune idée.

 

[Lone-wolf]

Re

J'ai fait un test comme ceci et ça met bien le lien dans le corps du message.

=LIEN_HYPERTEXTE("mailto:"&A2&"&body="&B2)

 

[michigan]

Salut, j'arrive à mettre le lien hypertexte dans le message, par contre comment y insérer un texte? A partir du moment ou je met body, le texte est limité en caractère et me retire la signature automatique.

 

[Lone-wolf]

Bonjour michigan

Désolé, je ne vois pas comment faire.

 

[michigan]

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

 

[Lone-wolf]

Re

Voici le classeur exemple que j'ai préparé en attendant ta réponse. Il faudra, bien sûr, l'adapter.

 

[michigan]

Merci Lone-wolf, as tu une solution pour ma dernière proposition ?

 

[Lone-wolf]

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.