Son kayıt edilen dosya özelliklerinin mail atılması

[ismail0160]

Merhabalar,

" C:\deneme " içerisindeki dosyaların son kayıt edileni bulup, bu dosyanın özelliklerini (kayıt tarihi, saati )15 dk da bir mail atacak VBA kodunu nasıl yazabilirim?

 

[ismail0160]

Kendim sorup kendim cevaplamış gibi olacağım ama; umarım cevabım birilerinin işine yarar.

Private Sub Workbook_Open()

Application.OnTime Now + TimeValue("00:0:10"), "mail_tarih"

End Sub


Sub mail_tarih()

Dim ds, f
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("D:\deneme")
[a1] = f.DateLastModified

Dim OutApp As Outlook.Application
Dim NewMail As Outlook.MailItem
Set OutApp = New Outlook.Application
Set NewMail = CreateItem(olMailItem)
With NewMail
.To = "bilmemkime@gmail.com"
.Subject = [a1]
.Body = ""
.Save
.Send '.Display ile önizleme yapılabilir.
End With
Set NewMail = Nothing
Set OutApp = Nothing

Call Workbook_Open

End Sub

Yukarıdaki kod her on saniyede bir D:\deneme klasörünün son değiştirilme tarihihi mail atıyor.
Outlook'ta mail atmadan önce gelen uyarıyı http://www.mapilab.com/files/security_outlook.zip buradan indirdiğiniz dosya ile aşabilirsiniz.
3. parti bir yazılım ama işe yarıyor.