VBA & UserForm арқылы Outlook электрондық пошта жазбаларын қалай тиімді қосуға болады

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

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

Outlook электрондық пошта жазбаларына ескертулер қосыңыз

1. Бастау үшін Outlook бағдарламасында «Alt + F11» пернелер тіркесімін басу арқылы VBA редакторына кіріңіз.
2. Содан кейін «Кірістіру»> «Пайдаланушы формасын» басыңыз.
3. Әрі қарай, жаңа UserForm-да төмендегі сурет сияқты мәтіндік жәшік жасаңыз.
4. Содан кейін, мәтіндік жәшіктің «Атауын» скриншот сияқты «txtNotes» етіп өзгертіңіз.
5. Осыдан кейін формада екі пәрмен батырмасын жасаңыз.
6. Содан кейін «CommandButton 1» таңдаңыз. Оның «Атауын» «btnOK» етіп өзгертіңіз және оның «Субтитрін» «Жарайды» етіп өзгертіңіз.
7. Содан кейін «CommandVutton 2» -дің «Атауын» «btnCancel» және «Субтитрді» «Болдырмау» деп өзгертіңіз.
8. Содан кейін UserForm-ді толығымен таңдап, оның «Атауын» «frmAddNote» және «Тақырыпты» «Жазбаңызды енгізіңіз» етіп өзгертіңіз.
9. Содан кейін «fromAddNote» тінтуірдің оң жағын басып, «Кодты қарау» тармағын таңдаңыз.
10. Жаңа экранда оған келесі кодты көшіріңіз.

Private Sub btnOK_Click()
    Dim strNote As String
    Dim objMail As Outlook.MailItem
    Dim objNote As Outlook.NoteItem
 
    strNote = txtNotes.Text
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objNote = Application.CreateItem(olNoteItem)
 
    objNote.Body = strNote
    objNote.Save
    objMail.Attachments.Add objNote
    objMail.Save
    objNote.Delete
    Unload Me
End Sub

Private Sub btnCancel_Click()
    Unload Me
End Sub

11. Кейінірек VBA кодын пайдаланылмаған модульге салыңыз.

Sub AddNote()
    frmAddNote.Show
End Sub

12. Соңында, осы макросты лентаға қосу үшін «Файл»> «Параметрлер»> «Таспаны теңшеу» тармағына өтіңіз.
13. Енді сіз көріңіз. Электрондық поштаны таңдап, таспадағы жаңа «Ескерту қосу» батырмасын басыңыз.
14. Қалқымалы диалог терезесінде сіз өз жазбаңызды енгізіп, «OK» батырмасын басуыңызға болады.
15. Дереу таңдалған электрондық поштаға жаңа жазба қосылады.

Outlook электрондық поштасына арналған қолданыстағы жазбаларды өңдеу немесе жою

Кейде сіз электрондық поштадағы кез келген жазбаларды өңдегіңіз немесе жойғыңыз келуі мүмкін. Төмендегі қадамдарды орындауға болады.

1. Алдымен, басқа пайдаланушы пішінін жасаңыз және оны «frmEditNote» деп атаңыз және оның жазбасын «Жазбаңызды өңдеу» етіп өзгертіңіз.
2. Содан кейін формаға жаңа мәтін ұясын енгізіп, оның «Атауын» «txtNotes» етіп өзгертіңіз.
3. Әрі қарай екі пәрмен батырмасын қосыңыз - “OK” және “Cancel”.
4. Осыдан кейін «frmEditNote» тінтуірдің оң жағын басып, «Кодты қарау» тармағын таңдаңыз.
5. «FrmEditNote» кодының жаңа бетіне келесі кодты қойыңыз.

Private Sub UserForm_Initialize()
    Dim objAttachNote As Outlook.Attachment
    Dim objTempNote As Outlook.NoteItem

    Set objAttachNote = ActiveExplorer.AttachmentSelection.Item(1)
    Set objMail = objAttachNote.Parent
 
    If Right(objAttachNote.FileName, 3) = "msg" Then
       strTempFolder = Environ("Temp")
       strFilePath = strTempFolder & "\" & objAttachNote.FileName
       objAttachNote.SaveAsFile strFilePath
    End If
 
    Set objTempNote = Session.OpenSharedItem(strFilePath)
    txtNotes.Text = objTempNote.Body

    objTempNote.Close olDiscard
End Sub

Private Sub btnOK_Click()
    Dim strNote As String
    Dim objMail As Outlook.MailItem
    Dim objAttachNote As Outlook.Attachment
    Dim objNewNote As Outlook.NoteItem
 
    strNote = txtNotes.Text
 
    Set objNewNote = Application.CreateItem(olNoteItem)
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    Set objAttachNote = ActiveExplorer.AttachmentSelection.Item(1)
    objAttachNote.Delete

    objNewNote.Body = strNote
    objNewNote.Save
    objMail.Attachments.Add objNewNote
    objMail.Save
    objNewNote.Delete
    Unload Me
End Sub

Private Sub btnCancel_Click()
    Unload Me
End Sub

6. Осыдан кейін модульді ашып, оған VBA кодын көшіріңіз.

Sub EditNote()
    frmEditNote.Show
End Sub

Sub DeleteNotes()
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objMail As Outlook.MailItem
 
    Set objSelectedAttachments = Application.ActiveExplorer.AttachmentSelection
 
    For Each objAttachment In objSelectedAttachments
        If Right(objAttachment.FileName, 3) = "msg" Then
           objAttachment.Delete
        End If
    Next
 
    Set objMail = Application.ActiveExplorer.Selection.Item(1)
    objMail.Save
End Sub

7. Соңында таспаға «EditNote» және «DeleteNotes» макросын қосуға болады.
8. Соңында, «ОК» батырмасын басып, негізгі терезеге оралғаннан кейін жазбаны өңдеуге тырысуға болады.

• Жазбаны таңдап, «Ескертуді өзгерту» батырмасын басыңыз.
• Содан кейін таңдалған жазбаны өңдеуге болатын жаңа диалогтық терезе пайда болады.
• Өңдеуден кейін «ОК» батырмасын басыңыз. Ескерту жаңартылады.

9. Сондай-ақ, кез-келген жазбаны жоюға тырысуға болады.

• Жойғыңыз келетін жазбаны таңдаңыз.
• Таспадағы «Жазбаларды жою» батырмасын басыңыз.
• Бұл ескерту бірден жойылады.

Outlook бағдарламасының деректерді жоғалтуына жол бермеңіз

Сіз Outlook деректерінің жоғалуын бұғаттауға арналған керемет шешім іздеп жүрсіз бе? Шынымды айтсам, сіз үнемі Outlook деректерінің сақтық көшірмелерін жасап отырсаңыз, PST деректерін жоғалтуды оңай болдырмауға болады. Мысалы, PST зақымдалса да, сіз оңай бола аласыз PST қалпына келтіру сақтық көшірмесі жасалған PST файлынан алынған самал сияқты.

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

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