RE: Makro na přílohy

From: Likavcan, Alexander (Alexander.Likavcan@volkswagen.sk)
Date: 07. 03. 2003, 13:23 CET

  • Next message: Ing. Vlastimil Pospíchal: "Re: Fish Fillets - reg.cislo" 
    Zdar a silu Fišer, dna 07.03.2003 si napisal(a):

> > 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:" & 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
> 
co to je prvni mail?
je tam tych mailov viacej??? alebo len jeden?
ked to spustis tak si predsa mozes vybrat akykolvek adresar (zlozku)
ak nechces prehladavat podslozky tej kt. si si vybral tak vymaz tieto riadky

> > If mySubFoldersCount > 0 Then
> > For Each mySubFolder In myFolder.Folders
> > Call read_Att(mySubFolder)
> > Next
> > End If




s pozdravom
AleXXX
-- 

Robit mier pomocou zbrani konci tam
kde konci laska, co prechadza cez zaludok.
  • Next message: Ing. Vlastimil Pospíchal: "Re: Fish Fillets - reg.cislo"

    This archive was generated by hypermail 2.1.6 : 07. 03. 2003, 13:24 CET