Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 64419 Skopiuj do schowka Automatyczne wysyłanie mail
Autor Wiadomość
kaliwaw 
świeżak


Posty: 4
Wysłany: 13-03-2019, 15:56   Automatyczne wysyłanie mail

Mam pytanie czy możliwe jest w ogóle napisanie w VBA mechanizmu który sprawdzałby datę modyfikacji plików excel w danym katalogu i w przypadku braku modyfikacji np. w ostatnich 2 miesiącach wysyłał mail z komunikatem o potrzebie sprawdzenia pliku do użytkownika którego mail jest wpisany w poszczególnych plikach.
Plików w katalogu jest ok 100.
Jeśli nie jest to mozliwe to czy ktoś kojarzy narzędzia/aplikacje dzięki którym można uzyskać takie działanie?
_________________
Jacek
ID posta: 364139 Skopiuj do schowka
 
 
BrunO 
ExcelSpec



Pomógł: 125 razy
Posty: 540
Wysłany: 13-03-2019, 20:50   

W temacie wysyłania maili kiedyś naprodukowałem się tutaj więc teraz tylko linkuję.

a szukanie "przeterminowanych" plików? Coś takiego na przykład:
Kod:
Sub PrzydatnoscDoSpozycia()
    Dim StrFile As String
    Dim strPath As String
   
    strPath = "c:\test\"
   
    StrFile = Dir(strPath)
    Do While Len(StrFile) > 0
        If DateAdd("d", 30, FileDateTime(strPath & StrFile)) < Now Then
       
            'TU SOBIE MAILA WYŚLIJ
            'CZY CO CI SIĘ PODOBA
       
        End If
       
        StrFile = Dir
    Loop
End Sub
ID posta: 364164 Skopiuj do schowka
 
 
ąćęłńóś
ExcelSpec


Pomógł: 185 razy
Posty: 838
Wysłany: 13-03-2019, 21:12   

Albo z FSO, żeby nie zapomnieć dużych fiatów, polonezów i maluchów ... :->

Kod:
Option Explicit

Sub aaa()
    Const dostep$ = "C:\Temp\"
    Dim fso, katalog, pliki, plik, waniatko_od&
   
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set katalog = fso.GetFolder(dostep)
    Set pliki = fso.GetFolder(katalog).Files
   
    For Each plik In pliki
        waniatko_od = Abs(DateDiff("d", plik.DateLastModified, Now))
        If waniatko_od > 60 Then Call pocztel(plik.Name, waniatko_od)
    Next
   
    Set pliki = Nothing
    Set katalog = Nothing
    Set fso = Nothing
End Sub

Sub pocztel(nazwa$, od&)
    Debug.Print nazwa & " waniajet już od " & od & " dni"
End Sub
ID posta: 364167 Skopiuj do schowka
 
 
BrunO 
ExcelSpec



Pomógł: 125 razy
Posty: 540
Wysłany: 13-03-2019, 21:38   

ąćęłńóś, toć maluchy w Bielsku-Białej produkowali
a w przedostatnim wierszu ze zmiennej waniatko_od samo od wykorzystałeś ;-)
ID posta: 364169 Skopiuj do schowka
 
 
ąćęłńóś
ExcelSpec


Pomógł: 185 razy
Posty: 838
Wysłany: 13-03-2019, 21:44   

BrunO napisał/a:
maluchy w Bielsku-Białej

"Tam gdzie chodzi o pamięć, nieważna jest prawda" ... :-> ... nie nauczyłeś się jeszcze tego w kraju nad wisłoką ... :-P ... ot taki skrót powiedzmy

BrunO napisał/a:
ze zmiennej 'waniatko_od' samo 'od' wykorzystałeś

To z powodu "przeskoku" ... po drodze "wywietrzało" ... :-D
ID posta: 364171 Skopiuj do schowka
 
 
kaliwaw 
świeżak


Posty: 4
Wysłany: 14-03-2019, 08:10   

Wielkie dzięki za odpowiedź, będę dzisiaj sprawdzał.
_________________
Jacek
ID posta: 364189 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe