Erstellen einer Verteilerliste
In diesem Beispiel wird veranschaulicht, wie eine Verteilerliste erstellt und dem Benutzer angezeigt wird.
Beispiel
Hinweis
Das folgende Codebeispiel ist ein Auszug aus Programming Applications für Microsoft Office Outlook 2007.
Im folgenden Codebeispiel wird von CreateDistributionList eine Verteilerliste erstellt, indem durch Aufrufen der CreateItem(OlItemType)-Methode ein DistListItem-Objekt erstellt wird. Anschließend wird ein Table-Objekt erstellt und die GetTable(Object, Object)-Methode aufgerufen, um alle Kontakte im Standardordner für Kontakte zu finden, deren Wert der Subject-Eigenschaft "Top Customer" lautet und deren Wert der Email1Address-Eigenschaft nicht leer ist. Nachdem alle Kontakte identifiziert wurden, wird der Email1Address-Name wird als eine Spalte zur Tabelle hinzugefügt. Dann erstellt CreateDistributionList ein Recipient-Objekt mithilfe der CreateRecipient(String)-Methode des NameSpace-Objekts. Schließlich zeigt CreateDistributionList dem Benutzer die Verteilerliste "Top Customers" an.
Hinweis
Sie müssen ein aufgelöstes Recipient-Objekt als Parameter für die AddMember(Recipient)-Methode des DistListItem-Objekts übergeben. Zum Auflösen eines Empfänger-Objekts verwenden Sie die Resolve()-Methode.
Wenn Sie Visual Studio verwenden, um dieses Codebeispiel zu testen, müssen Sie der Microsoft Outlook 15.0-Objektbibliothekkomponente zuerst einen Verweis hinzufügen und die Outlook-Variable angeben, wenn Sie den Microsoft.Office.Interop.Outlook-Namespace importieren. Die using-Anweisung darf im Codebeispiel nicht direkt vor den Funktionen stehen, sondern muss vor der öffentlichen Class-Deklaration hinzugefügt werden. Die folgende Codezeile zeigt, wie Sie den Import und die Zuweisung in C# vornehmen.
using Outlook = Microsoft.Office.Interop.Outlook;
private void CreateDistributionList()
{
Outlook.DistListItem distList = Application.CreateItem(
Outlook.OlItemType.olDistributionListItem)
as Outlook.DistListItem;
distList.Subject = "Top Customers";
//Find top customer category in Contacts folder
string filter = "[Categories] = 'Top Customer'"
+ " AND [Email1Address] <> ''";
Outlook.Table table =
Application.Session.GetDefaultFolder
(Outlook.OlDefaultFolders.olFolderContacts).
GetTable(filter, Outlook.OlTableContents.olUserItems);
table.Columns.Add("Email1Address");
while (!table.EndOfTable)
{
Outlook.Row nextRow = table.GetNextRow();
Outlook.Recipient recip =
Application.Session.CreateRecipient(
nextRow["Email1Address"].ToString());
//Resolve the Recipient before calling AddMember
recip.Resolve();
distList.AddMember(recip);
}
distList.Display(false);
}