» 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

Nejlepší služby pro streamovanou hudbu: Není jen Spotify

Nejlepší služby pro streamovanou hudbu: Není jen Spotify

** Za měsíční předplatné je dnes možné získat přístup k desítkám milionů skladeb ** S některými méně známými interprety je ale stále problém ** Cena předplatného může být i jen pár desítek korun

Vladislav Kluska | 45

Tesla je stále ve ztrátě, ale elektromobily Model 3 se prodávají neuvěřitelně dobře

Tesla je stále ve ztrátě, ale elektromobily Model 3 se prodávají neuvěřitelně dobře

** Tesla má rekordní příjem, je ale ve ztrátě ** Objem výroby se zvyšuje, dochází ale baterie ** Pomoci mají nové továrny Gigafactory

Karel Javůrek | 91

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

Apple dal do MacBooku procesor Core i9 a 4TB SSD. Ani se neptejte, co za to chce...

** Apple aktualizoval notebooky MacBook Pro, dostaly nový hardware ** Těšit se můžete na nové procesory a větší paměť ** Cena nejvybavenějšího modelu překročí 200 tisíc korun

Martin Miksa | 99

Odposlouchávali jsme děravou domácnost: Katka z Brightonu právě sedí doma, zatímco její manžel hraje asi golf

Odposlouchávali jsme děravou domácnost: Katka z Brightonu právě sedí doma, zatímco její manžel hraje asi golf

** Na internetu jsou tisíce nezabezpečených chytrých domácností ** Podívali jsme se na jednu z britského Brightonu ** Útočník sestaví kompletní socioekonomický profil rodiny

Jakub Čížek | 24


Aktuální číslo časopisu Computer

Jak mobily určují svoji polohu?

Velký test notebooků pro studenty

Nejlepší reproduktory na párty

Služby a aplikace pro výuku angličtiny