http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FOutlook%2FOutlook_NameSpace
VBA/Excel/Access/Word/Outlook/Outlook NameSpace - История изменений
2026-04-06T00:16:00Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Outlook/Outlook_NameSpace&diff=1692&oldid=prev
в 16:33, 26 мая 2010
2010-05-26T16:33:00Z
<p></p>
<table class="diff diff-contentalign-left" data-mw="interface">
<tr style="vertical-align: top;" lang="ru">
<td colspan="1" style="background-color: white; color:black; text-align: center;">← Предыдущая</td>
<td colspan="1" style="background-color: white; color:black; text-align: center;">Версия 16:33, 26 мая 2010</td>
</tr><tr><td colspan="2" style="text-align: center;" lang="ru"><div class="mw-diff-empty">(нет различий)</div>
</td></tr></table>
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Outlook/Outlook_NameSpace&diff=1693&oldid=prev
Admin: 1 версия
2010-05-26T12:47:53Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Accessing Default Folders within the NameSpace Object==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
"olFolderCalendar, <br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olFolderCalendar)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Accessing Other Folders within the NameSpace Object==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
"A list of all the folders contained in the namespace:<br />
Sub List_All_NameSpace_Folders()<br />
Dim myNS As NameSpace<br />
Dim myFolder As MAPIFolder<br />
Dim mySubfolder As MAPIFolder<br />
strFolderList = "Your Outlook NameSpace contains these folders:" <br />
Set myNS = Application.GetNamespace("MAPI")<br />
With myNS<br />
For Each myFolder In myNS.Folders<br />
strFolderList = strFolderList & myFolder.Name & vbCr<br />
For Each mySubfolder In myFolder.Folders<br />
Debug.Print mySubfolder.Name <br />
Next mySubfolder<br />
Next myFolder<br />
End With<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Creating a New Folder==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub newFolder()<br />
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks) _<br />
.Folders.Add Name:="Personal Tasks", Type:=olFolderTasks<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Deleting a Folder==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub delete()<br />
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderTasks) _<br />
.Folders("Personal Tasks").Delete<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==olFolderContacts==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olFolderContacts)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==olFolderDeletedItems,==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olFolderDeletedItems)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==olFolderDrafts,==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olFolderDrafts)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==olFolderInbox,==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olFolderInbox)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==olFolderJournal,==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olFolderJournal)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==olFolderNotes,==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olFolderNotes)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==olFolderOutbox,==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olFolderOutbox)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==olFolderSentMail,==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olFolderSentMail)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==olFolderTasks,==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olFolderTasks)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==olPublicFoldersAllPublicFolders.==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub folder()<br />
Dim myCal As MAPIFolder<br />
Set myCal = Application.GetNamespace("MAPI") _<br />
.GetDefaultFolder(FolderType:=olPublicFoldersAllPublicFolders)<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Returns the NameSpace and uses the CurrentUser property to display the name of the current user in a message box:==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub current()<br />
MsgBox Application.GetNamespace("MAPI").CurrentUser<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Understanding General Methods for Working with Outlook Objects==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub display()<br />
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Display<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Using the NewMail Event and NewMailEx Event==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Sub Application_NewMail()<br />
If MsgBox("You have new mail. Do you want to see your Inbox?", _<br />
vbYesNo + vbInformation, "New Mail Alert") = vbYes Then<br />
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Display<br />
End If<br />
End Sub<br />
</source></div>
Admin