Zdar a silu George, dna 10.02.2003 si napisal(a): > Hoj lidicky :)) > > 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 > nevite jak na to. > Samozrejme to nechci delat rucne ... > > Lidicky dik moc za to ze mi poradite ..... > > George .... > PS: Diky tem ktery mi pomohli minule .... > 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 s pozdravom AleXXX -- Remember: there are no strangers in the world, only friends who have not yet met.
This archive was generated by hypermail 2.1.2 : 10. 02. 2003, 15:10 CET