< návrat zpět

MS Excel


Téma: Makrem odeslat sešit rss

Zaslal/a 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ěď >

#001131
avatar
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
icon #001132
Poki
ú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
#001133
avatar
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
icon #001134
Poki
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
#001135
avatar
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
icon #001136
Poki
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
#016626
avatar
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)
avatar\n

Menu

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.

On-line nástroje