MS Excel

Téma: Zaslání emailu po uložení souboru

Zaslal/a 1Novacek1 21.5.2018 13:56

Zdravím všechny,

obracím se zde, na Vás profíky s otázkou ohledně excelu. Situace je taková:

Představte si skříň, kde máte díly (jakékoliv náhradní díly - hřídelky, ložiska apod). Každý náhradní díl má svoje označení v podobě čárového kódu. Čárový kód je na lístečku, který je přilepený v krabičce, ve které se daný díl nachází. Příjde opravář a vezme si díl, který potřebuje. Nyní (jelikož lidi jsou nepoučitelní) nikomu neřeke, ani nikam nenapíše, že si díl vzal a na druhý den díl chybí a jsou už zbytečné prostoje. Napadlo nás, že bychom na skříň připevnili scaner, pomocí kterého opravář naskenuje čárový kód, který je na lístečku a vyplní se automatzicky řádek v excelovské tabulce - tabulka bude na síti (jak udělat bar kód a vyplnení řádku pomocí sceneru v excelu vím). Problém ale nastává nyní. Jak se dozvím, že opravář díl naskenoval? Musel bych pořád tabulku otvírat a kontrolovat. A zde je můj dotaz - lze nějakým způsobem (třeba po uložení tabulky) automaticky poslat jakýkoliv email? Třeba s textem - byl odebrát náhradní díl (a jelikož máme těch skříní asi 11) tak třeba ještě - Byl odebrán náhradní díl ze skřině 4. Hotovo... nebo jenom čistě obrdžet nějakou notofikaci. Věřím, že se bude spoustě z vás zdát, že se jedná o zbytečnou věc a stačilo by, kdyby opravář třeba poslal sms, zavolal nebo napsal email on sám... ale bohužel to takto nechodí a opráváři to nedělají. A diskutovat na téma že je máme vyhodit a nabrat nové je úplně zbytečné :)... Pokud by tedy někdo věděl, jak takový to automatický email napsat, byla by to pecka. Pokud někoho napadne třeba ještě jiný způsob oznaámení o odebrání dílu, sem s ním :)).

Díky všem

Zaslat odpověď >

1Novacek1(21.5.2018 15:16)#040428

Tak jsem udělal (za pomocí netu :D) toto -

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

Dim Outlook As Object, EMail As Object

Set Outlook = CreateObject("Outlook.Application")

Set EMail = Outlook.CreateItem(0)

With EMail
.To = ""
.CC = ""
.BCC = ""
.Subject = "Spare parts"
.Body = "A part was removed from the cabinet - /Link/ "
.Display 'or use .Send to skip preview
End With

Set EMail = Nothing

Set Outlook = Nothing

End Sub

Funguje to superně. Já sem si dal u toho posledního příkazu .Send a dělá to přesně to co má... takže pro inspiraci ostatním posílám :)citovat

Téma: Zaslání emailu po uložení souboru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje