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.
 

Fichiers joints

michigan

XLDnaute Nouveau
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
 

Fichiers joints

Lone-wolf

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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

XLDnaute Nouveau
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.
 

michigan

XLDnaute Nouveau
Re bonjour

Sub Mail()
Dim corps As String, lien As String
Dim OlApp As Object
Dim OlMail
lien = "https://prod-sdin.

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
 

Fichiers joints

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.
 

Fichiers joints

Dernière édition:

Discussions similaires


Haut Bas