Outlook дээр имэйлийг дарахад хэрхэн яаж шинэ уулзалт хийх вэ?

Зарим хүмүүс имэйлийг тэмдэглэхдээ Outlook-ийн шинэ уулзалтыг автоматаар эсвэл хурдан үүсгэхийг хүсдэг. Энэ нийтлэл нь Outlook VBA-тай үүнийг хэрэгжүүлэх арга замыг танилцуулах болно.

Заримдаа, надад уулзалт эсвэл уулзалтын талаар имэйл ирдэг. Гэхдээ энэ нь Outlook дахь нийтлэг уулзалтын зүйлийн оронд зүгээр л имэйл юм. Энэ тохиолдолд би Outlook календартаа шинэ цагийг гараар үүсгэх ёстой. Энэ нь жаахан асуудалтай байна. Тиймээс Outlook нь автоматаар шинэ уулзалт үүсгэх боломжтой байгаасай гэж хүсч байна. Гэсэн хэдий ч Outlook нь имэйлийг тэмдэглэх үед автоматаар шинэ цагийг бий болгоход дэмжлэг үзүүлэхгүй. Тиймээс үүнийг хэрэгжүүлэхийн тулд Outlook VBA-г ашиглахыг сонгов. VBA-ийн нарийвчилсан код, алхамыг энд оруулав.

Имэйлийг дарцаглах үед автоматаар шинэ уулзалт хийх

1. Эхний ээлжинд "Developer" таб руу шилжиж "Code" бүлгийн "Visual Basic" товчийг дарна уу.
2. Дараа нь шинэ "Microsoft Visual Basic for Applications" цонхонд та энэ төслийг нээхийн тулд "ThisOutlookSession" дээр давхар товшино уу.
3. Дараа нь дараахь VBA кодыг хуулж оруулна уу.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim oAppt As AppointmentItem
    Dim strMsg As String
    Dim nRes As Integer
 
    On Error Resume Next
 
    If TypeName(Item) = "MailItem" And Item.IsMarkedAsTask = True Then
       strMsg = "Do you want to create a new appointment"
       nRes = MsgBox(strMsg, vbYesNo + vbQuestion, "Confirm Creating Appointment")
       If nRes = vbYes Then
          Set oAppt = Application.CreateItem(olAppointmentItem)
          With oAppt
               .Subject = "New Appt: " & Item.Subject
               .Location = InputBox("Enter the Location, please.")
               'Type the concrete time, such as "12/29/2015 15:30"
               .Start = InputBox("Enter a specific time (format: MM/DD/YYYY hh:mm), please.")
               .Duration = 120
               .Body = "New Appointment: " & vbCrLf & vbCrLf & Item.Body
               .Attachments.Add Item
               .ReminderSet = True
               .ReminderMinutesBeforeStart = 30
               'Use ".Save" to directly save the new appointment
               .Display
          End With
       End If
 
      'To clear the flag on the email
      'If you want to keep email flagged, remove the following 4 lines
       With Item
            .ClearTaskFlag
            .Save
       End With
    End If
End Sub

4. Дараа нь та "VBA төслүүдийн тоон гэрчилгээ" -г ашиглан шинэ гэрчилгээ үүсгэж, одоогийн "ThisOutlookSession" төсөлд гарын үсэг зурах хэрэгтэй.
5. Үүний дараа та "Visual Basic" цонхноос гарч макро тохиргоог өөрчилж зөвхөн дижитал гарын үсэгтэй макро зөвшөөрөх боломжтой.
6. Эцэст нь та хичээгээд үзээрэй.

• Нэгдүгээрт, имэйлийг сонгоод “туг” гэсэн дүрс дээр дарна уу. Дараахь дэлгэцийн агшин шиг танд мэдэгдэл ирэх болно.
• "Тийм" гэж сонгосны дараа байршлыг зааж өгөх шаардлагатай бөгөөд "OK" товчийг дарна уу.
• Дараа нь уулзах цагийг зааж өгөх хэрэгтэй.
• Эцэст нь “OK” дээр дарсны дараа шинэ уулзалт нээгдэх бөгөөд доорх зургаар харуулав:

Тайлбар:

1. Энэхүү VBA кодуудад сануулагчийг анхдагчаар 30 минут болгосон байна. Та үүнийг дурын кодууд дээр өөрчилж болно.
2. Кодууд нь уулзалтын үргэлжлэх хугацааг 120 минут, тухайлбал 2 цаг болгосон. Та ".Duration = 120" мөрийг өөрийн хэрэгцээнд нийцүүлэн өөрчилж болно.
3. Хэрэв та тодорхой цаг хугацааг заагаагүй бол шинэ томилгоог анхдагчаар одоогийн огноо, цагт тохируулах болно.
4. Та уулзалтыг шууд хадгалахын тулд ".Хадгалах" мөрийг нэмж болно.

Outlook-ийн асуудлуудыг устгана уу

Outlook нь янз бүрийн асуудалд өртөж болзошгүйг мэддэг. Хамгийн муу нөхцөл байдал бол Outlook-ийн авлига байх ёстой. Хэрэв таны Outlook файл эвдэрсэн бөгөөд танд нөөцлөлт байгаа бол та үүнийг хялбархан сэргээх боломжтой Outlook өгөгдлийг гэмтсэн нөөцлөлтөөс. Гэхдээ танд нөөц байхгүй бол та авлигад автсан Outlook файлыг засах хэрэгтэй болно. Энэ тохиолдолд та суулгагдсан засварын хэрэгсэл болох Scapst.exe-г ашиглах эсвэл илүү туршлагатай хэрэгсэл ашиглах боломжтой. DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. засвар SQL Server mdf мэдээллийн баазын асуудал програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com