PDA

Orijinalini görmek için tıklayınız : zamanlanmış olarak e-mail adresine dosya yedekleme



mekselina
25.12.2004, 19:14
merhaba,

öncelikle selamlar, forumda "arama" bölümünde arama yaptım ama istediğim bir sonuca ulaşamadım. Eğer bu konu ile ilgili olarak daha önceden yazılmış, emek sarfedilmiş bir soru-cevap varsa bu konu hakkında atıfta bulunursanız sevinirim..
Sualim şu ki ; normal olarak excel "araçlar-->seçenekler-->kaydet 'den her 10 dakikada çalışma kitabını kendi sistemime kayıt ediyorum AMA istiyorum ki ; excelde bu çalışma kitabını , periyodik olarak yani her bir 10 dakikada outlook üzerinden ,vermiş olduğum adrese otomatik olarak yedeklenmesini istiyorum. Bu işi nasıl çözebilirim?

saygılarımla..

TarkanV
26.12.2004, 16:26
Merhaba;

Aşağıda yazılı kodları "Süreyle Kapanan Excel Sayfası" ve "VBA Kullanarak Mail Atma" konu başlıklarını inceleyerek hocalarımızın yazdığı kodlardan alıntı ile sizin için derlemeye çalıştım.

Kodları ThisWorkbook kod sayfasına yapıştırarak deneyiniz.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
PauseTime = 600
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
Loop
ActiveWorkbook.Save
Call gonder
End Sub

Private Sub gonder()
Dim wb As Workbook
Dim strdate As String
Dim Fname As String
strdate = Format(Now, "dd-mm-yy")
Fname = "C:\Part of " & ThisWorkbook.Name & " " & strdate & ".csv"
Application.ScreenUpdating = False
ActiveSheet.Copy
Set wb = ActiveWorkbook
With wb
.SaveAs Fname, FileFormat:=xlCSV
.SendMail "tarkanvural@hotmail.com", "Dosyanız Outlook'ta yedeklenecek "
.Close False
End With
Kill Fname
Application.ScreenUpdating = True
End Sub

Kolay gelsin.

Saygılarımla;
Tarkan VURAL

mekselina
26.12.2004, 17:03
merhaba
kodları deneme fırsatım olmadı ama
gayretiniz için teşekkür ederim..

saygılarımla...