Toplam 3 sonuçtan 1 ile 3 arasındakiler gösteriliyor.

Konu: Microsoft Outlook dan Veri Çekme

  1. #1
    Kıdemli Üye
    Üyelik tarihi
    Jun 2013
    Nereden
    ANTALYA
    Versiyon
    Office 2010
    Mesajlar
    346

    Microsoft Outlook dan Veri Çekme

    Merhabalar,

    Microsoft outlook'da gelen klasörünün altında subfolder olarak banka adında bir klasör var. 2 tane makroya ihtiyacım var. 1. si bu klasordeki maillerin eklerini bilgisayardaki masaüstünde DENEME klasörüne çekecek 2.olarak da DENEME klasörüne çekilen ziplı dosyaları açacak çıkaracak xls dosyalarını klasörün içinde txt dosyaları var iseki oluyor onlarıda çıkaracak amacım Outlook'a bankalardan gelen zıplı dosyaları (xls,txt) masaüstünde deneme klasörüne otomatik çekmek teşekkürler.

  2. #2
    Kıdemli Üye
    Üyelik tarihi
    Jun 2013
    Nereden
    ANTALYA
    Versiyon
    Office 2010
    Mesajlar
    346
    Merhabalar

    Bu konu hakkında yardımlarınızı rica ederim sanırsam uzun oldu isteğim şöylede olabilir Gelen klasörünün altında banka adında klasör var bu klasörün içindeki ne tür dosya olursa olsun zıplı zıpsız txt.csv....masaüstünde deneme klasörüne atacak makroya ihtiyacım bulunmaktadır. Teşekkürler

  3. #3
    Kıdemli Üye
    Üyelik tarihi
    Apr 2004
    Mesajlar
    891
    Merhaba
    Outlook ta aktif olan klasördeki ekleri kaydeder.
    Kod:
    Sub kaydet()
    yol = "C:\Users\xxxx\Desktop\deneme"
    Set otl = CreateObject("Outlook.Application")
    Set tst = otl.ActiveExplorer.Selection
    If tst.Count > 0 Then
                  For i = tst.Count To 1 Step -1
                    atc_say = tst.Item(i).Attachments.Count
                        If atc_say > 0 Then
                        For j = atc_say To 1 Step -1
                            dosya_adi = tst.Item(i).Attachments.Item(j).FileName
                            tst.Item(i).Attachments.Item(j).SaveAsFile yol & "\" & dosya_adi
                        Next j
                        End If
                  Next i
    End If
    End Sub

Konu Bilgisi

Users Browsing this Thread

Şu anda 1 üyemiz bu konuya göz atıyor. (0 kayıtlı üye ve 1 misafir.)

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •