Příspěvky uživatele

tak toto fakt funguje. Sice na začátku varuje že to za mě posílá email, ale myslím že to souvisí se zabezpečením PC.

Sub Send_Email_Using_VBA()
Dim Email_Subject, Email_Send_From, Email_Send_To, _
Email_Cc, Email_Bcc, Email_Body As String
Dim Mail_Object, Mail_Single As Variant
Email_Subject = "automaticky odesílaný email VBA -EXCEL"
Email_Send_From = "odkoho@mail.cz"
Email_Send_To = "komu@mail.cz"
Email_Cc = ""
Email_Bcc = ""
Email_Body = "bezva, funguje to"
On Error GoTo debugs
Set Mail_Object = CreateObject("Outlook.Application")
Set Mail_Single = Mail_Object.CreateItem(0)
With Mail_Single
.Subject = Email_Subject
.To = Email_Send_To
.cc = Email_Cc
.BCC = Email_Bcc
.Body = Email_Body
.send
End With
debugs:
If Err.Description <> "" Then MsgBox Err.Description
End Sub

hmm. Díky. Ale parametr .send háže chybu object doesnt support this property or method. Ale je to vodítko. Jdu hledat. Pokud by někdo měl zkušenost pomohlo by mi to.

Ahoj a krásný den,
prosím, existuje způsob jak odeslat email z listu tak, aby nebylo nutno jej v outlooku odklepnout (odeslat?)
Jedná se mi o to že jsem do kódu vložil odeslání informace osobě, že jí přibyl záznam jež má vyřešit. Jen chci vyloučil lidský faktor při odesílání emailu. Jde to? Děkuji moc za všechny rady.

děkuji moc. Dočetl jsem se sice, že nemusím použít PASTE, ale že je to takto jednoduché jsem netušil. Jdu to zkusit. Hezký den.

zdravím,
narazil jsem na problémek. Potřebuji v sešitech, kde není list předem daného jména, tento list doplnit. Kompletní, včetně vzorců, formátu atd.
příkazem

ActiveWorkbook.Sheets("f_eko").Copy

se mi vytvoří nový sešit do kterého se zkopíruje list "f_eko". Při kopírování oblasti mi z toho zase vypadly vzorce. Určitě jsem něco přehlédl. Pomůžete mi prosím? Děkuji a přeji hezký den.

zdravím,
narazil jsem na problém, který zatím neumím rozumně vyřešit.
potřebuji z nascanovaných dokumentů (formát tif) vypsat (samozřejmě ručně) základní data. Umím si vytvořit seznam obrázků a otevřít jej. Ale nevím jak na to, abych to mohl udělat pomocí VBA v okně listu, kde by byl i horní řádek na vyplnění dat. Pak odeslat do seznamu a otevřít další obrázek. Jde to v EXCELu? Nevím jak na to., Moc děkuji za radu.

hezký den přeji,

potřebuji otevřít soubor a uložit jej pod názvem TMP a náhodné číslo. zkoušel jsem to takto v thisworkbook :

Sub Workbook_Open()
Dim cesta As String
Dim Nazev As String
Dim nahodne As Long
nahodne = 10000 * Rnd()
Nazev = "TMP" & nahodne
cesta = ThisWorkbook.path
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs cesta & "\" & Nazev
Application.DisplayAlerts = True
End Sub

problém je v tom, že to vygeneruje pokaždé stejné číslo.
Když stejný vzorec dám do smyčky na listu, vypisuje řadu různých čísel. V čem jsem udělal chybu? Děkuji moc za radu.

posílám to celé, když to vykuchám, funguje to. viz makro - module2

vložil jsem list popis, kde je funkce popsána. Díky moc.

Ahoj a hezký den,

už mi to leze na mozek. Prosím poraďte.
Mám stranu pracovní, kde je fůra dat(mění se) a jsou tam i řádky s požadovaným počtem řádků. Napsal jsem si makro:

For i = 0 To Cells(21, 20) 'počet záznamů

'zadaní rozsahu

horni = Cells(19, 24 + i) 'ukazatele začátku a konce bloku
dolni = Cells(20, 24 + i)
leva = 2
prava = 10
cil_r = Cells(19, 24 + i) 'kam
cil_s = 2
stranka = "f_obj"

'vlastní procedura
Worksheets("pracovni").Select
Range(Cells(horni, leva), Cells(dolni, prava)).Select
Selection.Copy
Sheets(stranka).Select
Cells(cil_r, cil_s).PasteSpecial xlPasteValues
Application.CutCopyMode = False
Worksheets("pracovni").Select

Next i

No v makru to pracovalo, pokus jsem v DIM neměl některou z proměnných na konci řádku. Jenže jak to dám do těla code, trvale to nechce pracovat s proměnnými. I když je vypíšu těsně před a jsou v pořádku. Kde dělám chybu?
Děkuji a hezký den.

Dobrý den,
prosím o radu. Mám soubor, kde vypnu křížek (díky Pokiho radě) ve formulářích a nastavím automatické spouštění. Vše chodí, ale já se již neumím do souboru dostat. Poprvé jsem naštěstí měl uloženou předchozí verzi bez zabezpečení, tak jsem nepřišel o moc práce. Nějak jsem nebyl úspěšný v hledání jak na to. Do vlastního kódu jsem tady dal test na vstupní data. když přijde místo dat přesně specifikovaný řetězec, skočím na sub kde je chyba a tím to zastavím. Asi to není moc elegantní. Jak to řešíte? budu vděčen za každou radu. Děkuji.

tak to fungovalo. jednou. Asi někde dělám chybu. Sešit s šablonou normálně ručně spustím. Poprvé mi to opravdu fungovalo. Ale pak to hlásí run time error - 1004 (chyba Add ). Kde mohu dělat chybu?

je to úplně perfektní. Moc děkuji. Jen drobný dotaz - lze takto otevřít i soubor s šablonou? Kam by se pak mělo zadat název šablony? Jinak ještě jednou moc děkuji. Mohu to posunout o kus dál.

a další pokus o přílohu...

zkusím tedy prvně popis.
prokousal jsem se úplnými základy. Vytvořil jsem formulář a to nejdůležitější už dělá. Tedy lokálně. Prosím, potřeboval bych kdyby jsem v rutině zápisu aktivoval vytvoření nového sešitu pod jménem aktuální nabídky (levá strana žlutého pole) a zbytek ze žlutých buněk přenést na první list tohoto sešitu. Nebo alespoň jedenu.Prosím o pomoc a děkuji.

druhý pokus

Příspěvky uživatele

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje