DD vsetkym
minule tu niekto chcel "AUTOMATICKE" ukladanie
priloh. Najprv som myslel, ze spravim nejaky Add-In
ale z dovodu ze je to velmi lahke makro a Add-In som
este nerobil preposielam priamo kod s vysvetlivkami.
Upozornujem, ze vsetky Rules su vykonane az po tomto
kode. Notifikacia ci rozne ine veci bezi v poriadku
Menu : <Nastroje><Makro><Editor Vis.....>
2x Kliknut na ThisOutlookSession a vlozit:
'******start copy******
Private Sub Application_NewMail()
'spusta sa vzdy pri novom maily
Call UlozPrilohu
End Sub
Sub UlozPrilohu()
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(6)
'Index 6 = Inbox
Set myItems = myInbox.Items 'Nacita vsetky maily
'zuzi mnozinu mailov len na neprecitane
Set myRestrictItems = myItems.Restrict _
("[Unread] = true")
'slucka na vyhladanie a ulozenie priloh
For Each myItem In myRestrictItems
If myItem.Attachments.Count > 0 Then
For Each myAtt In myItem.Attachments
'cestu c:\temp\VBE\ mozte lubovolne prepisat
'!!!Pozor Temp adresar pouziva otlak takze musi to
'!!!byt iny adresar
'ak nechcete aby sa kukazdej prilohe ukladal aj
'den a cas vytvorenia zmazte cely riadok Format....
myAtt.SaveAsFile "c:\temp\VBE\" & _
Format(myItem.CreationTime, "dd.mm_hh-nn_") & _
myAtt.FileName
Next
'nastavi spravu ako precitanu
myItem.UnRead = False
End If
Next
End Sub
'*********stop copy*****
ak mate nejake otazky
Stehe ich gern zur Verfuegung
AleXXX
--
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 03:52 CEST