Сіз ұйымдастыратын Outlook кездесулері үшін әдепкі орынды қалай автоматты түрде орнатуға болады

Мүмкін сіз өзіңіздің кездесулеріңізді әрдайым бір жерде, мысалы, сіздің компанияңыздың нақты конференц-залы ретінде жоспарлай аласыз. Олай болса, сіз Outlook бағдарламасында жасаған барлық жиналыстар үшін бөлмені әдепкі орын ретінде орнатқыңыз келуі мүмкін. Бұл мақала сізге оны алуға көмектеседі.

Outlook жиналысын жасаған кезде сізге орынды енгізу немесе таңдау қажет. Әйтпесе, бос орын туралы ескерту аласыз. Егер сіз жиналыстарды белгілі бір жерде, мысалы, бір бөлмеде өткізуге дағдыланған болсаңыз, онда сіз бөлмені әдепкі кездесу орны ретінде орнатқыңыз келуі мүмкін. Енді біз оны жүзеге асырудың әдісін сіздермен бөлісеміз.

Автоматты түрде сіз ұйымдастыратын кездесулер үшін орынды орнатыңыз

1. Бастау үшін, Outlook VBA редакторын «» сәйкес іске қосыңыз.Outlook бағдарламасында VBA кодын қалай іске қосуға болады:.
2. Содан кейін, VBA редакторында келесі кодты «ThisOutlookSession» жобасына көшіріңіз.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If Inspector.CurrentItem.Class = olAppointment Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_Open(Cancel As Boolean)
    'If it is a meeting
    If objAppointment.MeetingStatus = olMeeting Then
       'If it is a fresh new meeting
       If objAppointment.Subject = "" Then
          'Enter the specific location
          objAppointment.Location = "Conference Room A"
       End If
    Else
       objAppointment.Location = ""
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    'If you change an appointment into a meeting
    If Name = "MeetingStatus" Then
       If objAppointment.MeetingStatus = olMeeting Then
          'Enter the specific location
          objAppointment.Location = "Conference Room A"
       Else
          objAppointment.Location = ""
       End If
    End If
End Sub

3. Осыдан кейін, VBA редакторынан шығып, осы макросты белсендіру үшін Outlook бағдарламасын қайта іске қосыңыз.
4. Әзірге сіз ұйымдастыратын кездесулер үшін әдепкі орынды сәтті орнаттыңыз.

• Әр кезде «Үй» қойындысында «Жаңа жиналыс» түймесін басу арқылы жаңа жиналыс жасаған кезде, жиналыс әдепкі орын толтырылған кезде ашылады.
• Кездесуді «Қатысушыларды шақыру» батырмасын басу арқылы кездесулерге айналдырған кезде, әдепкі орналасу орны «Орын» өрісіне автоматты түрде толтырылады.

Outlook туралы бүлінген Outlook деректері

Outlook бағдарламасының барлық мәселелері арасында ең күрделісі - Outlook деректерінің бұзылуы. Әдетте, бұл мәселеге тап болған кезде алдымен нақты себептерін анықтау керек. Содан кейін әртүрлі себептерге байланысты шешімдерді таңдай аласыз. Мысалы, егер файл вирус жұқтырған болса, алдымен вирустарды жою керек. Келесіде сізге қажет Outlook бағдарламасын түзетіңіз сияқты файлды кіріктірілген жөндеу құралымен немесе мысалы, сенімді сыртқы құралмен қамтамасыз етеді DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. сыбайлас кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com