Forum
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?
Merhaba,
Neyle ve neleri yedek almaya çalışıyorsunuz?
İyi çalışmalar.
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?
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.
Teşekkürler hemen deneyeceğim 🙂
Ali Bey gayet iyi çalışıyor.
Teşekkürler yeniden
Rica ederim yine bekleriz 🙂
İyi çalışmalar dilerim.