28. april 2016 - 17:37Der er
6 kommentarer og 1 løsning
Vba mail ved ændring
Hej derude, Jeg fandt for noget tid siden en vba kode, som ville sende en mail, hvis/når værdier i et ark ændrede sig. Nu kan jeg desværre ikke finde den igen, men det var noget med, at når f.eks et ark1 celleområde B1:D4 ændrede sig, så ville den sende en mail til mail adresser angivet i eks. celle V1 og med emne i celle V2. Er der nogle hajer som kan hjælpe mig med det? Bruger Office 2010 og Outlook som mail. I kan bare tage udgangspunkt i eksemplet og så kan jeg selv rette det til. Mailen skulle helst sendes automatisk i baggrunden, hvis dette er muligt. Der er formler i arket som ændrer sig, hvis dette har nogen betydning. På forhånd tak.
Den virker ikke helt efter hensigten, men fandt denne her og rettede den til. Problemet er så bare, at når der bliver slettet en værdi i en celle og skrevet en ny værdi i samme celle, så får jeg 2 mails :-( Altså når i dette tilfælde, at A10 ændres, så kommer der 2 mails. Faktisk, så er det nok, at aktivere/klikke i en celle, så får jeg en mail og jeg skulle kun have, hvis en værdi ændres, og kun en mail. Har du et godt bud?
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([A10], Target) Is Nothing Then Set olApp = CreateObject("Outlook.application") Set M = olApp.CreateItem(olMailItem) With M .Subject = "Subject" .Body = "Body" .Recipients.Add "test@test.com" .Send End With End If End Sub
Hmm, jeg kan se at når jeg blot aktiverer/klikker i en celle, så forsvinder værdien i cellen? Det har jeg aldrig oplevet før. Så er det måske derfor, at jeg får 2 mails, da det første klik jo sletter værdien og når jeg herefter opretter en værdi, så er cellen jo ændret 2 gange.
Problem løst(fejl 40) :-) Har også ladet vba læse i en anden celle, som tæller data fra anden celle, så nu kommer der også kun en mail. Du får point for ihærdigheden, hvis du lægger et svar :-)
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.