كيفية أتمتة Outlook باستخدام Visual Basic

انتهاء دعم Office 2003

لقد أنهت شركة Microsoft دعم Office 2003 في 8 أبريل، 2014. وقد أثر هذا التغيير على تحديثات البرامج لديك وخيارات الأمان الخاصة بك. تعرف على ما يعنيه ذلك فيما يتعلق بك وكيفية الحفاظ على حمايتك.

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

اضغط هنا لرابط المقالة باللغة الانجليزية220595
تمت أرشفة هذه المقالة. وتظهر "كما هي" ولن يتم تحديثها بعد الآن.
الموجز
توضح هذه المقالة كيفية التحكم في Microsoft Outlook باستخدام التنفيذ من Visual Basic برمجياً. يوضح المثال جهات اتصال إنشاء أو إنشاء المواعيد وإرسال الرسائل باستخدام طراز الكائن Microsoft Outlook.
معلومات أخرى
اتبع الخطوات أدناه إنشاء وتشغيل المثال. لتشغيل النموذج تحتاج مرجع المنضم المبكر إلى مكتبة نوع Microsoft Outlook. يسرد الجدول التالي أسماء الملفات من مكتبات الأنواع إصدارات مختلفة من Microsoft Outlook:
إصدار Outlookكيفية ظهور مكتبة النوع في قائمة مراجعاسم الملف
Outlook 97"كائن Microsoft Outlook 8.0 مكتبة"msoutl8.olb
msoutl8.olb"مكتبة كائنات 98 Outlook Microsoft"msoutl85.olb
Outlook 2000"كائن Microsoft Outlook 9.0 مكتبة"msoutl9.olb
Outlook 2002"كائن Microsoft Outlook 10.0 مكتبة"msoutl.olb
Office Outlook 2003"كائن Microsoft Outlook 11.0 مكتبة"msoutl.olb

إنشاء نموذج التنفيذ التلقائي

  1. بدء تشغيل Visual Basic وإنشاء EXE قياسي جديد المشروع.
  2. من القائمة ' مشروع ' ، اختر مراجع وحدد Microsoft Outlook.
  3. إضافة زر إلى النموذج الخاص بك.
  4. انقر نقراً مزدوجاً فوق الزر ثم قم بإضافة التعليمة البرمجية التالية:
     ' Start Outlook. ' If it is already running, you'll use the same instance...   Dim olApp As Outlook.Application   Set olApp = CreateObject("Outlook.Application")     ' Logon. Doesn't hurt if you are already running and logged on...   Dim olNs As Outlook.NameSpace   Set olNs = olApp.GetNamespace("MAPI")   olNs.Logon ' Create and Open a new contact.   Dim olItem As Outlook.ContactItem   Set olItem = olApp.CreateItem(olContactItem) ' Setup Contact information...   With olItem      .FullName = "James Smith"      .Birthday = "9/15/1975"      .CompanyName = "Microsoft"      .HomeTelephoneNumber = "704-555-8888"      .Email1Address = "someone@microsoft.com"      .JobTitle = "Developer"      .HomeAddress = "111 Main St." & vbCr & "Charlotte, NC 28226"   End With    ' Save Contact...   olItem.Save     ' Create a new appointment.   Dim olAppt As Outlook.AppointmentItem   Set olAppt = olApp.CreateItem(olAppointmentItem)     ' Set start time for 2-minutes from now...   olAppt.Start = Now() + (2# / 24# / 60#)     ' Setup other appointment information...   With olAppt      .Duration = 60      .Subject = "Meeting to discuss plans..."      .Body = "Meeting with " & olItem.FullName & " to discuss plans."      .Location = "Home Office"      .ReminderMinutesBeforeStart = 1      .ReminderSet = True   End With     ' Save Appointment...   olAppt.Save     ' Send a message to your new contact.   Dim olMail As Outlook.MailItem   Set olMail = olApp.CreateItem(olMailItem) ' Fill out & send message...   olMail.To = olItem.Email1Address   olMail.Subject = "About our meeting..."   olMail.Body = _        "Dear " & olItem.FirstName & ", " & vbCr & vbCr & vbTab & _        "I'll see you in 2 minutes for our meeting!" & vbCr & vbCr & _        "Btw: I've added you to my contact list."   olMail.Send     ' Clean up...   MsgBox "All done...", vbMsgBoxSetForeground   olNS.Logoff   Set olNs = Nothing   Set olMail = Nothing   Set olAppt = Nothing   Set olItem = Nothing   Set olApp = Nothing						
  5. قم بتشغيل المشروع ثم انقر فوق الزر لتشغيل التعليمات البرمجية.
بمجرد تشغيل التعليمات البرمجية, يجب أن يكون لديك جهة اتصال جديدة باسم "James أشرف," موعد جدولة في دقيقتين مع تذكير تظهر في دقيقة واحدة ثم إرسال رسالة إلى someone@microsoft.com. أيضاً، بسبب إضافة تاريخ ميلاد لجهة الاتصال الخاصة بك (9/15) تمت إضافة حدث متكرر عن تقويم Outlook لتذكيرك اليوم.

جديدة إلى Outlook 2002 يتم مربعات الحوار اثنين: تحذير برنامج محاولة الوصول إلى عناوين البريد الإلكتروني التي قمت بتخزينها في Outlook ثم يسألك عما إذا كنت ترغب في السماح رسالة هذا ثم آخر إلى التأثير الذي يحاول أحد برامج إرسال بريد إلكتروني واحد. هذه الميزة إلى حمايتك من unknowingly المستخدمة من قبل فيروس بإرسال بريد إلكتروني من النظام.

لمزيد من المعلومات، انقر فوق رقم المقالة التالي لعرضها في "قاعدة المعارف لـ Microsoft:
290500وصف ميزات الأمان المتعلقة المطور البريد الإلكتروني في Outlook 2002
مراجع
لمزيد من المعلومات حول موارد برمجة Outlook انقر فوق أرقام المقالات التالية لعرضها في "قاعدة المعارف لـ Microsoft:
166368موارد للنماذج المخصصة و البرمجة في Outlook 97
180826موارد للنماذج المخصصة و البرمجة في Outlook 98
271225موارد للنماذج المخصصة و البرمجة في Outlook 2000
287531قائمة الموارد النماذج المخصصة برمجة مع Outlook 2002
313802كيفية استرداد جهات الاتصال باستخدام طراز كائن Outlook في Visual Basic .NET
313788كيفية إنشاء موعد باستخدام طراز كائن Outlook في Microsoft Visual Basic .NET

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

خصائص

رقم الموضوع: 220595 - آخر مراجعة: 12/05/2015 13:08:53 - المراجعة: 9.4

Microsoft Visual Basic Enterprise Edition for Windows 6.0, Microsoft Visual Basic 5.0 Learning Edition, Microsoft Visual Basic 6.0 Learning Edition, Microsoft Visual Basic 5.0 Professional Edition, Microsoft Visual Basic 6.0 Professional Edition, Microsoft Visual Basic 5.0 Enterprise Edition, Microsoft Office Outlook 2003, Microsoft Outlook 2002 Standard Edition, Microsoft Outlook 2000, Microsoft Outlook 97 Standard Edition, Microsoft Outlook 98 Standard Edition

  • kbnosurvey kbarchive kbmt kbautomation kbhowto kboutlookobj KB220595 KbMtar
تعليقات