Příspěvky uživatele
< návrat zpět
Dobrý den
Poradil by někdo?
Mám vytvořený nový email v Outlook, zformátované písmo, různé styly, velikost, barvy , odsazení, vynechání řádků apod.a chci tento formát zadat do kodu HTMLBody.
Cokoliv tam napíšu , je to jen základní styl, bez ladu a skladu. Lze to nějak "dešifrovat" z mého "formátovaného" emailu a vložit do kodu VBA?
.BodyFormat = olFormatHTML
.Display
.HTMLBody = "dobrý den ..blablabla..text je obyčejny"
.HTMLBody
Díky za radu
P
Zdravím.
k tomu: Vy potrebujete testovať, či predmet začína na "ANO_*"? Ale veď ste písal, že triedenie zabezpečuje pravidlo. Takže v tej zložke sú iba maily s "ANO_*".
Ano, spadnou tam všechnyvtakovéto emaily s "ANO ....", ale bude tam v tom předmětu ještě jméno kdo si to vlastně objednává. Já odešlu objednávku která bude mít v předmětu např:" Objednávka Karel Novák". Klient když souhlasí odešle zpět :"ANO Objednávka Karel Novák".
Popsal jsem to v prvním zadání viz "vyhodnocení emailu:" z 10.12.2021.
Hezký večer.Pavel
Dobrý den, Vy jste úžasný!
Měl jsem na mysli v tom outlooku na konci řádku je Kategorie, a ta se dá různě barvit, já třeba používám zelenou=že jsem ten email už zpracoval/vyřídil. Takže pokud by se ten email už dále zpracoval...do buněk atdatd, tak by se označil třeba tou zelenou , a jak by se makro spustilo znovu, aby věděl , že tento email už číst a dále zpracovávat nebudeme./a i v outlooku aby byla kontrola visuální, když se tam podívám/.
Jak jste psal , že výběr outlook profilu,adresářů atd už máte, to se ukáže nějaký dialog pro výběr, který se bude pamatovat i pro příště,když se bude opakovat, nebo to natvrdo doplním do makra ručně, podle svých adresářů?
Pokud tam bude nějaký takový dialog: bylo by i dobré, pokud to půjde samozřejmě , aby nabídlo ten dialog pro výběr barev kategorie Outlooku. Podle toho , jakou kategorii bych si vybral pro tento případ /třeba tu zelenou/.
To proto, když si to makro budu chtít předělat na jinou kombinaci objednávek, jiné mustry Předmětu apod.
Jak budete psát ten kod VBA, prosím k řádku vždy popsat co to dělá, já se tím učím a snažím to pochopit, abych si to pak mohl různě aplikovat na podobné případy.
Moc děkuju za Váš čas, je vidět , že Vás to musí bavit !
Pavel
Aha, tak v tom byl ten problém,díky za upřesnění, já z toho už šílel. Vzpomínáte , jak jste mi pomohl s tím odeslání emailu a doplněním příznaku Odesláno... Pokouším se to dál rozvětvit. viz forum načíst email podle předmětu a zpracovat, neměl by jste na to , resp. na mě "nervy". Díky.Pav
Dobrý den.
Prosím, mám prosbu,zda-li by mi někdo poradil s kodem makra, co by se podívalo do outlooku, do složky v doručené poště,načte všechny složky co tam jsou a dá mi vybrat kterou chci prohledávat,v dialogu(třeba složka "Objednavky"), do ní padají došlé @ podle pravidel/mají na začátku třeba "ANO_Objednávka_Jmeno_atdatd". /původní email odeslany má předmět "Objednávka_Jmeno_atdatd"
???Předpokládám , že došlé emaily mají vlastnost - co je v outlooku v doručené poště na konci - ty vlajky, taky nějak "čitelnou" a dá se měnit. To bych asi použil jako informaci, zpětně, až celá procedura skončí, že zrovna tento email byl úspěšně vyřízen. -to proto , až to makro spustím znovu, aby podruhé nenačítal již zpracované emaily.
Teď to vyhodnocení emailu:
Předmět emailu , který chci zpracovat bude mít vždy stejný mustr např."ANO_Objednávka_Jmeno_atdatd".
Pokud tedy došlý email odpovídá tomuto mustru,/kontrolovat se bude to "ANO_Objednávka_Jmeno" znamená to , že klient souhlasí s objednávkou. V tom případě se mu do listu excelu, do řádku s jeho jménem, do definovaného sloupce "I", doplní text "ObjednávkaPotvrzena", a příznak emailu v out.se změní na tu fajfku, nebo barvu/nevím jaké možnosti tam jsou/.
No je toho dost...Pomohl by mi Prosím někdo z přítomných fajnšmekrů?...pokud ano, prosím k řádkům kodu i poznámku co to dělá, Já se tím i učím, když si to krokuju.
Moc děkuju ,i za dílčí odpovědi.
Ahoj, učím se , tím že prohlížím. Už jen ten list mě zaujal, myslím graficky, a hlavně to vyhledávání, netuším jak to vůbec funguje, atd. No Excel je teda nástroj s velkým E. Nemohl bys mi prosím poslat funkční ten soubor, ať si ho zanalyzuju a zas se něco nového naučím na příkladu, který vidím.
Díky P.
Zdravím. Můžu se zeptat jak to scenujete ?
To se dá něco oskenovat a nechat to doplnit do bunky ?
Díky za info.
Dobrý den
Chsi spočítat všechny výskyty "ahoj" v daném sloupci
Když mám v bunce vzorec : =COUNTIFS(R[1]C:R[13]C;""ahoj"")
nebo jinak napsano, v jiné bunce =COUNTIFS( A5:A15 ; ""ahoj"")"
bunka vrátí výsledek v pořádku /součet výskutů "ahoj".
Potřebuju ale ten výsledek nějak přečíst makrem abych ji pak mohl třeba hodit do proměnné , nebo jinam doplnit do bunky.
Zkouším toto ale nejede to.
Poradíte prosím?
Cells(1, 1).Value = Application.Evaluate COUNTIFS(R[1]C:R[" & r & "]C;""ahoj"")
nebo
Cells(1, 1).Value = Application.Evaluate COUNTIFS( A5:A15 ; ""ahoj"")"
Debug.Print Cells(1, 1).Value 'kontrola ?
range(B10).value = ...výsledek toho vzorce... ???
...jeste ta tabulka
Zdravím,vše šlape perfektně.
Drobně si upravuju makro na jiné vstupní parametry. A narazil jsem na problém, nevím jak přidat do podmínky ještě další příkaz:
' orig If bIsSended Then Odeslano(i, 1) = "A" 'když byl příznak odeslání, zapiš "A"
If bIsSended Then Odeslano(i, 1) = "Odeslano" 'když byl příznak odeslání, zapiš "Odeslano"
...zmenil jsem si "A" na "Odeslano"
protože ten kod aplikuju na jiný případ, kde po načtení tabulky, odeslání emailů nezapisuju údaj z pole "Odeslano" zpět do původního sloupce ale vedle, tak pokud @odeslan byl, doplní se tam "Odeslano" ale pokud nebyl, doplní se mi tam hodnota ze zdrojového sloupce, kde bylo "N"- a to potřebuju ošetřit.
tzn přidat podmínku, že když :
If bIsSended Then Odeslano(i, 1) = "Odeslano" 'když byl příznak odeslání, zapiš "Odeslano"
????'když se příznak nezměnil na Odeslano, vymaž to co tam zbylo tzn"N"???
... nebylo provedeno, tak do toho (pole) koukne a pokud tam zůstalo "N" , tak ho smaže.
Ten klíčový řádek je asi:
Worksheets("Exp").Cells(PRVNI_RADEK_DAT, 9).Resize(RowsA).Value = Odeslano 'Zápis výsledků do 9.sl., zda bylo odesláno, nebo zůstáva predchozí stav
'
A prosím, jinak obecně bych potřeboval vysvětlit, proč to VBA nebere?
Mám v bunce i4 "N", v bunce vedle i5 mám vzorec :
=KDYŽ(I4="N";""), to je jasné, funguje
ale potřebuju to napsat do VBA..jak ?
If Range(i4).value = "N" Then Range(i5).Value = "je tam N"
...samozřejmě to nefunguje, kde je ten "pes" ?
Tohle je jen jednoduchý příklad, abych pochopil jak na to.
Chci totiž v makru napsat to , aby mi byla vrácena třeba do proměnné hodnota výsledku vzorce.
Díky.P
Ok, vyzkouším,a otestuju.
Děkuju !
ani po smazání $ nejde spustit, zasekne se to hned v prvním kroku
Dobrý večer,
máte to se mnou těžké co?
Když to spustím, vyhodí chybu viz obr.
Asi to chce něco přidat do Reference, ale nevím co, jsou tam toho desítky...
To tělo emailu a předmět bude vždy stejné.
Pavel
V tom outlooku mi to zas tolik nevadí, zkusím povolit ty makra .To bylo jen abych viděl jaký je v tom rozdíl, excel/outlook. Budu to spouštět z excelu.
..tak v excelu to jede dobře. Když spustím kod ten z outlook vyhodí mi to to error:
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články