Yalnız Mesajı Göster
Eski 09-11-2017, 21:56  
PLİNT
 
Giriş: 31/12/2014
Şehir: Gürün
Mesaj: 1,251
Excel Vers. ve Dili:
Excel 2010
Varsayılan

Alıntı:
BedriA tarafından gönderildi Mesajı Görüntüle
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: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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 Çevrimdışı   Alıntı Yaparak Cevapla