Sende mail i Excel 2007

Har kun 2003 - men tvivler på at en formel kan sende en mail - men via VBA kan det lade sig gøre.

Under hvilke omstændigheder skal det ske:
- Når der arbejdes med regnearket
- Når det lukkes
- eller...??

Når der arbejdes med arket

Prøve at udforme en model - baseret på Excel 2003 & Outlook 2003 -
ok?

2003-version:

Rem Refrence til OutLook er sat
Rem http://www.contextmagic.com/express-clickyes/free-version.htm
Rem overstående link/download muliggør, at OutLook ikke meddeler: "Et program forsøger..."
Const målAdresse = "$A$10"
Const målVærdi = 50
Const mailAdresse = "xx@zzzz.dk.dk"
Const mailEmne = "Nu er grænsen nået"
Const mailBody = "Test af kode"
Private Sub Worksheet_Change(ByVal Target As Range)
    If Range(målAdresse).Value > målVærdi Then
        afsendMail mailAdresse
    End If
End Sub
Private Sub afsendMail(modtager)
Dim mailApp, Namespace, nyMail
   
    On Error GoTo sendMailFejl
   
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set TilModtager = nyMail.Recipients.Add(mailAdresse)
   
    nyMail.Subject = mailEmne
    nyMail.body = mailBody
   
'    nyMail.Display
    nyMail.Send
   
    Exit Sub
   
sendMailFejl:
    Stop
    Resume Next
End Sub

Afprøvet??

lukker