Excel Forum

Excel Forum (http://www.excel.web.tr/index.php)
-   Makro-VBA (http://www.excel.web.tr/forumdisplay.php?f=48)
-   -   Outlook Gelen E-Posta ve Eklerinin Excele raporlaması (http://www.excel.web.tr/showthread.php?t=167985)

nkeles 08-11-2017 16:12

Outlook Gelen E-Posta ve Eklerinin Excele raporlaması
 
Merhaba,
E fatura mükellefi bir firmada çalışıyorum. E faturalar entegratör firma tarafından ek olarak mail yoluyla iletiliyor. Bu faturalar hakkında yazışmalar yapıyoruz. Şirket içinde fatura maillerine, Onaylanmıştır, Red Edilmiştir, gibi dönüşler yapılıyor.
İsteğimiz örneğin İdari İşler den hangi e fatura için (efatura ek dosyasında efaturanın numarası yazılı) ne yazılmış excel e aktarılmasını istiyoruz.

Gönderen Fatura No Mail İçeriği Şeklinde Excel e rapor yapabilir miyiz.

asri 08-11-2017 21:00

Yardımcı olacak arkadaşların yardım edebilmesi için örnek mailler ihtiyaç var.
Belki mail görüntüleri de işe yarayabilir.

nkeles 09-11-2017 10:11

Merhaba,
Örnek yazışma maili ektedir. Ek kısmında e fatura yı görebilirsiniz. BM ile başlayan faturanın numarasıdır.

http://www.imgim.com/9765incis1939641.jpg

BedriA 09-11-2017 13:55

Alıntı:

asri tarafından gönderildi (Mesaj 916697)
Yardımcı olacak arkadaşların yardım edebilmesi için örnek mailler ihtiyaç var.
Belki mail görüntüleri de işe yarayabilir.

Asri Hocam,

Bana da Outlook Gelen Kutusu'nu temizleyecek bir kod lazım.
Arşivinizde var mıdır acaba?

asri 09-11-2017 13:57

Alıntı:

BedriA tarafından gönderildi (Mesaj 916784)
Asri Hocam,

Bana da Outlook Gelen Kutusu'nu temizleyecek bir kod lazım.
Arşivinizde var mıdır acaba?

Temizlemek derken? Biraz daha detay verebilir misiniz?
Gelen kutusundakileri silmek için ctrl+a ve del yeterli olur.

Farklı bir durum ise nedir?

nkeles 09-11-2017 15:16

Alıntı:

nkeles tarafından gönderildi (Mesaj 916654)
Merhaba,
E fatura mükellefi bir firmada çalışıyorum. E faturalar entegratör firma tarafından ek olarak mail yoluyla iletiliyor. Bu faturalar hakkında yazışmalar yapıyoruz. Şirket içinde fatura maillerine, Onaylanmıştır, Red Edilmiştir, gibi dönüşler yapılıyor.
İsteğimiz örneğin İdari İşler den hangi e fatura için (efatura ek dosyasında efaturanın numarası yazılı) ne yazılmış excel e aktarılmasını istiyoruz.

Gönderen Fatura No Mail İçeriği Şeklinde Excel e rapor yapabilir miyiz.

Yok mudur çözüm..

BedriA 09-11-2017 19:44

Alıntı:

asri tarafından gönderildi (Mesaj 916785)
Temizlemek derken? Biraz daha detay verebilir misiniz?
Gelen kutusundakileri silmek için ctrl+a ve del yeterli olur.

Farklı bir durum ise nedir?


Makro ile; gelen mesajları silmek istiyorum, outlook ile değil, ara yüz olarak kullandığım excel dosyasından.

PLİNT 09-11-2017 21:56

Alıntı:

BedriA tarafından gönderildi (Mesaj 916830)
Makro ile; gelen mesajları silmek istiyorum, outlook ile değil, ara yüz olarak kullandığım excel dosyasından.

Merhaba
Aşağıdaki gibi deneyebilirsiniz;
Kod:

Private Sub CommandButton1_Click()

Dim a As Object, b As Object, c As Object
Dim msg
Set a = CreateObject("Outlook.Application")
Set b = a.GetNamespace("MAPI")
 Set c = a.GetNamespace("MAPI").Folders("bedrihoca@gmail.com").Folders(2)
  For i = c.items.Count To 1 Step -1
sor = MsgBox(c.items(i).SenderEmailAddress & " Adresinden gelen mail silinsinmi?", vbYesNo)
If sor = vbYes Then c.items(i).Delete
Next
   
End Sub


PLİNT 09-11-2017 22:01

Alıntı:

nkeles tarafından gönderildi (Mesaj 916795)
Yok mudur çözüm..

Merhaba
Fatura no her zaman mesaj ekindeki dosya adı içeriğinde oluyormu?

nkeles 10-11-2017 07:43

Alıntı:

PLİNT tarafından gönderildi (Mesaj 916844)
Merhaba
Fatura no her zaman mesaj ekindeki dosya adı içeriğinde oluyormu?

Tüm faturalar aynı formatta gelir ve tüm faturalarda paylaştığım şekilde Fatura no yer almaktadır.


Saat 08:51

Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.