http://www.vbex.ru/index.php?action=history&feed=atom&title=VBA%2FExcel%2FAccess%2FWord%2FOutlook%2FOutlook_Table
VBA/Excel/Access/Word/Outlook/Outlook Table - История изменений
2026-04-06T00:16:20Z
История изменений этой страницы в вики
MediaWiki 1.30.0
http://www.vbex.ru/index.php?title=VBA/Excel/Access/Word/Outlook/Outlook_Table&diff=1708&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_Table&diff=1709&oldid=prev
Admin: 1 версия
2010-05-26T12:47:54Z
<p>1 версия</p>
<p><b>Новая страница</b></p><div>==Outlook filter table==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub PlayWithFilteredTable()<br />
Dim myTable As Outlook.Table<br />
Dim colColumns As Outlook.Columns<br />
Dim oColumn As Outlook.Column<br />
Dim oFolder As Outlook.Folder<br />
Dim myMailItem As Outlook.MailItem<br />
Dim oRow As Outlook.Row<br />
Dim oProp As Outlook.UserProperty<br />
Dim aryValues() As Variant<br />
Dim strEntryID As String<br />
Dim strFilter As String<br />
Set oFolder = Application.Session.GetDefaultFolder(olFolderSentMail)<br />
strFilter = "[Importance] = 2"<br />
<br />
Set myTable = oFolder.GetTable(strFilter)<br />
Set colColumns = myTable.Columns<br />
colColumns.RemoveAll<br />
Set oColumn = colColumns.Add("EntryID")<br />
Set oColumn = colColumns.Add("Importance")<br />
<br />
Do While myTable.EndOfTable = False<br />
Set oRow = myTable.GetNextRow<br />
aryValues = oRow.GetValues<br />
If aryValues(1) = OlImportance.olImportanceHigh Then<br />
strEntryID = aryValues(0)<br />
Set myMailItem = Application.Session.GetItemFromID(strEntryID)<br />
Set oProp = myMailItem.UserProperties.Add("VeryImportant", olYesNo)<br />
oProp.Value = True<br />
myMailItem.Save<br />
End If<br />
Loop<br />
End Sub<br />
</source><br />
<br />
<br />
<br />
<br />
==Outlook table==<br />
<br />
<br />
<br />
<br />
<!-- start source code --><br />
<br />
<source lang="vb"><br />
<br />
Public Sub PlayWithTable()<br />
Dim myTable As Outlook.Table<br />
Dim colColumns As Outlook.Columns<br />
Dim oColumn As Outlook.Column<br />
Dim oFolder As Outlook.Folder<br />
Dim myMailItem As Outlook.MailItem<br />
Dim oRow As Outlook.Row<br />
Dim oProp As Outlook.UserProperty<br />
Dim aryValues() As Variant<br />
Dim strEntryID As String<br />
Set oFolder = Application.Session.GetDefaultFolder(olFolderSentMail)<br />
Set myTable = oFolder.GetTable "returns all items in folder<br />
Set colColumns = myTable.Columns<br />
colColumns.RemoveAll<br />
Set oColumn = colColumns.Add("EntryID")<br />
Set oColumn = colColumns.Add("Importance")<br />
<br />
Do While myTable.EndOfTable = False<br />
Set oRow = myTable.GetNextRow<br />
aryValues = oRow.GetValues<br />
If aryValues(1) = OlImportance.olImportanceHigh Then<br />
strEntryID = aryValues(0)<br />
Set myMailItem = Application.Session.GetItemFromID(strEntryID)<br />
Set oProp = myMailItem.UserProperties.Add("VeryImportant", olYesNo)<br />
oProp.Value = True<br />
myMailItem.Save<br />
End If<br />
Loop<br />
End Sub<br />
</source></div>
Admin