- Katılım
- 25 May 2018
- Mesajlar
- 1,610
- En iyi yanıt
- 14
- Puanları
- 113
- Konum
- İstanbul
- Web sitesi
- excelarsivi.com
- Ad Soyad
- Murat OSMA
- Office Vers.
- Microsoft 365 TR+EN
GetDefaultFolder
Geçerli profil için istenen türün varsayılan klasörünü temsil eden bir MAPI referansına bağlı MAPIFolder nesnesini döndürür.
Örneğin, şu anda oturum açmış olan kullanıcının varsayılan Takvim klasörüne, ya da Gelen Kutusu, Gönderilmiş Öğeler gibi klasörleri belirtip erişmenizi sağlar.
Bu klasörlerin de sabit bir listesi vardır.
Klasörlere ulaşmak istendiğinde bu kodlar kullanılabilir..
Geçerli profil için istenen türün varsayılan klasörünü temsil eden bir MAPI referansına bağlı MAPIFolder nesnesini döndürür.
Örneğin, şu anda oturum açmış olan kullanıcının varsayılan Takvim klasörüne, ya da Gelen Kutusu, Gönderilmiş Öğeler gibi klasörleri belirtip erişmenizi sağlar.
Bu klasörlerin de sabit bir listesi vardır.
OlDefaultFolders | Sabit Sayı |
---|---|
olFolderCalendar | 9 |
olFolderConflicts | 19 |
olFolderContacts | 10 |
olFolderDeletedItems | 3 |
olFolderDrafts | 16 |
olFolderInbox | 6 |
olFolderJournal | 11 |
olFolderJunk | 23 |
olFolderLocalFailures | 21 |
olFolderManagedEmail | 29 |
olFolderNotes | 12 |
olFolderOutbox | 4 |
olFolderRssFeeds | 25 |
olFolderSentMail | 5 |
olFolderServerFailures | 22 |
olFolderSuggestedContacts | 30 |
olFolderSyncIssues | 20 |
olFolderTasks | 13 |
olFolderToDo | 28 |
olPublicFoldersAllPublicFolders | 18 |
Klasörlere ulaşmak istendiğinde bu kodlar kullanılabilir..
PHP:
Sub ExcelTurkey()
Dim Outlook As Object, Ns As Object, GelenKutusu As Object
Set Outlook = CreateObject("Outlook.Application")
Set Ns = Outlook.GetNamespace("MAPI")
Set GelenKutusu = ns.GetDefaultFolder(olFolderInbox)'ya da 6'
End Sub