Outlook бағдарламасында белгілі бір тапсырма орындалғанда, хабарландыру электрондық поштасын автоматты түрде жіберу жолы

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Outlook бағдарламасындағы тапсырманы орындағаннан кейін, көптеген пайдаланушылар біреуді хабардар ету үшін хабарландыру электрондық поштасын жіберуді қалауы мүмкін, мысалы, басшыға. Электрондық поштаны қолмен жіберу көп уақытты қажет етеді. Бұл мақалада электрондық хаттарды автоматты түрде жіберудің жылдам әдісі қарастырылады.

«МақаладанOutlook бағдарламасында басқаларға тапсырма берудің 4 жылдам қадамы”, егер тапсырма сізге басшыдан тағайындалса және олар төмендегі скриншот сияқты алдын ала күй есебін талап етсе, олар есеп электрондық поштасын автоматты түрде ала алатынын біле аласыз.Тапсырма күйі есебін талап ету

Дегенмен, егер тапсырма тек өзіңіз жасалған болса, оны аяқталды деп белгілеген кезде Outlook ешқашан ешкімге хабарландыру электрондық поштасын жібермейді. Бұл жағдайда жұмысыңызды хабарлау үшін хабарландыру электрондық поштасын жібергіңіз келсе, оны қолмен орындауыңыз керек. Бірақ келесі VBA кодтарымен Outlook бағдарламасына оны автоматты түрде орындауға рұқсат бере аласыз.

Белгілі бір тапсырма орындалған кезде хабарландыру электрондық поштасын автоматты түрде жіберу

  1. Алдымен Outlook бағдарламасын іске қосып, «Әзірлеуші» қойындысына өтуіңіз керек.
  2. Содан кейін «Visual Basic» түймесін тауып, басыңыз. Жаңа «Microsoft Visual Basic for Applications» терезесі пайда болады.
  3. Осыдан кейін оны ашу үшін «ThisOutlookSession» жобасын екі рет басыңыз, содан кейін оған келесі VBA кодтарын көшіріңіз.
Public WithEvents olItems As Outlook.Items

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

Private Sub olItems_ItemChange(ByVal Item As Object)
    Dim obApp As Outlook.Application
    Dim olMail As Outlook.MailItem
    Dim Recip As String
 
    'Replace "test" as per your needs
    If InStr(LCase(Item.Subject), "test") > 0 And Item.Complete = True Then
       'Replace with your desired contact
       Recip = "John Smith"
       If MsgBox("Do you want to send a report to " & Recip & " ?", vbYesNo + vbQuestion, "Confirm Sending Report") = vbYes Then
          Set obApp = Outlook.Application
          Set olMail = obApp.CreateItem(olMailItem)
          With olMail
               .To = Recip
               .Subject = "Complete: " & Item.Subject
               .Body = "Dear Mr. Smith" & vbCrLf & "I've completed this task in " & DateDiff("d", Item.CreationTime, Now) & " day" & Chr(40) & "s" & Chr(41) & "." & vbCrLf & vbCrLf & "Task Name: " & Item.Subject & vbCrLf & "Start Date: " & Item.StartDate & vbCrLf & "Due Date: " & Item.DueDate & vbCrLf & "Creation Time: " & Item.CreationTime & vbCrLf & "Completed Time: " & Now & vbCrLf & vbCrLf & "Task Details: " & vbCrLf & Item.Body
               .ReadReceiptRequested = True
               'To directly send it,use ".Send" instead
               .Display
          End With
       End If
    End If
End Sub

VBA кодтарын ThisOutlookSession ішіне көшіріңіз

  1. Содан кейін осы кодқа қол қоюды жалғастырыңыз және макрос параметрлерін тек сандық қол қойылған макростарға рұқсат ету үшін өзгертіңіз.
  2. Соңында ағымдағы терезеден шығып, әрекетті орындауға болады.
  • Тапсырманы аяқталды деп белгілегенде, келесі сурет сияқты хабарлама аласыз:Жіберу есебін растау
  • «Иә» түймесін басқан кезде, төмендегі суретте көрсетілген жаңа хабарлама ашылады:Хабарландыру электрондық поштасы

Ескерту: Егер «.display» сөзін «.Send» жолымен ауыстырсаңыз, бұл электрондық пошта көрсетілмей-ақ тікелей жіберіледі.

Белгісіз электрондық пошта мекенжайларынан келетін хабарларға назар аударыңыз

Сіз белгісіз мекенжайлардан көптеген электрондық хаттарды алған болуыңыз керек. Мұндай хаттардан сақ болған жөн. Себебі олар зиянсыз болып көрінуі мүмкін, бірақ құрамында зиянды сілтемелер, тіркемелер немесе макростар бар. Оларды басқаннан немесе ашқаннан кейін Outlook бағдарламасы вирус жұқтыруы мүмкін. Бұл кезде Outlook деректерін қайтару үшін сізде жұлдызды пайдаланудан басқа таңдау жоқ зақымдалған Outlook деректерін түзету утилитасы, сияқты DataNumen Outlook Repair.

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

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

Қазір бөлісу:

Пікірлер жабылды.