fællesdokument

Via Outlook?

VBA-koden anbringes i ønskede ark(Højreklik Vis programkode)

Const modtagerListe = "aa@supertekst-it.dk;bb@supertekst-it.dk" 'tilpasses
Const områdeForÆndring = "A1:C4"                'tilpasses

Private Sub worksheet_change(ByVal Target As Excel.Range)
    If Not Intersect(Target, Range(områdeForÆndring)) Is Nothing Then
        sendMail ("Følgende er ændret: " & CStr(Target.Address))
    End If
End Sub
Private Sub sendMail(meddelelse)
Dim mailApp, Namespace, nyMail
Dim emne, body

    emne = "Regnarket xxx.xls er ændret!"
    body = meddelelse
   
    On Error GoTo sendMailFejl
   
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set TilModtager = nyMail.Recipients.Add(modtagerListe)
       
    nyMail.Subject = emne
    nyMail.body = meddelelse
   
    nyMail.Display

Rem Automaisk send - fjern Rem
Rem    nyMail.Send
    Exit Sub
   
sendMailFejl:
    Stop
    Resume Next
End Sub

Glemte lige:

Referencen for OutLook skal sættes i VBA / Tools / References

tak -
der sker en fejl når scriptet kommer til automatisk send.

Jeg har måske også udtrykt mig lidt uklart. Som det er nu sendes der en mail ved enhver ændring i regnearket. Det jeg mente , men ikke fik skrevet helt klart, var at når der var lavet en ændring og regnearket var gemt.

Jeg er heller ikke helt med på hvad du mener med " Referencen for OutLook skal sættes i VBA / Tools / References "  hvor skal dette ændres - sættes

mvh Knud

Vedr. reference:

Fra regnearket / Alt+F11(VBA-vinduet åbnes) / Tools / References / referencer står i alfabetisk orden - find Microsoft Outloook... - sæt flueben + OK - luk VBA vinduet.

Retter koden -

Rem Version 2
Rem =========
Rem Koden indsættes i ThisWorkbook i VBA-vinduet <<<<<<<------
Rem ============================================

Const modtagerListe = "aa@supertekst-it.dk;bb@supertekst-it.dk"
Const områdeForÆndring = "A1:C4"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    If ActiveWorkbook.Saved = False Then
        ActiveWorkbook.Save
        afSendMail
    End If
End Sub
Private Sub afSendMail()
Dim mailApp, Namespace, nyMail
Dim emne, body

    emne = "Regnarket xxx.xls er ændret!"
    body = meddelelse
   
    On Error GoTo sendMailFejl
   
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set TilModtager = nyMail.Recipients.Add(modtagerListe)
       
    nyMail.Subject = emne
    nyMail.body = ""
   
    nyMail.Display

Rem Automaisk send - fjern Rem
Rem    nyMail.Send
    Exit Sub
   
sendMailFejl:
    Stop
    Resume Next
End Sub

tak igen -  jeg kan ikke få det til at køre. har gjort som du har beskrevet men det sker ikke noget.

Er koden indsat i ThisWorkbook i VBA? (tidligere kode slettet?)

Når du lukker regnearket - så udføres
"Private Sub Workbook_BeforeClose(Cancel As Boolean"

Hvis der har været ændret - så GEMMES ARKET AUTOMATISK og der sendes en mail.

Hvis du selv gemmer arket - registreres ændringen ikke af ovennævnte Sub.

Men det kan der gøres noget ved...

jaså  - det forklarer selvfølgelig  og det kunne den opmærksomme også selv have læst.

så kører det  men der komme en boks op der advarer mod at et program prøver at komme ind i min adressebog. ?

efter jeg har givet tilladelse  kommer jeg ind i mailen og skal derfra trykke send

jeg kan ikke få den til at sende automtisk hvilket ville være ønskeligt.

Jeg vil gerne om du kan lave det således at kun er når brugeren manuelt gemmer regnearket at koden startes koden og kun i dette tilfælde. Din version er smart nok men det kræver jo at man logger ud.

Jeg håber jeg har fået det hele med
mvh Knud

nyMail.Display

Rem Automaisk send - fjern Rem
Rem    nyMail.Send
    nyMail.Display

Rem Automaisk send - fjern Rem
Rem    nyMail.Send
-------------------------
rettes til nedenstående
-------------------------
Rem  nyMail.Display

Rem Automaisk send - fjern Rem
      nyMail.Send


For at forhindre meddelelsen: Et program forsøger....

DownLoad: www.contextmagic.com/express-clickyes/free-version.htm

Rem Version 3
Rem =========
Rem Koden indsættes i ThisWorkbook i VBA-vinduet
Rem ============================================
Const modtagerListe = "aa@supertekst-it.dk;bb@supertekst-it.dk"
Const områdeForÆndring = "A1:C4"
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    afSendMail
End Sub
Private Sub afSendMail()
Dim mailApp, Namespace, nyMail
Dim emne, body

    emne = "Regnarket xxx.xls er ændret!"
    body = meddelelse
   
    On Error GoTo sendMailFejl
   
    Set mailApp = CreateObject("Outlook.Application")
    Set Namespace = mailApp.GetNamespace("MAPI")

    Set nyMail = mailApp.CreateItem(olMailItem)
    Set TilModtager = nyMail.Recipients.Add(modtagerListe)
       
    nyMail.Subject = emne
    nyMail.body = ""
   
Rem nyMail.Display

Rem Automaisk send - fjern Rem
    nyMail.Send
    Exit Sub
   
sendMailFejl:
Rem    Stop
    Resume Next
End Sub

nu er den ved at være der -  jeg kan bare ikke tilføje flere mailadresser i modtagerliste

Åbn VBA-vinduet(Alt+F11) - koden ses i ThisWorkbook


Const modtagerListe = "aa@supertekst-it.dk;bb@supertekst-it.dk;cc@supertekst-it.dk"

o.s.v.
Gem & Luk VBA-vinduet

yes  - det regnede jeg også med men det er kun når der kun er en enkelt modtager i linien at  koden fortsætter

prøv at sende din fil til mig (mailadr. under min profil)