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