Outlook - Mükerrer Maillerin Silinmesi.

[cqners]

Merhaba ;


Outlook kullanıcısıyım ve 17GB lık arşivim var. Arşivde aynı maillerden söz konusu bazen 3 veya 4 adet aynı mailden mevcut.

Tarih - Boyut - Konu Özelliklerini kontrol ederek mükerrer kayıtları silebilecek makroya ihtiyacım var. excel.web.tr üzerindeki arama motorunu kullandım cevap alamadım. Yardımlarınızı rica ederim.

 

[cqners]

Konu hakkında bilgi sahibi olan varmı ?

 

[cqners]

Nette çok araştırdım malesef çaresi yok, boşuna aramayın.

İlginiz için Teşekkürler.

 

[Recep İpek]

Aşağıda linkteki konu işinize yarar mı?

http://www.experts-exchange.com/Software/Office_Productivity/Groupware/Outlook/Q_23575810.html

 

[ersoyalan]

Recep hocam günaydın,

Bu koda benimde ihtiyacım vardı.Kodu çalıştırdığım zaman ekteki kısımlarda hata mesajı veriyor.Konu hakkında yardımcı olabilirmisiniz.


E.ALAN

 

[msanli]

Günaydın,
Bu kodu bende çalıştırdım, fakat ersoyalan tarafından gönderilen hata ile karşılaştım.
Aslında outlook kullanıcılarının başına bela olan bir konu. Özellikle arşivlenmiş klasörlerde taşıma veya kopyalama sırasında oluşan ve boşu boşuna boyut artıran bir unsur. Hepsinden önemliside pst boyutu büyüdükce dosyanın güvenilirliğinin azalması. Bu sorun 2002 ve üzeri ofis versiyonlarında her nekadar çözüldüyse de yine de güven vermiyor. Bu tip makro ile mükerrer kayıtların silinmesi zaman ve kapasite anlamında önem kazanıyor. Bu sorunu çözebilirsek sanırım bu dertten muzdarip bir çok excel dostları mutlu olacaktır.

 

[cqners]

Tam ümidi kesmişken, konuya cevap gelmesi beni sevindirdi.

Sn. Recep İpek verdiğiniz kodu denedim ve Ersoy ALAN'nın karşılaştığı hatayla karşılaştım. Çözümü varmı acaba ?

Public Sub RemoveDuplicates()
If ConfirmDelete = vbYes Then
Dim ns As NameSpace
Dim di As MAPIFolder
Dim mi As Outlook.MailItem
Dim diCount As Integer
Dim miTemp As Outlook.MailItem
Set ns = ThisOutlookSession.Session
Set di = ns.GetDefaultFolder(olFolderDeletedItems)
Set Items = di.ShowItemCount 'Burada hata uyarısı vermekte. Hata içeriği : Compile error: Object required
For i = 1 To Items
miTemp = mi
For Each mi In di
If Not miTemp Then
If miTemp.Subject = mi.Subject And miTemp.SenderEmailAddress = mi.SenderEmailAddress And miTemp.SentOn = mi.SentOn Then
miTemp.Delete
Set Items = Items - 1
End If
End If
Next
Next
Set ns = Nothing
Set di = Nothing
Set mi = Nothing
Set miTemp = Nothing
End If
End Sub

Private Function ConfirmDelete() 'asks before proceeding with delete
Dim warningPrompt As String
Dim warningTitle As String
Dim warningButtons As String
warningPrompt = "Continue with removal of duplicated deleted items?"
warningTitle = "Confirm Delete"
warningButtons = vbYesNo + vbQuestion + vbDefaultButton2
ConfirmDelete = MsgBox(warningPrompt, warningButtons, warningTitle)
End Function

 

[cqners]

Konuyla ilgili test yapamayan yardımcı olmaya çalışan arakdaşlar örneklerini burada yayınlayabilirse test ederek sonuç hakkında bilgi verebilirim.

 

[cqners]

Şunu yapabilirmiyiz. Örnekteki silme işlemini önceden belirlenmiş bir klasöre taşıma işlemi olarak değiştirebilmemiz mümkünmü ?

Örneğin tüm mükerrer dosyalardan sadece 1 i ana klasörde kalacak diğerlerini farklı bir klasörde toplayacak.

 

[cqners]

Araştırmalarım sonuç verdi.

Aşağıdaki proğram adı ve linkini kullanın mükerrer maillerden kurtulun.


Delete Duplicates for Outlook

http://e-gadgets.freehostia.com/ddo.htm#downloads

Dosya paylaşım proğramlarından indirirseniz ilacıda içerisindedir. Kolay gelsin.