1 Konuyu açan cetinyasar

  • cetinyasar
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 09.10.2006
  • İleti: 116

Konu: Microsoft Outlook klasörleri

Selamlar,

Visual Fox Pro
oOutlook = CreateObject("Outlook.Application")

oNameSpace = oOutlook.GetNameSpace("MAPI")

oKlasorler = oNameSpace.Folders.Item[1].Folders 

 

FOR EACH lFolder IN oKlasorler

  FOR EACH oMail IN lFolder.Items

     ?oMail.SenderEmailAddress

  ENDFOR 

ENDFOR

ile outlook içindeki tüm klasörleri ve alt klasörleri tarıyorum ancak ben bunlardan sadece içinde e-posta olan klasörleri taramak istiyorum aralarında Kişiler, Takvim gibi klasörler olduğu için yukarıdaki oMail.SenderEMailAddress satırında hata alıyorum, ben o anda oMail objesinin bir e-posta veya kişi objesi olduğunu nasıl anlarım ?
Veya başka bir fikri olan varsa yardımcı olursanız sevinirim.

Teşekkürler

2 Cevaplayan cetinbasoz Son düzenleyen, cetinbasoz (23.11.2006 13:06:43)

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: Microsoft Outlook klasörleri

Visual Fox Pro
#DEFINE olFolderDeletedItems    3    

#DEFINE olFolderOutbox    4    

#DEFINE olFolderSentMail    5    

#DEFINE olFolderInbox    6    

#DEFINE olFolderCalendar    9    

#DEFINE olFolderContacts    10    

#DEFINE olFolderJournal    11    

#DEFINE olFolderNotes    12    

#DEFINE olFolderTasks    13    

#DEFINE olFolderDrafts    16    

#DEFINE olPublicFoldersAllPublicFolders    18    

 

oOutlook = CreateObject("Outlook.Application")

oNameSpace = oOutlook.GetNameSpace("MAPI")

oKlasor = oNameSpace.GetDefaultFolder( olFolderInbox )

*...

cetinbasoz's Website

3 Cevaplayan cetinyasar

  • cetinyasar
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 09.10.2006
  • İleti: 116

Re: Microsoft Outlook klasörleri

Adaş teşekkürler
Ancak bu durum sadece 1 tane Gelen Kutusu olduğu durumlarda geçerli oluyor
ben birden fazla e-posta klasörü olan outlook ile uğraşıyorum. Bu klasörlerin kimisi Gelen Kutusu içinde kimisi Kişisel Klasörler altında açılmış. Bu yüzden Kişisel klasör altındaki tüm klasörleri taramak zorunda kalıyorum.

4 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: Microsoft Outlook klasörleri

Visual Fox Pro
oOutlook = CreateObject("Outlook.Application")

oNameSpace = oOutlook.GetNameSpace("MAPI")

oKlasorler = oNameSpace.Folders.Item[1].Folders 

 

FOR EACH lFolder IN oKlasorler

  IF lFolder.DefaultItemType = 0 && mail

      FOR EACH oMail IN lFolder.Items

         ?oMail.SenderEmailAddress

      ENDFOR 

  endif

ENDFOR

Outlook'un guvenlik zimbirtisina takilacak ama olur sonucta.

cetinbasoz's Website

5 Cevaplayan cetinyasar

  • cetinyasar
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 09.10.2006
  • İleti: 116

Re: Microsoft Outlook klasörleri

Teşekkürler,

Tam olarak olmadı ama biraz değiştirip işime yarar hale getiridim.
e-posta klasörleri içinde duran okundu mesajları biraz işimi bozdu onlardada SenderEmailAddress olmadığı için hata veriyor ancak bir try catch ile şimdilik sorunu çözdüm.

Tekrar teşekkürler.