< návrat zpět

MS Excel


Téma: VBA: Odoslanie mailu po uložení súboru rss

Zaslal/a 14.6.2019 16:22

Ahojte.

Potreboval by som pomôcť s úpravou makra.
Mám makro, ktoré po zmene hodnoty v stĺpci "A" a napísaní "a" v stĺpci "B" odošle mail s určitým textom.

Ja by som ale makro potreboval upraviť tak, aby mail odoslalo až po uložení celého súboru.

Príloha ...

Příloha: zip43524_posli-mail.zip (17kB, staženo 57x)
Zaslat odpověď >

#043534
avatar
Niekto kto by vedel pomôcť ?citovat
#043537
elninoslov
To ani omylom nepôjde takto ako to máte. Uvedomte si, že počas doby pred uložením súboru, môže prísť k zmene mnohých čísel v mnohých riadkoch, ďalej v kombináciách s "a" či bez "a" v susednom stĺpci, a navyše môže dôjsť k navráteniu pôvodnej hodnoty, ktorá bola pri poslednom otvorení súboru (alebo pri poslednom odoslaní mailu) a to znovu v kombinácii s/bez "a".

Teda Vy si musíte ukladať napr. na skrytý list, všetky pôvodné hodnoty (kópia celých stĺpcov A:B) a k nim všetky vykonané zmeny za celú počítanú dobu. To následne nejakým spôsobom vyhodnocovať v Workbook_BeforeSave. A tým vyhodnocovaním nemyslím odoslanie všetkého zo skrytého listu, ale iba toho čo sa zmenilo voči počiatočným dátam (teda ak sa aj hodnota zmenila 10x, ale v rozhodný okamžik je rovnaká ako na začiatku, tak sa považuje alebo nepovažuje za zmenenú ???). Ďalej napr. ak sa hodnota zmení 10x, má byť na ňu 10x upozornenie, alebo len raz ?

Technicko-logických komplikácií je tam fakt veľa.citovat
#043545
avatar

elninoslov napsal/a:

To ani omylom nepôjde takto ako to máte. Uvedomte si, že počas doby pred uložením súboru, môže prísť k zmene mnohých čísel v mnohých riadkoch, ďalej v kombináciách s "a" či bez "a" v susednom stĺpci, a navyše môže dôjsť k navráteniu pôvodnej hodnoty, ktorá bola pri poslednom otvorení súboru (alebo pri poslednom odoslaní mailu) a to znovu v kombinácii s/bez "a".

Teda Vy si musíte ukladať napr. na skrytý list, všetky pôvodné hodnoty (kópia celých stĺpcov A:B) a k nim všetky vykonané zmeny za celú počítanú dobu. To následne nejakým spôsobom vyhodnocovať v Workbook_BeforeSave. A tým vyhodnocovaním nemyslím odoslanie všetkého zo skrytého listu, ale iba toho čo sa zmenilo voči počiatočným dátam (teda ak sa aj hodnota zmenila 10x, ale v rozhodný okamžik je rovnaká ako na začiatku, tak sa považuje alebo nepovažuje za zmenenú ???). Ďalej napr. ak sa hodnota zmení 10x, má byť na ňu 10x upozornenie, alebo len raz ?

Technicko-logických komplikácií je tam fakt veľa.


Ďakujem za odpoveď. Asi je v tom je veľa komplikácií.
Mne by v podstate stačilo, keby sa informatívny mail odoslal iba keď pribudne nová hodnota v stĺpci "A" v novom riadku.

Ide o to, že nejaká osoba na druhom konci sveta vytvorí nový artikel produktu v stĺpci "A", ale už nemám o tom info. Stačilo by mi keď v tom maily bude iba hláška, že pribudol nový artikel produktu s takým alebo takým číslom.

Pôvodné artikle (už vytvorené) sa v podstate ani nebudú meniť. Budú iba pribúdať nové.

Dalo by sa to nejako spraviť ?

Ďakujemcitovat
#043563
avatar
Ak som správne pochopil, tak dáta budú do tabuľky iba pribúdať a nebudú sa vymazávať. Z logického hľadiska mi príde, že človek ukladá Excel iba v čase ak urobil nejakú zmenu. Skúste si odmyslieť ten artikel a len vytvoriť makro, ktoré vám pošle email vždy keď niekto Excel uloží. Niečo takéto:

Sub poslimi()


Application.ScreenUpdating = False

Set olApp = CreateObject("Outlook.Application")
Set objMail = olApp.CreateItem(0)

With objMail
.To = "......email......"
.Subject = "......predmet....."
.Body = "....TEXT......" & .Body
.send
End With

Application.ScreenUpdating = True

Set objMail = Nothing
Set olApp = Nothing

End Subcitovat
#043564
avatar
Ešte som Vám to dal do Excelu. Keď ho uložíte pošle email ak zavriete bez uloženia nepošle. Treba tam len doplniť emailovú adresu kde to má posielať.
Příloha: zip43564_kopia-posli-mail.zip (15kB, staženo 103x)
citovat
#043566
avatar

MarekMMM napsal/a:

Ešte som Vám to dal do Excelu. Keď ho uložíte pošle email ak zavriete bez uloženia nepošle. Treba tam len doplniť emailovú adresu kde to má posielať.Příloha: 43564_kopia-posli-mail.zip (15kB, staženo 1x)


Ďakujem. Zaujímavé riešenie, ktoré funguje spolahlivo.
Dalo by sa tam ešte doplniť to, že v texte mailu by sa vypísalo aj číslo nového artiklu ktorý pribudol v novom riadku ?
Prípadne ak ich pribudne v jednom momente viac tak by sa vypísali do textu mailu ?citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje