Outlook-da e-poçt işarələndikdə avtomatik olaraq yeni görüş necə yaradılır

Bəzi insanlar e-poçtu işarələdikdə avtomatik və ya tez bir zamanda yeni Outlook görüşü yaratmaq istəyirlər. Bu məqalə Outlook VBA ilə həyata keçirmək üçün bir yanaşma təqdim edəcəkdir.

Bəzən görüş və ya görüş haqqında e-poçt mesajı ala bilərəm. Lakin bu, Outlook-da ümumi görüş elementi əvəzinə sadəcə e-poçtdur. Bu halda mən Outlook təqvimimdə əl ilə yeni görüş yaratmalıyam. Bu bir az əziyyətlidir. Beləliklə, Outlook-un avtomatik olaraq yeni görüş yarada bilməsini arzulayıram. Bununla belə, Outlook-un bizə e-poçtu işarələdiyimiz zaman avtomatik olaraq yeni görüş yaratmaq üçün yerli dəstəyi yoxdur. Buna görə də, buna nail olmaq üçün Outlook VBA-dan istifadə etməyi seçirəm. Budur ətraflı VBA kodları və addımlar.

E-poçt işarələndikdə avtomatik yeni görüş yaradın

1. İlk növbədə, "Developer" sekmesine keçin və "Kod" qrupunda "Visual Basic" düyməsini basın.
2. Sonra yeni “Proqramlar üçün Microsoft Visual Basic” pəncərəsində bu layihəni açmaq üçün “ThisOutlookSession” üzərinə iki dəfə klik etməlisiniz.
3. Sonra aşağıdakı VBA kodlarını kopyalayıb yapışdırın.

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. Daha sonra, yeni sertifikat yaratmaq və cari “ThisOutlookSession” layihəsini imzalamaq üçün “VBA Layihələri üçün Rəqəmsal Sertifikat”dan istifadə etməlisiniz.
5. Bundan sonra siz “Visual Basic” pəncərəsindən çıxa və yalnız rəqəmsal imzalanmış makrolara icazə vermək üçün makro parametrlərini dəyişə bilərsiniz.
6. Nəhayət, bir cəhd edə bilərsiniz.

• Əvvəlcə e-poçtu göstərin və "Bayraq" işarəsini basın. Aşağıdakı ekran görüntüsü kimi bir sorğu alacaqsınız:
• “Bəli” seçimini etdikdən sonra sizdən yeri təyin etməniz və “OK” düyməsini sıxmağınız tələb olunacaq.
• Sonra görüş vaxtını təyin etməlisiniz.
• Nəhayət, “OK” düyməsini kliklədikdən sonra aşağıdakı şəkildə göstərildiyi kimi yeni görüş açılacaq:

Qeydlər:

1. Bu VBA kodlarında xatırlatma standart olaraq 30 dəqiqəyə təyin edilmişdir. İstədiyiniz zaman kodlarda dəyişə bilərsiniz.
2. Kodlarda görüşün müddəti 120 dəqiqə, yəni 2 saat müəyyən edilib. “.Duration = 120” xəttini ehtiyaclarınıza uyğun dəyişə bilərsiniz.
3. Əgər siz konkret vaxt təyin etməmisinizsə, yeni görüş defolt olaraq cari tarix və vaxta təyin olunacaq.
4. Görüşü birbaşa saxlamaq üçün “.Saxla” xəttini əlavə edə bilərsiniz.

Outlook problemlərini aradan qaldırın

Məlumdur ki, Outlook müxtəlif problemlərlə üzləşə bilər. Ən pis vəziyyət Outlook korrupsiyası olmalıdır. Outlook faylınız xarabdırsa və əlinizdə ehtiyat nüsxə varsa, asanlıqla bərpa edə bilərsiniz zədələnmiş Outlook məlumatları ehtiyat nüsxələrindən. Ancaq ehtiyat nüsxəniz yoxdursa, zədələnmiş Outlook faylını təmir etməlisiniz. Bu halda, daxili təmir alətindən, Scapst.exe-dən istifadə edə və ya daha təcrübəli alətə müraciət edə bilərsiniz, məsələn DataNumen Outlook Repair.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc təmir SQL Server mdf verilənlər bazası problemi və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com