Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: makro outlook
anonim




Typ: Nie zarejestrowany
makro outlook

Interesuje mnie rozwiązanie automatycznego wklejania załączników mail-i do wskazanego katalogu na dysku.
1.Outlook odbiera mail z załącznikiem i automatycznie bez obsługi użytkownika umieszcza go na dysku lub odbiera mail z arkuszem kalkulacyjnym i rzuca go do excela.

08-10-2002 20:47
  
anonim




Typ: Nie zarejestrowany
zajmę się tym

Czuję, że jest to do zrobienia, ale na tę chwilę nie wiem jak.

Maciej Łoś
Jeśli chcesz dowiedzieć się więcej o programowaniu w VBA polecam: http://losmac.republika.pl
zobacz też: http://helion.pl/ksiazki/ofvba.htm

07-05-2003 19:04
  
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
z www.outllokvba.com

Sub SAVEATTACHMENTS()
'ustawiamy obiekt = aplikacji Outlook'a, by uzyskać dostęp do jej poszczególnych elementów, właściwości, metod
      Set myOlApp = CreateObject("Outlook.Application"
      Set myNameSpace = myOlApp.GetNamespace("MAPI"
'zmienna = aktywnemu folderowi w Outlook'u
'ten folder musi zawierać załączniki
      Set myFolder = ActiveExplorer.CurrentFolder
      'ustaw kolekcje jako jeden obiekt
      Set MyItems = myFolder.Items
      'dla każdego elementu w obiekcie MyItems trzeba sprawdzić, czy zawiera załącznik/załączniki i zapisać każdy z nich w określonej lokalizacji
        For Each I In MyItems
          'resetujemy zmienną załączniki dla każdej wiadomosci
          Set MyAttachments = I.Attachments
            'upewnij się, że zawiera załączniki
            If MyAttachments.Count > 0 Then
                myAttachentsCount = MyAttachments.Count
                  'dla każdego załącznika
                  Do
                  'jeśli nie ma załącznika wyjdź z pętli
                    If myAttachentsCount = 0 Then Exit Do
                  'wyświetl
                    I.Display
                    'poniższa linia jest dyskusyjna. niektórzy powiedzą, że nie jest lub jest to dobra praktyka
                    Set myOlApp = CreateObject("Outlook.Application"
                    'znowu obiekt
                    Set MyItem = myOlApp.ActiveInspector.CurrentItem
                    Set myItemAttachments = MyItem.Attachments
                    'poniższa linja zapisuje załączniki
'Utwórz folder "c:\moje dokumenty\test1" zanim uruchomisz ten kod
                    myItemAttachments.Item(myAttachentsCount).SaveAsFile "c:\moje dokumenty\test1\" & _
                    myItemAttachments.Item(myAttachentsCount).DisplayName
                    myAttachentsCount = myAttachentsCount - 1
                Loop
                    'zamknij otwartą wiadomość..
            MyItem.Close (1)
          End If
      Next I
End Sub


_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

06-11-2003 16:08
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1