01. august 2012 - 11:42Der er
7 kommentarer og 1 løsning
sende mail automatisk
Er det muligt at få excel til at sende en mail, til mig selv , når et felt i excel ændre værdi Jeg har et program der holder øje med nogle datoer og når en dato er overskredet ændre tallet i G3 sig fra 0 til 1 eller mere, afhængig af hvor mange gange der er en dato der er overskredet, programmet skal så sende en mail hvergang der kommer en ændring i G3 , kan det lade sig gøre , jeg bruger excel 2010 dk
Nedenstående kode indsættes i under relevante ark - Højreklik / Vis programkode.
Inde i VBA-vinduet i værktøjslinjen: Tools / References / find Microsoft Outlook.. i listen - sæt flueben -Gem og luk VBA-vinduet.
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$G$3" Then If Target.Value > 0 Then sendMail End If End If End Sub Private Sub sendMail() Dim mailApp, Namespace, nyMail
Set mailApp = CreateObject("Outlook.Application")
Set nyMail = mailApp.CreateItem(olMailItem) Set nymod = nyMail.Recipients nymod.Add "xx@mail.dk" '<--- mail-adresse - justeres
With nyMail .Subject = "Værdien i G3: " & CStr(Range("G3")) .Body = "" .Send End With End Sub
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.