Forum
Bildirimler
Hepsini Temizle
Microsoft Office
7
Yazılar
4
Üyeler
0
Reactions
978
Görüntüleme
Konu başlatıcı
Merhabalar
ağ üzerinden yedek alırken genelde outlook açık olduğundan yedekleme alamayabiliyoruz.
Shadowcopy v.s. devrede
bunun için kullanıcı kapatmamışsa otomatik outlooku kapatmak için bir yöntem varmıdır.
gerçi zamanlayıcıya komut eklesek olur gibi ama belki zorla kapatırken taslakların heba olmamasını nasıl garantileriz?
Gönderildi : 05/08/2010 22:44
Merhaba,
Neyle ve neleri yedek almaya çalışıyorsunuz?
İyi çalışmalar.
Gönderildi : 06/08/2010 16:29
Konu başlatıcı
herhangi bir şekilde .pst dosyalarını uzak bir bilgisayara okutabilmek ?
yetki vs. herşey ok. ama bunu otomatik yapamıyoruz program çalışıyor?
programı direkt zorla kapatmakda iyi olmaz. kaydedilmemiş taslaklar vs.
herhangi bir yöntem varmıdır?
Gönderildi : 09/08/2010 21:37
Merhaba,
Aşağıdaki verdiğim kodlar bir VB Script'tir. Açık olan Outlook'u bulur, (varsa) açık olan e-mail'leri taslaklara kaydeder ve sonrasında Outlook'u kapatır. Eğer Outlook açık değilse hiç bir işlem yapmaz. Tüm bu işlemleri ekrana uyarı vermeden yapar. Kodları Notepad içine yapıştırın ve dosyayı vbs uzantılı olarak kaydedin. Öncesinde test amaçlı outlook açıkken (hatta bir iki pencerede de kaydedilmemiş e-mail açıkken, iki türlü de denemenizi öneririm) dosyayı çalıştırın. Açık e-mail'leri taslaklar klasörüne kaydedip outlook'u kapatması gerekiyor :
Option Explicit
Dim WshShell
Dim objWMIService
Dim colProcess
Dim objOutlook 'As Outlook.Application
Dim objInspector 'As Outlook.Inspector
Dim objMail 'As Outlook.MailItem
Dim strComputer
Dim strMail
Dim strTest
Set WshShell = WScript.CreateObject("WScript.Shell")
strComputer = "."
strMail = "OUTLOOK.EXE"
strTest = 0
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '" & strMail & "'")
If colProcess.Count = 1 Then
Set objOutlook = GetObject(, "Outlook.Application")
Set objInspector = objOutlook.ActiveInspector
strTest = 1
End If
If strTest = 1 Then
If Not objInspector Is Nothing Then
For Each objInspector In objOutlook.Inspectors
If objInspector.CurrentItem.Class = 43 Then
objInspector.CurrentItem.Close(0)
End If
Next
End If
objOutlook.Quit
End If
Backup zamanlamanızda bu Script'i backup'tan 1 dk önce client tarafında çağırırsanız istediğiniz işlemi yapacaktır.
Gönderildi : 13/08/2010 04:36
Konu başlatıcı
Teşekkürler hemen deneyeceğim 🙂
Ali Bey gayet iyi çalışıyor.
Teşekkürler yeniden
Gönderildi : 15/08/2010 23:42
Rica ederim yine bekleriz 🙂
İyi çalışmalar dilerim.
Gönderildi : 16/08/2010 00:41
