email tekst i programkoden

Ikke lige mit område.. Men prøv evt. med:
---------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("f:f")) Is Nothing Then
        If IsEmpty(Target.Value) Then Exit Sub
        ActiveWorkbook.FollowHyperlink Address:="mailto:" & Target.Value & "?Subject=emne&body=Tekst " & E3 & "<br>Tekst " & E7
    End If
End Sub
---------------------------------
Dvs. for at indsætte f.eks. E3, så lukker jeg tekststrengen med " og indikerer med & E3 & at E3 skal indsættes, hvorefter jeg åbner tekststrengen igen med ".
Og jeg går ud fra, mailprogrammet forstår HTML, hvorfor jeg bruger <br> (break line), HTML-koden for linjeskift. Spændt på, om det lykkes. :)

Denne skulle virke

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("f:f")) Is Nothing Then
        If IsEmpty(Target.Value) Then Exit Sub
        ActiveWorkbook.FollowHyperlink Address:="mailto:" & Target.Value & "?Subject=" & [E3] & " &Body=" & [E7]
    End If
End Sub

W13 - der kom ikke rigtigt noget med fra tabellerne, og outlook expree kendte ikke <BR> den skrev blot <BR> :-(

Bak -> der kom sørme præcis ind hvad der skulle, men jeg har vist forklaret mig helt forkert :-)

Jeg skal gerne have den til at skrive E3 hvis man trykker på linket i række 3, men hvis man trykker i række 7 skal den skrive hvad der står i E7, jeg håber det forklarer lidt bedre.

fx. "?Subject=" & [E(den aktuelle række)]

Nu henter den Subject i kolonne E og Bodytekst i kolonne D

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("f:f")) Is Nothing Then
        If IsEmpty(Target.Value) Then Exit Sub
        ActiveWorkbook.FollowHyperlink Address:="mailto:" & Target.Value & _
            "?Subject=" & Target.Offset(, -1) & " &Body=" & Target.Offset(, -2)
    End If
End Sub

PERFEKT - så mangler jeg kun en enkelt ting.
Hvordan laver jeg linieskift i body teksten?

Og svar så lige så du kan inkassere velfortjente point :-)

For at lave et linieskift i en excel - celle trykker du alt-enter der hvor du ønsker linieskiftet

Hmmm jeg prøver lige at forklare mig bedre:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("f:f")) Is Nothing Then
        If IsEmpty(Target.Value) Then Exit Sub
        ActiveWorkbook.FollowHyperlink Address:="mailto:" & Target.Value & _
            "?Subject=" & Target.Offset(, -1) & " &Body=" & Target.Offset(, -2) & "linieskift" & "næste linie"
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("f:f")) Is Nothing Then
        If IsEmpty(Target.Value) Then Exit Sub
        ActiveWorkbook.FollowHyperlink Address:="mailto:" & Target.Value & _
            "?Subject=" & Target.Offset(, -1) & " &Body=" & Target.Offset(, -2) & vbCRLF & "næste linie"
    End If
End Sub

Jep. Og vbNewLine gør det samme som vbCrLf, men den er lidt lettere at huske :)

Øv - Mærkeligt - når jeg indsætter koden, kommer mailen fint nok frem,

MEN
Der skiftes ikke linie :-(

Det kommer til at se sådan ud :

520.00næste linie

Jaa, det bliver nok ikke meget bedre. Problemet er at vi er ovre i et andet program, der ikke umiddelbart accepterer linieskift

Ærgerligt, men det er fint som det virker nu.

1000 tak for hjælpen, det er utroligt hvad man kan lave med "eksperternes" hjælp :-)