» Poradna » Programy

Hromadné vytvoření složek u emailové schránky

 |   |  Microsoft Windows 8 Chrome 26.0.1410.64

Dobrý den, obávám se že můj dotaz/problém nemá řešení, ale zeptám se. Mám email na vlastní doméně u google apps. Potřeboval bych vytvořit cca 100 složek v doručené poště za účelem filtrování. Že půjde vytvořit hromadné filtrování ani nedoufám , ale velmi by mi usnadnilo práci kdybych v doručené poště uměl hromadně vytvořit 100 složek dejme tomu podle tabulky v excelu. Bude mi přeposíláno ke kontrole cca 100 emailů k různým tématům a potřeboval bych to umět přefiltrovat do samostatných složek. A je mi jedno, jestli to pujde v Thunderbirdu, Outlooku nebo kde jinde... dik, pac a pusu

Odpovědi na otázku

avatar
 | Microsoft Windows 7 IE 10.0

V outlooku po pripojeni uctu pomoci IMAP by to melo jit bez problemu ve VBA - viz napr. http://msdn.microsoft.com/en-us/library/office/bb22... (v=office.12).aspxMP

Souhlasím  |  Nesouhlasím  |  Odpovědět
avatar
 | Microsoft Windows 7 IE 10.0

Rychly priklad:Sub doit() AddFoldersToRoot "Datový soubor aplikace Outlook", "WTF", "WTF2"End SubSub AddFoldersToRoot(StoreName, ParentFolder, NewFolder As String) Dim myNameSpace As Outlook.NameSpace Dim myParentFolderName As Outlook.Folder Dim myNewFolder As Outlook.Folder Set myNameSpace = Application.GetNamespace("MAPI") Set myParentFolderName = myNameSpace.Folders(StoreName).Folders(ParentFolder) Set myNewFolder = myParentFolderName.Folders.Add(NewFolder, olFolders)End Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Opera 9.80

Tady je kód který v toolbaru Outlooku vytvoří nový button který na klik vytvoří novou složku pod aktuální složkou. Stačí případně jen rozšířit rutinu tak aby si načetla názvy z Excelu a vytvořila jich v cyklu víc. Je potřeba si v Outlooku zapnout zobrazení karty Vývojář a povolit spouštění nepodepsaných maker.Dim myCommandBar As CommandBarDim WithEvents Button As CommandBarButtonDim MyCurrentFolder As Outlook.MAPIFolderPrivate Sub Application_Startup() Dim oExplorer As Outlook.Explorer Set oExplorer = Application.ActiveExplorer Set myCommandBar = oExplorer.CommandBars.Add("My") myCommandBar.Visible = True Set Button = myCommandBar.Controls.Add(msoControlButton) Button.Caption = "Make folders..."End SubPrivate Sub Button_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) Dim NewFolder As Outlook.MAPIFolder Set MyCurrentFolder = Application.ActiveExplorer.CurrentFolder Set NewFolder = MyCurrentFolder.Folders.Add("Test Folder") MsgBox NewFolder.NameEnd Sub

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 8 Chrome 26.0.1410.64

uf, to je na mě hrozně moc programování Ale děkuju hrozně moc, mnikdy není odvěcí se dále vzdělávat! palec nahoru

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 8 Chrome 26.0.1410.64

V Thunderbirdu to nepůjde?

Souhlasím  |  Nesouhlasím  |  Odpovědět
avatar
 | Microsoft Windows 7 IE 10.0

Pujde. Subjektivne HURE.MP

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 8 Chrome 26.0.1410.64

U jedné schránky se mi to v Thunderbirdu podařilo naťukat ručně. tj. nejdříve vytvořit 100 složek a pak pro každou naklikat filtr, elegantní to není, ale funkčně mi to maximálně vyhovuje. Problém je, že to stejné potřebuji udělat pro jinou emailovou schránku, dá se to nějak zkopírovat?

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Filtrování, Google Apps




Určitě si přečtěte

Apple ukázal novinky: iPad Pro má překonat notebooky a vrací se Mac mini!

Apple ukázal novinky: iPad Pro má překonat notebooky a vrací se Mac mini!

** Apple v New Yorku představoval počítačové novinky ** iPad Pro prý zatočí s notebooky ** Dočkali jsme se také návratu Mac mini

Jakub Čížek | 81

Velká podzimní aktualizace: Co nového teď najdete ve Windows 10

Velká podzimní aktualizace: Co nového teď najdete ve Windows 10

** Microsoft se opět snaží spojit telefony a počítače. ** Místo velkých novinek se zaměřil spíše na drobná vylepšení. ** Vyhledávání je konečně použitelné a hledá téměř všude.

Vladislav Kluska | 79

Osudová havárie Concordu: Před 18 lety přišel konec nadzvukových dopravních letadel

Osudová havárie Concordu: Před 18 lety přišel konec nadzvukových dopravních letadel

** Concorde byl nejrychlejším dopravním letadlem ** Atlantik dokázal přeletět za cca 3 až 3,5 hodiny ** Před osmnácti lety tragická havárie provoz těchto letadel prakticky ukončila

David Polesný, Jiří Černý | 38

Užitečné funkce ve Windows 10, o kterých možná ani nevíte

Užitečné funkce ve Windows 10, o kterých možná ani nevíte

** Operační systém Windows 10 nabízí spoustu užitečných drobností ** O některých funkcích mnoho uživatelů není ** Ukážeme vám některé užitečné vychytávky

Vladislav Kluska | 81


Aktuální číslo časopisu Computer

Odhalte skryté funkce Windows 10

Test levných Androidů do 4 000 Kč

Srovnání úsporných minipočítačů

Změřili jsme rychlost 10Gb/s ethernetu