Bir hucredeki linki mail olarak gönderebilmek

[byvolkan]

Iyi gunler forumda arama yapmama ragmen bulamadigim bir konu. Mailde link gonderme var ama secili hucreye yazilmis linki alip gondermek hakkinda bir sey bulamadim.
Asagidaki gibi bir kodum var bu kodda G28 hucresine yazmis oldugum linki mail ile gondermek istiyorum. A href ekledigim zaman calismiyor eklemeyince link normal text olarak gozukuyor yardimci olursaniz sevinirim.

Sub Phase3()
    Dim OutMail As Object
    Dim strbody As String


        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)
    
          strbody = "Bonjour," & _
                  "<br><br>Votre demande de métrologie realisé pour le : " & _
                  "<br><br>Client <b>" & Range("C14").Value & ",   </b> Moule  <b>" & Range("C12").Value & ",  </b> et Designation produit  <b>" & Range("C16").Value & ".   </b> <br><br> Veuillez trouver toutes les info sur la fiche demande de métrologie numero =<b>  " & Range("H2").Value & _
                  "<br><br>Cliquez sur ce lien pour ouvrir le fichier concerné :<b>  "<A href= '" & Range("g28").Value & "'>Cliquez ici</A>" _
                  "<br><br></b></font>Cordialement,"
        With OutMail
            .to = Range("C10").Value & ";" & Range("C24").Value & ";" & Range("C26").Value
            .CC = ""
            .BCC = ""
            .Subject = "Demande de metrologie - Phase 3 (Réalisation)"
            .HTMLBody = strbody
            .Send
        End With
        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
End Sub

 

[bmutlu966]

Aşağıdaki şekilde deneyiniz.

"<a href=" & [G28] & ">" & "Cliquez ici" & "</a>"

 

[byvolkan]

Cok tesekkurler mukemmel bir sekilde çalisti.