Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-02-2017, 22:06   #1
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 276
Excel Vers. ve Dili:
office 2010
Question Outlook gönderilen iletilerin kopyasını klasöre kopyalama şartlı olarak

İyi geceler arkadaşlar,

Outlook 2010 sürümünü kullanıyorum , forum da epey araştırma yaptım fakat benim konuma yakın bir tartışma bulamadım .

İhtiyacım gönderdiğim e postalar da konu kısmın da Y200%(y200 sonrası değişkendir y20010,11 vs) var ise belirli bir tarih aralığındaki 01/01/2017 09/02/2017 arasındaki e postaları masa üstünde bir klasöre kaydedebilmek için kod konusunda yardımcı olabilir misiniz. teşekkürler.

en yakın kod buldum fakat bu kod excele aktarabiliyor tüm gönderilenleri zamana bakmaksızın.


Alıntı:
Option Explicit

Private lrow As Long, x As Date, oWS As Worksheet

Sub GetFromInbox()
Const olFolderDrafts = 6
Dim olApp As Object, olNS As Object
Dim oRootFldr As Object
Dim lCalcMode As Long

Set olApp = CreateObject("Outlook.Application")
Set olNS = olApp.GetNamespace("MAPI")
Set oRootFldr = olNS.GetDefaultFolder(olFolderDrafts)
Set oWS = ActiveSheet

x = Date
lrow = 2
lCalcMode = Application.Calculation
Application.Calculation = xlCalculationManual
GetFromFolder oRootFldr
Application.Calculation = lCalcMode

Set oWS = Nothing
Set oRootFldr = Nothing
Set olNS = Nothing
Set olApp = Nothing
End Sub

Private Sub GetFromFolder(oFldr As Object)
Dim oItem As Object, oSubFldr As Object

For Each oItem In oFldr.Items
Range("g1").Value = lrow
If TypeName(oItem) = "MailItem" Then
With oItem
oWS.Cells(lrow, 1).Value = .SenderEmailAddress
oWS.Cells(lrow, 2).Value = .To
oWS.Cells(lrow, 3).Value = .cc
oWS.Cells(lrow, 4).Value = .Subject
oWS.Cells(lrow, 5).Value = .receivedtime

lrow = lrow + 1
End With
End If
Next
For Each oSubFldr In oFldr.Folders
GetFromFolder oSubFldr
Next
End Sub
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2017, 06:51   #2
tirEdsOuL
Altın Üye
 
tirEdsOuL kullanıcısının avatarı
 
Giriş: 03/02/2009
Şehir: Düzce
Mesaj: 294
Excel Vers. ve Dili:
Microsoft Office Ev ve İş 2013
Varsayılan

Aşağıdaki konuda, sn. asri beyin 2. yorumunu inceleyiniz..

http://www.excel.web.tr/f48/outlook-...e-t161559.html
tirEdsOuL Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2017, 08:34   #3
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 1,866
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Güncel bilgi sonraki mesajda.
__________________
www.asriakdeniz.com

Bu mesaj en son " 15-02-2017 " tarihinde saat 14:59 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2017, 21:11   #4
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 276
Excel Vers. ve Dili:
office 2010
Varsayılan

Asri usta merhaba ,

Verdiğiniz kodların bulunduğu konuyu takibe almıştım fakat şuan benim amacım başkadır ,kodu denedim şirkette bir hata almıştım referansla ilgiliydi sanırım ev de Microsoft office 14 object libery işaretli bir hata almadım ,fakat gelen emailleri kaydetmedi çalıştırıyorum hiçbir şey olmuyor excelin olduğu klasöre bir email dahi getiremedim.

şuan ilk amacım
benim kullanıcım dan gönderilmiş olan örnek 01/02/2017 ile 10/02/2017 arasında y200% olan (y200% konu başlığında bazen en başta sol yada ortada yada en sağ da olabiliyor) bu şartı içeren emailleri masaüstündeki bir klasöre kopyalamak istiyorum,

ortalama ayda 2400 email gönderiliyor bunların %20 i teklif yani y200 ile başlıyor bunlar mühim bazen outlook kasıyor istediğim teklifi dahi bulamıyor yada uzun zaman sonra müşteriler yada bayiler çamura yatabilir yor yada teklif gelmedi gibi durumlar ulaşabiliyor onun için kopya almam lazım tarih aralıklı ,arama ile alabiliyorum fakat tarihe göre sıralayıp fakat 5 ay sonra alamayacağız belli .

