Dış işlemler ile makro çalıştırmak

[Bülent Öztürk]

Kodları Application_NewMailEx olayına taşıyıp denediniz mi??

[Hüseyin Çoban]

Kodları Application_NewMailEx olayına taşıyıp denediniz mi??

Evet Bülent Bey denedim bir değişiklik olmadı.

[Bülent Öztürk]

Hımm... 

Kodların en başına

Kod: [Seç]

On Error Resume Next
satırı ekleyin, son çare olarak...

[Hüseyin Çoban]

Bütün çareler çaresiz Hocam, hâlâ aynı ilginç hata devam ediyor.

[Bülent Öztürk]

On error resume next
yazdığınız halde mi hata veriyor?

Bende şu an sorunsuz çalışıyor.

[Hüseyin Çoban]

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
On Error Resume Next
Dim OUT As NameSpace
Set OUT = Outlook.GetNamespace("MAPI")
Dim Gelenler As Outlook.MAPIFolder
Set Gelenler = OUT.GetDefaultFolder(olFolderInbox)
On Error GoTo bir
If Gelenler.Items(Gelenler.Items.Count).Subject = "Deneme" Then
    Set Excelce = Application.CreateObject("Excel.Application")
    Excelce.Visible = True
    Set Kitap = Excelce.Workbooks.Open("D:\Kitap1.xls")
    Excelce.Run "Kitap1.xls!Sayfa1.Makro1"
    'Excel'i kapatmak isterseniz
    Excelce.Quit
End If
Exit Sub
bir:
On Error Resume Next
If Gelenler.Items(1).Subject = "Deneme" Then
    Set Excelce = Application.CreateObject("Excel.Application")
    Excelce.Visible = True
    Set Kitap = Excelce.Workbooks.Open("D:\Kitap1.xls")
    Excelce.Run "Kitap1.xls!Sayfa1.Makro1"
    'Excel'i kapatmak isterseniz
    Excelce.Quit
End If
End Sub

Kendi dosya yollarıma ve örnek dosyaya göre kodların uyarladığım son şekli bu Hocam.
Ancak hâlâ ilk mailde hata veriyor.
Rica etsen Bülent Bey uygun bir anınızda TeamViewer veya vb. bir programda bağlanıp kontrol edebilir misiniz?

[Bülent Öztürk]

Şu şekilde deneyin bakalım bir netice alacak mısınız?

Kod: [Seç]

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim OUT As NameSpace
Set OUT = Outlook.GetNamespace("MAPI")
Dim Gelenler As Outlook.MAPIFolder
Set Gelenler = OUT.GetDefaultFolder(olFolderInbox)
On error resume next
MsgBox Gelenler.Items(Gelenler.Items.Count).Subject
End Sub

[Hüseyin Çoban]

Gelen kutusu boş olursa çalışmıyor.
Gelen kutusunda yeni veya eski bir mail olunca çalışıyor.
Bir önceki mailin başlığını msgbox ile veriyor.

[Bülent Öztürk]

Yeni mail geldiği halde, gelen kutusuna düşmeden önce kod çalışıyor demek ki... 
Ben 2003 versiyon Outlook'ta kullandığımda mail geldiği anda, en son gelen mailin başlığını mesaj olarak görüntülüyorum.
Versiyon farkından da böyle bir fark olmaması gerekir.
Yine de evde 2007'de deneyeyim bakalım...

[Bülent Öztürk]

Hüseyin Bey, şu kod ile nasıl bir netice alıyorsunuz?

Kod: [Seç]

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim OUT As NameSpace
Set OUT = Outlook.GetNamespace("MAPI")
Dim Gelenler As Outlook.MAPIFolder
Set Gelenler = OUT.GetDefaultFolder(olFolderInbox)
On error resume next
If Gelenler.Items(Gelenler.Items.Count).UnRead = True Then   MsgBox Gelenler.Items(Gelenler.Items.Count).Subject
End Sub


[Hüseyin Çoban]

Merhaba Bülent Bey,
İlk mail geldiğin ekteki hata mesajı geliyor (Resim 1). End butonunu tıklayıp hatayı kapattıktan sonra, ikinci mail geldiğinde Msgboxda ilk gelen mailin başlığını yazıyor. (Resim 2)

Hata mesajında koda gittiğimde
"If Gelenler.Items(Gelenler.Items.Count).UnRead = True Then" satırını sarıya boyuyor.

[Bülent Öztürk]

Size zahmet bir de şunu deneyin:

Kod: [Seç]

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim OUT As NameSpace
Set OUT = Outlook.GetNamespace("MAPI")
Dim Gelenler As Outlook.MAPIFolder
Set Gelenler = OUT.GetDefaultFolder(olFolderInbox)
Dim ilksayi As Integer
ilksayi = Gelenler.Items.Count

While Gelenler.Items.Count = ilksayi
Wend
    MsgBox Gelenler.Items(Gelenler.Items.Count).Subject
End sub


[Hüseyin Çoban]

Bülent Bey, asıl ben size zahmetler veriyorum.

Kodları uygulattım, yeni bir mail geldiğinde Outlook'u kilitliyor. İşlemi sonlandırmak zorunda kaldım.

[Hüseyin Çoban]

İşlemi tekrar denedim, bu sefer sonuna kadar bekledim.
Ekteki hata mesajını verdi.

[Bülent Öztürk]

Evet, sonsuz göngüye giriyor... 

Sanırım doğrudan Outlook içinden bunu halledemeyeceğiz.

Kodlar, yeni mail kutuya düşmeden çalıştığı için son gelen/gelmekte olan mail hakkında bilgi alamıyoruz.