Email i UserForm da nasil görebilirim

[paranormal]

Selamlar Saygilar arkadaslar, Bir sorum varki dostlar basina. Söyle ki, Emailimin geldigini Userformda TextBox ta görmek istiyorum. Yani Office Outlook acilmadan TextBox ta kaç tane mail geldigini görmek istiyorum. Yardimci olursaniz çok sevinirim..
Saygilar sunarim...
Paranoirmal.

 

[hamitcan]

Aşağıdaki linkte benzer bir örnek mevcut, incelemenizi öneririm. Referanslardan Microsoft Outlook XX... referansını eklemeyi unutmayın.
http://www.ozgrid.com/forum/showthread.php?t=38321

 

[hamitcan]

Bu da bir başkası.
http://stackoverflow.com/questions/6203144/vba-count-emails-module
Bu da okunmamış olanların sayısı.
http://blogs.msdn.com/b/bethmassi/archive/2009/04/28/getting-a-count-of-unread-email-in-outlook.aspx

 

[paranormal]

Hamitcan kardesim, ilgin çok tesekkür ederim. Fakat ilk verdigin çözümü ben biliyorum o örnek devamli önüme geliyor. Kodu ekledigimde Excelde yeni bir sayfa açiyor ve simdiye kadara gelmis maillerimin tamami çikiyor. Ben istiyorum ki UserFormun üzerinde textbox da yeni gelen, açilmamis maillerim görünsün istiyorum.
Saygilar sunarim.

 

[hamitcan]

Galiba bu kod işinizi görecek.
Kaynak:http://support.microsoft.com/kb/171603/tr

Option Explicit

   Private Sub Main()
      Dim olMAPI As Outlook.Namespace
      Dim Folder As Outlook.MAPIFolder
      Const FOLDER_TO_OPEN = "aaaaa@aaa.com"   'mail adresinizi girin.

      Set olMAPI = GetObject("", "Outlook.Application") _
                              .GetNamespace("MAPI")
      Call PrintFolderNames(olMAPI.Folders(FOLDER_TO_OPEN), "->")
      Set olMAPI = Nothing
   End Sub

   Sub PrintFolderNames(tempfolder As Outlook.MAPIFolder, a$)
      Dim i As Integer
      Dim ii As Integer
      ii = [a65536].End(3).Row + 1
      If tempfolder.Folders.count Then
'         Debug.Print a$ & " " & tempfolder.Name & "  ";
'         Debug.Print tempfolder.UnReadItemCount
                

         Cells(ii, 1) = a$ & " " & tempfolder.Name
         Cells(ii, 2) = tempfolder.UnReadItemCount

         For i = 1 To tempfolder.Folders.count
           Call PrintFolderNames(tempfolder.Folders(i), a$ & "->")
         Next i

      Else
'         Debug.Print a$ & " " & tempfolder.Name & "  ";
'         Debug.Print tempfolder.UnReadItemCount

      ii = [a65536].End(3).Row + 1

         Cells(ii, 1) = a$ & " " & tempfolder.Name
         Cells(ii, 2) = tempfolder.UnReadItemCount
      End If
   End Sub

 

[paranormal]

Hamitcan kardesim asagidaki kodu ekledim isime yaroyacak mi bilemiyorum fakat, Exceli baslattigimda asagida kirmizi renkde olan satiri hata veriyor. Yani... Object not find gibi bi sey veriyor...


Private Sub Main()
Dim olMAPI As Outlook.Namespace
Dim Folder As Outlook.MAPIFolder
Const FOLDER_TO_OPEN = "aaaaa@aaa.com" 'mail adresinizi girin.

Set olMAPI = GetObject("", "Outlook.Application") _
.GetNamespace("MAPI")
Call PrintFolderNames(olMAPI.Folders(FOLDER_TO_OPEN), "->")
Set olMAPI = Nothing
End Sub

Sub PrintFolderNames(tempfolder As Outlook.MAPIFolder, a$)
Dim i As Integer
Dim ii As Integer
ii = [a65536].End(3).Row + 1
If tempfolder.Folders.count Then
' Debug.Print a$ & " " & tempfolder.Name & " ";
' Debug.Print tempfolder.UnReadItemCount


Cells(ii, 1) = a$ & " " & tempfolder.Name
Cells(ii, 2) = tempfolder.UnReadItemCount

For i = 1 To tempfolder.Folders.count
Call PrintFolderNames(tempfolder.Folders(i), a$ & "->")
Next i

Else
' Debug.Print a$ & " " & tempfolder.Name & " ";
' Debug.Print tempfolder.UnReadItemCount

ii = [a65536].End(3).Row + 1

Cells(ii, 1) = a$ & " " & tempfolder.Name
Cells(ii, 2) = tempfolder.UnReadItemCount
End If
End Sub

 

[hamitcan]

Bu satırı atlamışsınız anlaşılan.
Const FOLDER_TO_OPEN = "aaaaa@aaa.com" 'mail adresinizi girin.

 

[paranormal]

Bahsettiginiz satira kendi mail adresimi yazmistim zaten fakat yinede hata veriyor.

 

[hamitcan]

Ben mail adresimi girdiğimde doğru çalıştı. Bir de MailBox ismi ne görünüyorsa o şekilde girip deneyin.
Linkte de bu durumdan bahsetmiş.

 

[paranormal]

Sorunum E-Posta

Hocam, sizin dediginiz gibi aynen yaptim fakat, yinede olmuyor, ben size yaptigim ornegi goinderiyorum, Adres Defteri Ornegi, eger sizde calisirsa gonderdigim Adres Defterini kullanabilirsiniz. bir deneyin. simdiden tesekkur ederim. Fakat su Outlook Kontrol cok isime yariyacak, sayet calisirsa.
Outlook Kontrol dugmesini asagiya aldim bi deneyin.

 

[hamitcan]

Bende çalıştı. Çalıştıktan sonraki görüntüsü aşağıda.