onun için makro ile yapılabilir mi ilk amacım ?
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2017, 21:18   #5
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 1,866
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Alıntı:
mustilem23 tarafından gönderildi Mesajı Görüntüle
..
benim kullanıcım dan gönderilmiş olan ..
Ben soruyu tam okumamışım. Kod gelen kutusu için çalışıyor.
Buradaki 6 yı 5 yapın. 5 Gönderilmiş öğeleri belirtir.

Set olFldr = olNS.GetDefaultFolder(6)
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-02-2017, 22:27   #6
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 276
Excel Vers. ve Dili:
office 2010
Varsayılan

usta teşekkürler.
pazartesi ilk iş şirkette deneyeceğim sanırım outlook um da bir sorun var hiç bir sonuç alamadım.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2017, 10:41   #7
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 276
Excel Vers. ve Dili:
office 2010
Varsayılan

Usta eline sağlık kopyalama işlemi tamam fakat kopyalanan dosyalar açılmıyor aşağıdaki gibi bir izinle ilgili bir hata yapıyor .sanırım izinle alakası yok çünkü kopyalanan dosyayı emailin içine ekledim böyle bir dosya yok diyor.yardımcı olabilir misiniz hiç rastladınız mı böyle bir hata ile.

Alıntı:
C:\Users\mdogru\Desktop\emaıl kpyalama kalsoru\20170213-114000-FW- SANKO TEKSTİL... dosyası açılamıyor. Dosya yok, dosyayı açma iznine sahip değilsiniz ya da dosya başka bir programda açık. Dosyayı içeren klasörü sağ tıklatın, sonra da klasör üzerindeki izinlerinizi denetlemek için Özellikler'i tıklatın.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2017, 12:56   #8
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 1,866
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Alıntı:
mustilem23 tarafından gönderildi Mesajı Görüntüle
Usta eline sağlık kopyalama işlemi tamam fakat kopyalanan dosyalar açılmıyor aşağıdaki gibi bir izinle ilgili bir hata yapıyor .sanırım izinle alakası yok çünkü kopyalanan dosyayı emailin içine ekledim böyle bir dosya yok diyor.yardımcı olabilir misiniz hiç rastladınız mı böyle bir hata ile.
Buradaki kod 3 olarak değiştirildi. Dener misiniz?

İlk mesajımdaki kod güncellendi.

olMail.SaveAs yol & dosyaadi, 3
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2017, 15:16   #9
mustilem23
Altın Üye
 
Giriş: 29/10/2010
Şehir: bursa
Mesaj: 276
Excel Vers. ve Dili:
office 2010
Varsayılan

Usta büyüksün ,eline sağlık çok teşekkürler.
Müsaitseniz birde aynı kapsam da sadece konu başlıklarını excele alabilen tarih bazlı Y200 referanslı kodlar için yardımcı olabilmeniz mümkün müdür.
mustilem23 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-02-2017, 15:29   #10
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 1,866
Excel Vers. ve Dili:
Office 2010 Tr
Varsayılan

Alıntı:
mustilem23 tarafından gönderildi Mesajı Görüntüle
Usta büyüksün ,eline sağlık çok teşekkürler.
Müsaitseniz birde aynı kapsam da sadece konu başlıklarını excele alabilen tarih bazlı Y200 referanslı kodlar için yardımcı olabilmeniz mümkün müdür.
Aynı işlemde mail konularını excel de listeleme mi? Farklı bir durum mu?
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 04:50


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Hurda - Torna - Çorlu Web Tasarım - Tarot Falı - Fenerbahçe Haberleri - Trakya Haberleri - investing - Hurda - Kozmetik Ürünler - Sağlıklı Makyaj Ürünleri - Yaşlanma Karşıtı Ürünler - Excel Eğitimi - Çorlu osgb - Lingerie - Dyeing Machine - Çorlu Temizlik- Hazır Site- SEO- Çorlu Burun Estetiği- Çorlu Pimapen- Karton Bardak- Marka Tescil Danışmanlık- Marmara Ereğlisi Restaurant- Çorlu Sigorta- Çorlu Pimapenci- İstanbul Avukat- Çorlu Sürücü Kursu- Çorlu Rehabilitasyon- Edirne Su Arıtma- Çorlu Perde Yıkama- Marmara Ereğlisi Hotel- Site Yönetimi- Led Aydınlatma-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden