• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Outlook eklerini bir klasöre otomatik olarak kaydetme makrosu

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
A

apeks64

Yeni Üye
Katılım
16 Mar 2023
Mesajlar
115
Çözümler
1
Aldığı beğeni
12
Excel V
Office 2010 TR
Konu Sahibi
Selam Arkadaşlar; Youtube da şu şekilde bir videoya denk geldim. Bu video açıklamasında bulunan dosyayı buraya ekliyorum. Bu dosya üzerinde küçük ekleme ve düzeltmeler yapılırsa benim için çok harika, kullanışlı bir hal alacak . Bu forumda bunu 5 dk içinde yapabilecek bir çok arkadaş var biliyorum:)
Olay şu; Bana her sabah aynı kişiden mailler geliyor ,hepsinin ekinde de sadece bir tane pdf dosyası bulunuyor. Bunları her gün bir klasöre indirip topluyorum.. Bunu bu makro ile nasıl yapabilirim. Yardımcı olursanız çok sevinirim.

Video linki:
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Çözüm
Kuşdili
Şunu
If a.senderemailaddress = "yasin.uysal@g**************l.com.tr" Then
Şununla değiştiriniz.
If a.senderemailaddress = "yasin.uysal@g**************l.com.tr" And a.unread = True Then

Bir de okunmamış işaretini kaldırmak demiştiniz.
Şu satırın altına
a.Attachments.Item(i).SaveAsFile "D:\ECZANE\DESKTOP\Faturalar" & a.Attachments.Item(i).Filename '
Şunu ekleyiniz.
a.unread = False
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
Olumlu oy 0 Negatif oyla
a.Attachments.Item(i).SaveAsFile "D:\ECZANE\DESKTOP\Faturalar" & a.Attachments.Item(i).Filename ' kayıt yerini atayın
Bu satırda kesme işaretini eksik yazmışsınız,
Bu şekilde deneyin.
a.Attachments.Item(i).SaveAsFile "D:\ECZANE\DESKTOP\Faturalar\" & a.Attachments.Item(i).Filename ' kayıt yerini atayın
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Ali ÖZ' Alıntı:
a.Attachments.Item(i).SaveAsFile "D:\ECZANE\DESKTOP\Faturalar" & a.Attachments.Item(i).Filename ' kayıt yerini atayın
Bu satırda kesme işaretini eksik yazmışsınız,
Bu şekilde deneyin.
a.Attachments.Item(i).SaveAsFile "D:\ECZANE\DESKTOP\Faturalar\" & a.Attachments.Item(i).Filename ' kayıt yerini atayın
Genişletmek için tıkla...
Hocam cahilliğimi bağışlayın, sanki " Bu şekilde deneyin " dediğiniz yer ile üstündeki satır aynı. Bir de " kayıt yeri atayın" yazan yere de mi
D:\ECZANE\DESKTOP\Faturalar\ yazmam gerekiyor?
Genişletmek için tıkla...
 
Olumlu oy 0 Negatif oyla
apeks64' Alıntı:
Anladım hocam . O şekilde de denedim olmadı malesef. Makrı Çalışıyor ama belirtilen yola dosya eki gelmiyor.
Genişletmek için tıkla...
O zaman muhtemelen gönderici adını hatalı girdiniz. Gönderici adı ile gönderici mail adresi farklı şeyler.
If a.sendername = ... yazan yer gönderici adıdır. Siz mail adresini yazmışsınız galiba.
if a.senderemailaddress = ...
yazıp denermisiniz.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Kuşdili' Alıntı:
O zaman muhtemelen gönderici adını hatalı girdiniz. Gönderici adı ile gönderici mail adresi farklı şeyler.
If a.sendername = ... yazan yer gönderici adıdır. Siz mail adresini yazmışsınız galiba.
if a.senderemailaddress = ...
yazıp denermisiniz.
Genişletmek için tıkla...
Şimdi oldu hocam. :) Teşekkür ederim. Yalnız ne var ne yok hepsi indi. Bunu sadece okunmamış olarak ayarlamak mümkün mü? Yalnız mail ekini indirdikten sonra "okundu" olarak işaretlemesi lazım. Her sabah belirli bir zamanda otomatik çalıştırırsamm çok harika olacak.
 
Olumlu oy 0 Negatif oyla
Şunu
If a.senderemailaddress = "yasin.uysal@g**************l.com.tr" Then
Şununla değiştiriniz.
If a.senderemailaddress = "yasin.uysal@g**************l.com.tr" And a.unread = True Then

Bir de okunmamış işaretini kaldırmak demiştiniz.
Şu satırın altına
a.Attachments.Item(i).SaveAsFile "D:\ECZANE\DESKTOP\Faturalar" & a.Attachments.Item(i).Filename '
Şunu ekleyiniz.
a.unread = False
 
Son düzenleme:
Olumlu oy 1 Negatif oyla
Çözüm
Bu makronun aynısını yazmıştım daha sonra ihtiyacım kalmayınca silmiştim. Şimdi tekrar bulmak iyi oldu. Kopyalayıp arşive atayım ilerde belki lazım olur. Gayet güzel sorunsuz çalışan makro, elinize sağlık.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst