• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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

Zaslat odpověď >

---

ludvikd(26.1.2010 9:58)#001131

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

Poki(26.1.2010 11:01)#001132

ú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

ludvikd(26.1.2010 11:58)#001133

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

Poki(26.1.2010 14:02)#001134

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

ludvikd(26.1.2010 14:13)#001135

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

Poki(26.1.2010 14:39)#001136

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

Anonym2(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

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse