Yedek almak iç...
 
Bildirimler
Hepsini Temizle

Yedek almak için Outlooku otomatik öğle arası kapatmak  

  RSS
 Anonim

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?

 

Alıntı
Gönderildi : 05/08/2010 22:44
Murat CAN
(@muratcan-2)
Tecrübeli Üye Forum Yöneticisi

Merhaba,

Neyle ve neleri yedek almaya çalışıyorsunuz?

İyi çalışmalar.

CevapAlıntı
Gönderildi : 06/08/2010 16:29
 Anonim

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?

CevapAlıntı
Gönderildi : 09/08/2010 21:37
Ali Ozinan
(@AliOzinan)
Üye

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.

CevapAlıntı
Gönderildi : 13/08/2010 04:36
 Anonim

Teşekkürler hemen deneyeceğim 🙂

 Ali Bey gayet iyi çalışıyor. 

Teşekkürler yeniden

 

CevapAlıntı
Gönderildi : 15/08/2010 23:42
Ali Ozinan
(@AliOzinan)
Üye

Rica ederim yine bekleriz 🙂

İyi çalışmalar dilerim.

CevapAlıntı
Gönderildi : 16/08/2010 00:41
Sinan KAHRAMAN
(@SinanKAHRAMAN)
Saygın Üye

Ek olarak pfbackup.exe deneyebilirsiniz.

CevapAlıntı
Gönderildi : 18/08/2010 14:54
Paylaş: