أنت غير متصل حاليًا، وفي انتظار الإنترنت الخاص بك ليقوم بإعادة الاتصال

OL2002: كيفية تغيير الملف باسم حقل كافة جهات الاتصال

هام: تمت ترجمة هذا المقال باستخدام برنامج ترجمة آلية لشركة مايكروسوفت بدلاً من الاستعانة بمترجم بشري. تقدم شركة مايكروسوفت كلاً من المقالات المترجمة بواسطة المترجمين البشر والمقالات المترجمة آليًا وبالتالي ستتمكن من الوصول إلى كل المقالات الموجودة في قاعدة المعرفة الخاصة بنا وباللغة الخاصة بك. بالرغم من ذلك، فإن المقالة المترجمة آليًا لا تكون دقيقة دائمًا وقد تحتوي على أخطاء إملائية أو لغوية أو نحوية، مثل تلك الأخطاء الصادرة عن متحدث أجنبي عندما يتحدث بلغتك. لا تتحمل شركة مايكروسوفت مسئولية عدم الدقة أو الأخطاء أو الضرر الناتج عن أية أخطاء في ترجمة المحتوى أو استخدامه من قبل عملائنا. تعمل شركة مايكروسوفت باستمرار على ترقية برنامج الترجمة الآلية

اضغط هنا لرابط المقالة باللغة الانجليزية291144
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
توضح هذه المقالة كيفية استخدام نموذج Outlook و Visual Basic Scripting Edition (VBScript) مخصصة لتغيير حقل "تصنيف" للحصول على عدد كبير من جهات الاتصال الموجودة بطريقة برمجية.
معلومات أخرى
هام: إذا قمت بتغيير تنسيق حقل تصنيف باستخدام نموذج جهة اتصال Outlook قياسي يضمن Outlook لا يؤثر التنسيق هذا الحقل على مناطق أخرى حيث يتم عرض هذا النوع من المعلومات (مثل أعلى جهة الاتصال عند عرضها في طريقة العرض "بطاقات العناوين"). على الرغم من ذلك، هذا المثال ببساطة بتغيير الحقل تصنيف نفسه كما ولذلك لا بإجراء نفس دالة كنموذج جهات اتصال Outlook. توصي Microsoft بعمل نسخة مجلد جهات الاتصال الخاصة بك ومن ثم استخدام نموذج التعليمة البرمجية أدناه على المجلد الذي قمت بنسخها إلى التأكد من أن فوائد استخدام هذه العينة تفوق أي shortcomings المحتملة من هذا الأسلوب.

ملاحظة: عندما تقوم بتغيير الحقل تصنيف الترتيب الذي تظهر به جهات الاتصال في دفتر عناوين Outlook لن تتأثر.

تقدم Microsoft الأمثلة البرمجية فقط دون أي ضمان التعبير عن أو ضمنية ، ، لا الحصر إلى ضمانات القابلية للتسويق و/أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي تم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يمكن أن يساعد إخصائيي الدعم Microsoft شرح وظيفة إجراء محدد ولكن لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات لتلبية احتياجاتك المحددة.
إذا كان يجب أن يكون لديك خبرة محدودة في مجال البرمجة، قد تحتاج إلى الاتصال بشريك Microsoft أو خدمات النصائح. لمزيد من المعلومات، قم بزيارة مواقع ويب Microsoft هذه:

Microsoft المعتمدين Partners – https://partner.microsoft.com/global/30000104

خدمات Microsoft المستند الذي يقدم النصائح - http://support.microsoft.com/gp/advisoryservice

للحصول على مزيد من المعلومات حول خيارات الدعم المتوفرة وحول كيفية الاتصال بشركة Microsoft قم بزيارة موقع Microsoft التالي على الويب: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMSعندما تقوم بإنشاء نموذج مخصص جديد Outlook يمكنك تغيير حقل تصنيف كافة جهات الاتصال إلى أحد التنسيقات التالية:
  • الأول الأخير
  • الأخير الأول
  • الشركة
  • الأخير الأول (الشركة)
  • الشركة (الأخير ، الأول)

