Forum
Bildirimler
Hepsini Temizle
İpucu
8
Yazılar
3
Üyeler
0
Reactions
965
Görüntüleme
Konu başlatıcı
Kişisel Klasörler altındaki Gelen Kutusu'nda bulunan ve 7 gün öncesine kadar olan mailleri Gelen klasörüne,Gönderilmiş Öğeler'de bulunan ve 7 gün öncesine kadar olan mailleri de Giden klasörüne taşır.
■ Kodlar şu şekildedir;
Sub Gelenigelene_Gidenigidene()
Rem - Www.ExcelVBA.Net - Murat OSMA
Dim OutApp As Object
Dim NmSpace As Object
Dim Inbox As Object
Dim SentMail As Object
Dim Evn As Object
Set OutApp = CreateObject("Outlook.Application")
Set NmSpace = OutApp.GetNamespace("MAPI")
Set Inbox = NmSpace.GetDefaultFolder(6)
Set SentMail = NmSpace.GetDefaultFolder(5)
On Error Resume Next
For Each Evn In Inbox.items
DoEvents
If Evn.ReceivedTime = Now - 7 Then
If Err Then Err.Clear: GoTo i
End If
Evn.Move Inbox.Folders("Gelen")
Next Evn
For Each Evn In SentMail.items
DoEvents
If Evn.ReceivedTime = Now - 7 Then
If Err Then Err.Clear: GoTo i
End If
Evn.Move SentMail.Folders("Giden")
i: Next Evn
MsgBox "..::.. Transfer Tamamlanmıştır ! ..::.. ", _
vbInformation + vbMsgBoxRtlReading, "Www.ExcelVBA.Net"
Set Evn = Nothing: Set SentMail = Nothing: Set Inbox = Nothing
Set NmSpace = Nothing: Set OutApp = Nothing
End Sub
Hoşça kalın !
Gönderildi : 16/11/2013 20:00
Paylaşım için teşekkürler.
1984 doğumluyum. 4 yaşından bu yana İstanbul’da yaşıyorum. Sırası ile aşağıdaki okullarda eğitim gördüm. Paşaköy ilkokulu (1990-1995) Kartal Zekeriyya Güçer İlköğretim Okulu(1995-1998) Ümraniye Teknik ve Endüstri Meslek Lisesi Bilgisayar Bölümü(1998-2001) Kocaeli Üniversitesi Bilgisayar Programcılığı(2002-2004) Anadolu Ünv. İşletme Fakültesi(2006-2009) Lise yıllarından sonra bir bilgisayar firmasının teknik servisinde mesleğe merhaba dedim. Outsource olarak Citibank ytl ve bina taşınma projesinde yer alarak 8 ay görev yaptım. Bu görevden sonra şu an çalışmakta olduğum yerde bilgi işlem sorumlusu olarak göreve başladım ve 18 yıldır görevimin başındayım.
Gönderildi : 17/11/2013 00:13
Konu başlatıcı
Rica ederim.
Gönderildi : 17/11/2013 01:25
Murat Bey bu yazdıklarınız size mi ait bir yerden mi alıntı yapıyorsunuz? Alıntı ise lütfen site ismi paylaşmayın sadece alıntı olup olmadığını yazın, yada bizde google dan bakabiliriz?
Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************
Gönderildi : 17/11/2013 06:00
Ayrıca forum kuralları gereği imzanızdaki reklamı kaldırdım.
Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************
Gönderildi : 17/11/2013 06:01
Konu başlatıcı
Murat Bey bu yazdıklarınız size mi ait bir yerden mi alıntı yapıyorsunuz? Alıntı ise lütfen site ismi paylaşmayın sadece alıntı olup olmadığını yazın, yada bizde google dan bakabiliriz?
Merhaba [b]Hakan Bey[/b], kaynağından çıktıktan sonra bütün kodlar alıntıdır. Bundan sonrası ihtiyaca göre kod geliştirmek olur ki, paylaştığım kodlar benim ürettiğim kodlardır, Google'da arama yaptığınızda da bunu görebilirsiniz. Yalnız, kodların altına; alıntı değildir mi yazmam gerekiyor bunu anlamadım. ?
Peki [b]Hakan Bey[/b], birkaç kullanıcın imzasında web adresi gördüğüm için yazmıştım. Kurallara aykırı bir durum ise bilgilendirme için teşekkür ederim.Ayrıca forum kuralları gereği imzanızdaki reklamı kaldırdım.
[b]Saygılar,[/b]
Gönderildi : 17/11/2013 14:47
ÇözümPark olarak zaten internette olan bir şeyin bir kez daha buradan paylaştırılmasını doğru bulmuyoruz. Çünkü bu hit çekmek isteyen giriş seviyesindeki forum sitelerinin yaptığı bir iştir.
Biz zaten sadece ÇözümPark üzerinde bulunabilecek bir içerik hazırlamaya çalışıyoruz.
Tabiki istisnalar oluyor, misal ben bir makale yazdığımda hem cozumpark hemde hakanuzuner de yayınlarım. Ama bana ait olmayan size ait olan bir şeyi sizin sitenizden alıp buraya koymam bizim etik kurallarımıza aykırı.
Bu manada bu kodları siz düzenledi iseniz ve bir yerden yukarıda bahsettiğim gibi alınmadı ise sorun yok.
İmza için aslında başka kişilere değil foruma üye olduğunuz zaman forum kurallarına bakmanız yeterlidir.
Diğer gözden kaçanlarıda tespit ettikçe düzeltmeye çalışıyoruz.
Danışman - ITSTACK Bilgi Sistemleri
****************************************************************
Probleminiz Çözüldüğünde Sonucu Burada Paylaşırsanız.
Sizde Aynı Problemi Yaşayanlar İçin Yardım Etmiş Olursunuz.
Eğer sorununuz çözüldü ise lütfen "çözüldü" olarak işaretlerseniz diğer üyeler için çok büyük kolaylık sağlayacaktır.
*****************************************************************
Gönderildi : 17/11/2013 18:31
Konu başlatıcı
Anlıyorum [b]Hakan Bey[/b], sorun yok o hâlde. Önceden de belirttiğim üzere, paylaştığım kodlar alıntı değildir ve tarafımdan geliştirilmiştir. Yine de derseniz ki; "bu konuda dışarıdan örnek kod paylaşımına sıcak bakmıyoruz, sadece forumda açılan ve çözüm arayan konuların çözümsüz bırakılmaması bizim için öncelikli ve yeterlidir" ben de bu tarz paylaşımlardan vazgeçerim.
İmza konusunda: elbette ki her ortamın belirlenen kendine has kuralları vardır ve bu kuralları beğenmeyen kişiler olsa da, bu kurallara saygı gösterip iletileri de bu minvalde yazmaya azami özen göstermek, siteye üye olan herkesin dikkat etmesi gereke bir husustur. Bu konuda haklısınız, ama dediğim gibi birkaç üyenin imzasında web adresi yazılı görünce, herhalde [b]ÇözümPark[/b]'ın bu reklâm konusunda bir şeyleri aştığını düşünmüştüm. Yine de sizin kuralınızdır, saygı duyuyorum..
İyi akşamlar.
Gönderildi : 18/11/2013 01:06
