Практическое руководство. Добавить запись в контакты Outlook
Обновлен: Ноябрь 2007
Применение |
---|
Сведения, приведенные в данном разделе, относятся только к указанным проектам Visual Studio Tools for Office и версиям приложений Microsoft Office. Тип проекта
Версия Microsoft Office
Дополнительные сведения см. в разделе Доступность функций по типам приложений и проектов. |
Пример помогает создать новый контакт и ввести данные.
Пример
Private Sub AddContact()
Dim newContact As Outlook.ContactItem = Me.Application.CreateItem(Outlook. _
OlItemType.olContactItem)
Try
With newContact
.FirstName = "Jo"
.LastName = "Berry"
.Email1Address = "somebody@example.com"
.CustomerID = "123456"
.PrimaryTelephoneNumber = "(425)555-0111"
.MailingAddressStreet = "123 Main St."
.MailingAddressCity = "Redmond"
.MailingAddressState = "WA"
.Save()
.Display(True)
End With
Catch
MessageBox.Show("The new contact was not saved.")
End Try
End Sub
private void AddContact()
{
Outlook.ContactItem newContact = (Outlook.ContactItem)
this.Application.CreateItem(Outlook.OlItemType.olContactItem);
try
{
newContact.FirstName = "Jo";
newContact.LastName = "Berry";
newContact.Email1Address = "somebody@example.com";
newContact.CustomerID = "123456";
newContact.PrimaryTelephoneNumber = "(425)555-0111";
newContact.MailingAddressStreet = "123 Main St.";
newContact.MailingAddressCity = "Redmond";
newContact.MailingAddressState = "WA";
newContact.Save();
newContact.Display(true);
}
catch
{
MessageBox.Show("The new contact was not saved.");
}
}
См. также
Задачи
Практическое руководство. Создание встреч
Практическое руководство. Доступ к контактам Outlook
Практическое руководство. Поиск адреса электронной почты в контактах