» Poradna » Programy

Email z excelu

 |   |  Microsoft Windows 10 Firefox 64.0

Dobrý den.Potřeboval bych donutit Excel, aby poslat oznámení přes MS Outlook na určitou adresu potom, co do určité buňky vyplním určitý text (např. jméno kolegy, kterému pak mail odejde). Našel jsem toto, kde se odešle mail, pokud v dané buňce bude číselná hodnota vyšší než 200, ale potřeboval bych to upravit, aby to reagovalo na ten konkrétní text (např. Novotny). Pomůže někdo? Děkuji.Dim xRg As Range'Update by Extendoffice 2018/3/7Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Cells.Count > 1 Then Exit Sub Set xRg = Intersect(Range("D7"), Target) If xRg Is Nothing Then Exit Sub If IsNumeric(Target.Value) And Target.Value > 200 Then Call Mail_small_Text_Outlook End IfEnd SubSub Mail_small_Text_Outlook() Dim xOutApp As Object Dim xOutMail As Object Dim xMailBody As String Set xOutApp = CreateObject("Outlook.Application") Set xOutMail = xOutApp.CreateItem(0) xMailBody = "Hi there" & vbNewLine & vbNewLine & _ "This is line 1" & vbNewLine & _ "This is line 2" On Error Resume Next With xOutMail .To = "Email Address" .CC = "" .BCC = "" .Subject = "send by cell value test" .Body = xMailBody .Display 'or use .Send End With On Error GoTo 0 Set xOutMail = Nothing Set xOutApp = NothingEnd Sub

Odpovědi na otázku

 |   |  Microsoft Windows 7 Firefox 60.0

Toto:If IsNumeric(Target.Value) And Target.Value > 200 Thennahradit za:If Target.Value = "Novotny" Then

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 10 Firefox 64.0

Super, moc děkuju!

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Target, Resume, Send, Exit, Číselná hodnota, Goto


Určitě si přečtěte

13 praktických tipů a triků pro Mapy.cz, které možná neznáte

13 praktických tipů a triků pro Mapy.cz, které možná neznáte

** Mapy.cz neslouží jen k zobrazení podkladů a plánování tras ** Nabízejí celou řadu dalších praktických funkcí a možností ** Vybrali jsme třináct tipů a triků, o kterých možná nevíte

Karel Kilián | 36

České Rajče je stále plné dětských nahotin. Student pomocí A.I. analyzoval miliony fotek

České Rajče je stále plné dětských nahotin. Student pomocí A.I. analyzoval miliony fotek

** Rajče.net má odjakživa problémy s choulostivými fotkami dětí ** Student zlínské univerzity analyzoval jeho katalog ** Neuronová síť doposud prozkoumala 6 milionů snímků

Jakub Čížek, Filip Šedivý | 73



Aktuální číslo časopisu Computer

Test 9 bezdrátových reproduktorů

Jak ovládnout Instagram

Test levných 27" herních monitorů

Jak se zbavit nepotřebných věcí na internetu