• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Automatické alerty

Zaslal/a DaAnimal 12.1.2016 11:18

Dobrý den,

potřeboval bych poradit ohledně automatických alertů.
Potřeboval bych abych nastavil automatický alert v excelu, který mi zašle e-mail (pokud možno ne outlook), když daná hodnota v budce poklesne pod určitou úroveň.

V příloze přikládam jednoduchý příklad, který to znázorňuje jak by to hodně zjedodušeně mělo vypadat.

Pokoušel jsem se to udělat pomoci VBA ale nefunguje mi to. Nevíte o plug-inu, který tohle umí?

Dakují za každou radu.
S přádním hezkého dne.

Příloha: 29191_automaticke-alerty.zip (10kB, staženo 23x)

Zaslat odpověď >

---

Richard99(12.1.2016 12:04)#029192

Tohle se sice ve wordu ale mohlo by to s drobnýmiˇúpravami chodit. Bohužel je to outlok.


Sub Mail_send()
Application.DisplayAlerts = False
' Works in Excel 2000, Excel 2002, Excel 2003, Excel 2007, Excel 2010, Outlook 2000, Outlook 2002, Outlook 2003, Outlook 2007, Outlook 2010.
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItemFromTemplate("A:\Moje\draft.oft")
' Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
With OutMail
' .To = "jan@seznam.cz"
.CC = "lucie@seznam.cz "
.BCC = ""
.Subject = "Draft "
' .Body
.Attachments.Add ActiveDocument.Path & "\" & Left(ActiveDocument.Name, Len(ActiveDocument.Name) - 5) & "_draft_l.pdf"
.Display
' .send
End With
On Error GoTo 0
Application.DisplayAlerts = True
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
citovat

elninoslov(12.1.2016 22:48)#029222

V podobnej téme som radil toto

EDIT:
Tu máte príklad. Otázkou je, či tá Vaša aktualizácia vyvolá metódu Change, resp. neviem ako to budete aktualizovať, či nejakým SQL dopytom, či časovaným makrom, ...

Příloha: 29222_automaticke-alerty.rar (20kB, staženo 27x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse