كيفية القيام بما يلي: إضافة إدخال إلى جهات اتصال Outlook

ينطبق على
تنطبق المعلومات الموجودة في هذا الموضوع فقط على أنواع المشاريع وإصدارات Microsoft Office التالية: لمزيد من المعلومات، راجع الميزات المتوفرة بواسطة تطبيقات Office و نوع المشروع. نوع المشروع مشروعات على مستوى التطبيق إصدار Microsoft Office Outlook 2007 Outlook 2010

يقوم هذا المثال بإنشاء جهة اتصال جديدة وإدخال بيانات إلى جهة الاتصال الجديدة.

مثال

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
        MsgBox("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

كيفية القيام بما يلي: البحث عن عنوان البريد إلكتروني في جهات الاتصال

المبادئ

العمل مع عناصر جهات الاتصال