From: Fišer Jan (Jan.Fiser@csobpoj.cz)
Date: 07. 03. 2003, 11:47 CET
> > Mam opet tragickej problem ... nekde jsem kdysi cetl jak > > vytvorit makro na > > ukladani priloh. > > Proste potrebuji projet cely MS Outlook ulozit prilohy a > > zpravy pak smazat > > nieco som nasiel: > najprv si vytvor adresar kam to chces a prepis to v kode: > moc som sa s tym nehral, ale ziadne spravy nemaze tak by to > nemalo az tak > vadit:-)) > > Sub UlozPrilohu() > Set myNameSpace = Application.GetNamespace("MAPI") > Set myInbox = myNameSpace.PickFolder > Call read_Att(myInbox) > End Sub > Sub read_Att(myFolder) > mySubFoldersCount = myFolder.Folders.Count > If mySubFoldersCount > 0 Then > For Each mySubFolder In myFolder.Folders > Call read_Att(mySubFolder) > Next > End If > Set myItems = myFolder.Items > 'slucka na vyhladanie a ulozenie priloh > For Each myItem In myItems > If myItem.Attachments.Count > 0 Then > For Each myAtt In myItem.Attachments > 'cestu treba nutne zmenit > myAtt.SaveAsFile "D:\temp\bab5\" & myAtt.FileName > Next > End If > Next > End Sub > Dobry den, mam podobny problem, ale potreboval bych ulozit pouze prilohy z prvniho mailu. Ovsem ten mail je ve Verejnych slozkach a nevim, jak mu to vnutit. Cesta by byla "Veřejné složky/Všechny veřejné složky/Přílohy". Nevite nekdo, jak toto makro upravit? Treba AleXXX? :-) Diky -- Jan Fiser
This archive was generated by hypermail 2.1.6 : 07. 03. 2003, 11:47 CET