• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
A

apeks64

Yeni Üye
Kullanıcı Bilgileri
Katılım
16 Mar 2023
Mesajlar
88
Çözümler
1
Aldığı beğeni
9
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
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

  • Attachment Found.xlsb
    17.7 KB · Gösterim: 2
Çözüm
K
Ş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
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
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
Son düzenleme:
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
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
Kuşdili , Ali ÖZ çok teşekkür ederim çok harika, çok yararlı bir çalışma oldu. Allah işnizi rast getirsin. Sağolun varolun.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst