Сіз әр сейсенбі сияқты белгіленген уақыт аралығында қайталанатын электрондық поштаны жібергіңіз келе ме? Бұл мақала осы мәселені қарастырады және қайталанатын тапсырманы және Outlook VBA-ны қолдану арқылы оған жетуге үйретеді.
Мүмкін сіз Outlook бағдарламасында жеткізуді кейінге қалдыру үшін жергілікті қолдау көрсетілетіндіктен, қайталанатын электрондық поштаны жіберуді қалай жоспарлау керектігін білген шығарсыз. Бірақ бұл мүмкіндік сізге электрондық поштаны жіберу уақытын көрсетуге мүмкіндік береді. Бұл сізге Outlook бағдарламасына қайталанатын электрондық поштаны автоматты түрде жіберуге мүмкіндік бере алмайды, мысалы, 3rd Әр айдың дүйсенбісі және т.с.с., сондықтан сіз белгілі бір электрондық поштаны тұрақты түрде жіберіп отырғыңыз келсе, қосымша күш салуыңыз керек. Міне, жылдам әдіс, ол сізге қайталанатын тапсырма элементін құруды және келесі VBA кодтарын «ThisOutlookSession» жобасына көшіруді қажет етеді.
Қайталанатын электрондық поштаны автоматты түрде автоматты түрде жіберу
- Біріншіден, Outlook бағдарламасын іске қосып, Тапсырмалар тақтасына ауысыңыз.
- Содан кейін таспадағы «Жаңа тапсырма» батырмасын басыңыз.
- Келесі «Жаңа тапсырма» терезесінде сіз қайталанатын тапсырма жасауыңыз керек:
- Біріншіден, тапсырма тақырыбына «электрондық поштаны мерзімді түрде жіберу» деп теріңіз.
- Содан кейін «Тапсырма» қойындысының астындағы «Қайталану» батырмасын басыңыз,
- Әрі қарай сіздің қажеттіліктеріңізге сәйкес тапсырманың қайталануын орнатыңыз.
- Осыдан кейін қайталануды сақтау үшін «OK» батырмасын басыңыз.
- Соңында еске салу уақытын орнатыңыз және «Сақтау және жабу» батырмасын басыңыз.

- Осыдан кейін VBA редакторының терезесіне кіру үшін «Әзірлеуші» қойындысына өтіп, «Visual Basic» батырмасын басыңыз.
- Кейінірек сіз келесі VBA кодтарын «ThisOutlookSession» жобасына көшіруіңіз керек.
Private Sub Application_Reminder(ByVal Item As Object)
Dim objPeriodicalMail As MailItem
If Item.Class = olTask Then
If InStr(LCase(Item.Subject), "send an email periodically") Then
Set objPeriodicalMail = Outlook.Application.CreateItem(olMailItem)
'Change the following email information as per your actual needs
With objPeriodicalMail
.Subject = "Test"
.To = "boss@datanumen.com"
.HTMLBody = "<HTML><BODY>type body here</HTML></BODY>"
.Attachments.Add ("C:\Attachments\DataNumen.docx")
.Importance = olImportanceHigh
.ReadReceiptRequested = True
.Send
End With
End If
End If
End Sub
- Кейіннен сіз осы кодқа қол қойып, макро параметрлеріңізді цифрлы қолтаңбалы макросты өзгерту үшін өзгертуіңіз керек.
- Бұдан былай, қайталанатын жаңа тапсырма туралы ескертпе пайда болған сайын, Outlook автоматты түрде электрондық поштаны құрып жібереді.
Ескерту: Қайталанатын электрондық поштаны жібергеннен кейін, ағымдағы тапсырма элементін аяқталған деп белгілеуді ұмытпаған жөн.
Outlook мәселелерін әдептілікпен өңдеңіз
Outlook әртүрлі факторларға осал болғандықтан, сіз үнемі нашарға дайындалуыңыз керек. Мысалы, сіз беделді және жақсы дәлелденген күйде болуыңыз керек Outlook қалпына келтіру сияқты жақын жерде орналасқан утилита DataNumen Outlook Repair. Осылайша, сіз PST деректерінің бұзылуына тап болсаңыз да, бұзылған деректерді utm көмегімен қайтара аласызost жеңілдік.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. жөндеу SQL Server және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com
