» Poradna » Programy

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

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 7/7
 |   |  Microsoft Windows 8 Chrome 26.0.1410.64  |  [195.113.85.---]

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  |  [90.181.101.---]

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  |  [213.210.191.---]

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  |  [213.210.191.---]

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  |  [194.228.20.---]

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



Aktuální číslo časopisu Computer

26 procesorů v důkladném testu

Zhodnotili jsme 18 bezdrátových reproduktorů

Jak fungují cash back služby?

Pohlídejte své děti na internetu