Overførelse af data til mail ved mailadresse i felt

Jo det er ikke det store problem via VBA.. men lad os se om der er andre bud..

Rem Reference til Microsoft Outlook skal sættes (Tools / References)
Rem Hvis mailadresse er hyperlink
Rem så hold ALT-tasten nede mens der klikkes på adressen
Rem ================================================================
Const emailKolonneNr = 6                            'F
Const fastMeddelelsesCelle = "I1"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim emne As String, ræk As Long, kol As Integer
    ræk = Target.Row
    kol = Target.column
   
    If kol = emailKolonneNr And Target <> "" Then
        svar = MsgBox("Send mail?", vbYesNo)
        If svar = 6 Then
            emne = "Kære " & Cells(ræk, 1) & " " & Cells(ræk, 2)
            afSendMail Target.Value, emne, Range(fastMeddelelsesCelle)
        End If
    End If
End Sub
Private Sub afSendMail(modtager, emne, meddelelse)
Dim mailApp, Namespace, nyMail
   
    On Error GoTo sendMailFejl
   
Rem Opsætning af Outlook
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set nymod = nyMail.Recipients

    nymod.Add modtager
    nyMail.Subject = emne
    nyMail.body = meddelelse
    nyMail.Display
'    nyMail.Send
   
    Exit Sub
   
sendMailFejl:
    Stop
End Sub

Det er den danske udgave jeg kører med. Hvor er det helt præcist jeg skal sætte koden ind, kan ikke uniddelbart finde det ?

MVH UVoller

koden er indsat under det ark, der indeholder data.

Ellers send en mail - så returnerer jeg min fil. @-adr. under profil.

Jeg anvender også office 2007 DK

Det er simpelthen kanon SuperTekst , så fungere det tak for hjælpen og du har fået point.