tak tento problém jsem již vyřešil.
Neví náhodou někdo, jak pomocí makra otevřít a zadat úkol v Outlooku?citovat
Neví náhodou někdo, jak pomocí makra otevřít a zadat úkol v Outlooku?citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Makrem odeslat sešit
MS Excel
Téma: Makrem odeslat sešit 
Zaslal/a ludvikd 22.1.2010 8:42
Zdravím všechny,
mohl by mi někdo pomoci vytvořit Makro, abych mohl zaslat Outlookem daný sešit.xls, kdy název sešitu je určen buňkou A1
úkol se da udelat takto: Je nutne mit zaskrtnuty objekt Microsoft outlook 10.0 Object Library v References VBA Project
Public Sub NEWtask()
ThisWorkbook.Save
Dim myOlApp As Outlook.Application
Dim NEWtask As TaskItem
Set soubor = ThisWorkbook
Set myOlApp = New Outlook.Application
Set NEWtask = myOlApp.CreateItem(oltaskitem)
With NEWtask
.Status = olTaskInProgress
.Importance = olImportanceHigh
.StartDate = DateValue(Date)
.DueDate = DateValue(Date + 7)
.Body = "Tady je popis úkolu"
.TotalWork = 50
.ActualWork = 15
.Assign = "Testovací úkol"
.Owner = "Jirka Koblih"
.Attachments.Add (Excel.Application.ActiveWorkbook.FullName)
.Display
'.Save
'.send
End With
Set NEWtask = Nothing
Set myOlApp = Nothing
End Sub
U úkolu existuje spousta vlastnosti za nastaveni, to uz nebude problem prozkoumat...citovat
Public Sub NEWtask()
ThisWorkbook.Save
Dim myOlApp As Outlook.Application
Dim NEWtask As TaskItem
Set soubor = ThisWorkbook
Set myOlApp = New Outlook.Application
Set NEWtask = myOlApp.CreateItem(oltaskitem)
With NEWtask
.Status = olTaskInProgress
.Importance = olImportanceHigh
.StartDate = DateValue(Date)
.DueDate = DateValue(Date + 7)
.Body = "Tady je popis úkolu"
.TotalWork = 50
.ActualWork = 15
.Assign = "Testovací úkol"
.Owner = "Jirka Koblih"
.Attachments.Add (Excel.Application.ActiveWorkbook.FullName)
.Display
'.Save
'.send
End With
Set NEWtask = Nothing
Set myOlApp = Nothing
End Sub
U úkolu existuje spousta vlastnosti za nastaveni, to uz nebude problem prozkoumat...citovat
Díky moc je to super.
Ještě mám dotaz: Jde vložit pomocí makra do příloh úkolu daný sešit.xls?citovat
Ještě mám dotaz: Jde vložit pomocí makra do příloh úkolu daný sešit.xls?citovat
Upravil jsem kód výše.
Pokud chces odeslat sešit, ze ktereho spoustis makro, je potreba, aby uz byl nekde ulozeny (nesmi to byt novy (dosud neulozeny) sesit). Aby se projevily vsechny zmeny v sesitu, je na uvod makra potreba sesit ulozit.citovat
Pokud chces odeslat sešit, ze ktereho spoustis makro, je potreba, aby uz byl nekde ulozeny (nesmi to byt novy (dosud neulozeny) sesit). Aby se projevily vsechny zmeny v sesitu, je na uvod makra potreba sesit ulozit.citovat
Díky moc,
jsem teprve začátečník ohledně používání Maker. Měl bych ještě jeden dotaz(snad opravdu poslední), pokoušel jsem se vložit adresáta pomocí Recipients a stále mi to nefunguje. Nevíš jak na to?
Omlouvám se, že stále otravuju.citovat
jsem teprve začátečník ohledně používání Maker. Měl bych ještě jeden dotaz(snad opravdu poslední), pokoušel jsem se vložit adresáta pomocí Recipients a stále mi to nefunguje. Nevíš jak na to?
Omlouvám se, že stále otravuju.citovat
Přidej tam tenhle řádek nekam pred '.display':
.Recipients.Add ("Jirka@wall.cz")
Blby u toho je, ze Outlook krici, ze se snazis dostat do jeho kontaktu, tak to musis povolitcitovat
.Recipients.Add ("Jirka@wall.cz")
Blby u toho je, ze Outlook krici, ze se snazis dostat do jeho kontaktu, tak to musis povolitcitovat
(3.12.2013 19:55)#016626
Zdravím,
mám dotaz lze níže zmíněné nastavit makrem při otevření?
Díky
Poki příspěvek:
úkol se da udelat takto: Je nutne mit zaskrtnuty objekt Microsoft outlook 10.0 Object Library v References VBA Projectcitovat
mám dotaz lze níže zmíněné nastavit makrem při otevření?
Díky
Poki příspěvek:
úkol se da udelat takto: Je nutne mit zaskrtnuty objekt Microsoft outlook 10.0 Object Library v References VBA Projectcitovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články