HOW TO:刪除 Outlook 連絡人
更新:2007 年 11 月
適用於 |
---|
本主題中的資訊僅適用於指定的 Visual Studio Tools for Office 專案和 Microsoft Office 版本。 專案類型
Microsoft Office 版本
如需詳細資訊,請參閱依應用程式和專案類型提供的功能。 |
這個範例會刪除連絡人。此外,此範例會假設 [連絡人] 資料夾中有名為 "Armando Pinto" 的連絡人。
範例
Private Sub ThisAddIn_Startup(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Me.Startup
DeleteContact("Pinto", "Armando")
End Sub
Private Sub DeleteContact(ByVal lastName As String, _
ByVal firstName As String)
Dim contact As Outlook.ContactItem = _
TryCast(Me.Application.GetNamespace("MAPI").GetDefaultFolder( _
Outlook.OlDefaultFolders.olFolderContacts).Items. _
Find( _
String.Format("[LastName]='{0}' AND [FirstName]='{1}'", _
lastName, firstName)), _
Outlook.ContactItem)
If (contact IsNot Nothing) Then
contact.Delete()
End If
End Sub
private void ThisAddIn_Startup(object sender, System.EventArgs e)
{
DeleteContact("Pinto", "Armando");
}
private void DeleteContact(string lastName, string firstName)
{
Outlook.ContactItem contact =
this.Application.GetNamespace("MAPI").
GetDefaultFolder(Outlook.OlDefaultFolders.olFolderContacts).
Items.
Find(
string.Format("[LastName]='{0}' AND [FirstName]='{1}'",
lastName, firstName))
as Outlook.ContactItem;
if (contact != null)
{
contact.Delete();
}
}