كيفية تصميم نموذج مخصص

  1. من القائمة ملف، أشر إلى جديد ثم انقر فوق رسالة بريد لفتح رسالة بريد إلكتروني جديدة.
  2. من القائمة أدوات رسالة بريد إلكتروني جديدة أشر إلى نماذج ، ثم انقر فوق تصميم هذا النموذج.
  3. إدراج أزرار الأوامر خمس على نموذج جديد. للقيام بذلك:
    1. انقر فوق علامة التبويب (P.2) للانتقال إلى صفحة فارغة في النموذج.
    2. في القائمة "نموذج" ، انقر فوق مربع أدوات التحكم انقر فوق CommandButton ثم قم بسحب الزر إلى صفحة نموذج فارغ.
    3. انقر بزر الماوس الأيمن فوق الزر الجديد انقر فوق خصائص ثم ثم اكتب cmdLastFirst في المربع الاسم.
    4. في المربع تسمية توضيحية اكتب الأخير أولاً ثم انقر فوق موافق.
    5. في مربع الحوار Toolbox انقر فوق CommandButton ثم قم بسحب زر ثاني إلى صفحة نموذج فارغ.
    6. انقر بزر الماوس الأيمن فوق الزر الجديد انقر فوق خصائص ثم ثم اكتب cmdFirstLast في المربع الاسم.
    7. في المربع تسمية توضيحية اكتب الأول الأخير ثم انقر فوق موافق.
    8. في مربع الحوار Toolbox انقر فوق CommandButton ثم سحب ثالثة الزر إلى صفحة نموذج فارغ.
    9. انقر بزر الماوس الأيمن فوق الزر الجديد انقر فوق خصائص ثم ثم اكتب cmdCompany في المربع الاسم.
    10. في المربع تسمية توضيحية اكتب الشركة ومن ثم انقر فوق موافق.
    11. في مربع الحوار Toolbox انقر فوق CommandButton ثم سحب الرابع الزر إلى صفحة نموذج فارغ.
    12. انقر بزر الماوس الأيمن فوق الزر الجديد انقر فوق خصائص ثم ثم اكتب cmdLastFirstCompany في المربع الاسم.
    13. في المربع تسمية توضيحية اكتب الأخير الأول (الشركة) ومن ثم انقر فوق موافق.
    14. في مربع الحوار Toolbox انقر فوق CommandButton ثم سحب الخامس الزر إلى صفحة نموذج فارغ.
    15. انقر بزر الماوس الأيمن فوق الزر الجديد انقر فوق خصائص ثم ثم اكتب cmdCompanyLastFirst في المربع الاسم.
    16. في المربع تسمية توضيحية اكتب الشركة (الأخير ، الأول) ومن ثم انقر فوق موافق.
  4. اكتب التعليمات البرمجية Visual Basic Scripting Edition (VBScript) التالية. للقيام بذلك:
    1. في القائمة "نموذج" ، انقر فوق عرض التعليمات البرمجية لفتح محرر البرامج النصية.
    2. اكتب في "محرر أو نسخ التعليمات البرمجية التالية:
      Option ExplicitDim strSortBySub cmdLastFirst_Click()   strSortBy = "LastFirst"   UpdateContactsEnd SubSub cmdFirstLast_Click()   strSortBy = "FirstLast"   UpdateContactsEnd SubSub cmdCompany_Click()   strSortBy = "Company"   UpdateContactsEnd SubSub cmdLastFirstCompany_Click()   strSortBy = "Last, First (Company)"   UpdateContactsEnd SubSub cmdCompanyLastFirst_Click()   strSortBy = "Company (Last, First)"   UpdateContactsEnd SubSub UpdateContacts()   Dim CurFolder   Dim MyItems   Dim MyItem   Dim NumItems, i   ' Use whichever folder is currently selected   Set CurFolder = Application.ActiveExplorer.CurrentFolder   ' Make sure it's a contact folder   If CurFolder.DefaultItemType = 2 Then      MsgBox "This process may take some time. You will be " & _      "notified when complete.", , "Contact Tools Message"      Set MyItems = CurFolder.Items      NumItems = MyItems.Count      For i = 1 to NumItems         Set MyItem = MyItems.Item(i)         ' Make sure it's not a distribution list in the folder         ' (really only applies to OL98 and OL2000)         If TypeName(MyItem) = "ContactItem" Then            Select Case strSortBy               Case "LastFirst"                  If MyItem.LastNameandFirstName <> "" Then                     MyItem.FileAs = MyItem.LastNameandFirstName                  Else                     MyItem.FileAs = MyItem.CompanyName                  End IF               Case "FirstLast"                  If MyItem.Subject <> "" Then                     MyItem.FileAs = MyItem.Subject                  Else                     MyItem.FileAs = MyItem.CompanyName                  End IF               Case "Company"                  If MyItem.CompanyName <> "" Then                     MyItem.FileAs = MyItem.CompanyName                  Else                     MyItem.FileAs = MyItem.LastNameandFirstName                  End IF               Case "Last, First (Company)"                  MyItem.FileAs = MyItem.LastNameAndFirstName                  If MyItem.CompanyName <> "" Then                     If MyItem.FileAs <> "" Then                        MyItem.FileAs = MyItem.FileAs & " (" & _                                        MyItem.CompanyName & ")"                     Else                        MyItem.FileAs = MyItem.FileAs & _                                  MyItem.CompanyName                     End If                  End If               Case "Company (Last, First)"                  MyItem.FileAs = MyItem.CompanyName                  If MyItem.LastNameandFirstName <> "" Then                     If MyItem.FileAs <> "" Then                        MyItem.FileAs = MyItem.FileAs & " (" & _                               MyItem.LastNameAndFirstName & ")"                     Else                        MyItem.FileAs = MyItem.FileAs & _                               MyItem.LastNameAndFirstName                     End If                  End If            End Select            MyItem.Save         End If           ' check TypeName      Next      MsgBox "Finished updating contacts."   Else      MsgBox "The current folder must be a contacts folder."   End If                 ' check contacts folder   Set MyItem = Nothing   Set MyItems = Nothing   Set CurFolder = NothingEnd Sub						
    3. في القائمة ملف في "محرر البرامج" ، انقر فوق إغلاق للعودة إلى النموذج.
    4. انقر فوق صفحة الرسائل النموذج.
    5. في القائمة "نموذج" ، انقر فوق عرض هذه الصفحة. هذا بإخفاء صفحة النموذج بحيث لا تظهر عند استخدام النموذج.
  5. نشر النموذج. للقيام بذلك:
    1. من القائمة أدوات، أشر إلى نماذج ، ثم انقر فوق نشر النموذج باسم.
    2. تحقق من أن الزر بحث تشاهد مكتبة النماذج الشخصية.
    3. في المربع اسم العرض ، اكتب اسماً discriptive النموذج الجديد (مثل "تغيير تصنيف" الحقول) ثم انقر فوق نشر.
    4. عند مطالبتك بحفظ تعريف النموذج مع العنصر انقر فوق "لا".
    5. إغلاق الرسالة دون حفظها.

كيفية استخدام نموذج مخصص

لاستخدام النموذج الجديد:
  1. حدد موقع المجلد جهات الاتصال التي تريد re-sequence.
  2. من القائمة ملف، أشر إلى جديد ثم انقر فوق اختيار نموذج.
  3. تغيير مربع البحث فيمكتبة النماذج الشخصية انقر فوق نموذج جديد ثم ثم انقر فوق موافق.
  4. انقر على الزر المناسب لتحديث حقل تصنيف.
مراجع
للحصول على معلومات إضافية حول الموارد المتوفرة answersto شائعة الأسئلة المتداولة حول حلول Microsoft Outlook انقر فوق رقم المقالة أدناه لعرضها في "قاعدة المعارف لـ Microsoft:
287530OL2002: الأسئلة حول نماذج مخصصة وحلولها Outlook
OutSol OutSol2002 OfficeKBHowTo

تحذير: تمت ترجمة هذه المقالة تلقائيًا

خصائص

رقم الموضوع: 291144 - آخر مراجعة: 12/06/2015 01:04:11 - المراجعة: 2.4

Microsoft Outlook 2002 Standard Edition

  • kbnosurvey kbarchive kbmt kbhowto KB291144 KbMtar
تعليقات