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