Ինչպես արդյունավետորեն գրառումներ ավելացնել Outlook նամակներին VBA-ի և UserForm-ի միջոցով

Երբեմն դուք կարող եք հույս ունենալ, որ Outlook-ում կարող եք խմբագրել կամ նշումներ ավելացնել ձեր նամակներին: Այս հոդվածը ձեզ կներկայացնի այս գործառույթին հասնելու արդյունավետ միջոց:

«Ձեր Outlook հաղորդագրություններում նոտա տեղադրելու 4 հեշտ եղանակ«, դուք կարող եք սովորել գրառումներ տեղադրել փոստերում Outlook-ի բնիկ գործառույթների միջոցով, ինչպես օրինակ՝ օգտագործել հատուկ դրոշներ, մուտքագրել նշում առարկայի կամ հիմնական մասում կամ կցել առկա նշումների տարրերն այս էլ. Այնուամենայնիվ, դրանք բոլորն էլ պարզապես լուծումներ են: Այստեղ մենք ձեզ կսովորեցնենք շատ ավելի արդյունավետ մեթոդ: Դրա միջոցով դուք կկարողանաք գրառումներ ավելացնել նամակներին և ըստ ցանկության խմբագրել կամ ջնջել առկա նշումները:

Նշումներ ավելացրեք Outlook-ի նամակներին

1. Սկսելու համար մուտք գործեք VBA խմբագիր՝ սեղմելով «Alt + F11» Outlook-ում:
2. Այնուհետև սեղմեք «Տեղադրել» > «Օգտվողի ձև»:
3. Հաջորդը, նոր UserForm-ում, ստեղծեք ստորև ներկայացված պատկերի նման տեքստային տուփ:
4. Այնուհետև փոխեք տեքստային տուփի «Անունը» «txtNotes»-ի, ինչպես սքրինշոթը:
5. Դրանից հետո ձևի մեջ ստեղծեք երկու հրամանի կոճակ:
6. Այնուհետև ընտրեք «CommandButton 1»: Փոխեք նրա «Անունը» «btnOK» և փոխեք դրա «վերնագիր» «OK»:
7. Այնուհետև «CommandVutton 2»-ի «Անունը» փոխեք «btnCancel»-ի և «Caption»-ը «Cancel»-ի:
8. Հաջորդը, ընտրեք ամբողջ UserForm-ը և փոխեք դրա «Անունը»՝ «frmAddNote» և «Caption»՝ «Մուտքագրեք ձեր նշումը»:
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» և «Չեղարկել»:
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. Վերջապես, «OK» սեղմելուց և հիմնական պատուհան վերադառնալուց հետո կարող եք փորձել խմբագրել նշումը:

• Ընտրեք նշում և սեղմեք «Խմբագրել նշումը» կոճակը:
• Այնուհետև կհայտնվի նոր երկխոսության տուփ, որում կարող եք խմբագրել ընտրված նշումը:
• Խմբագրելուց հետո սեղմեք «OK»: Նշումը կթարմացվի:

9. Նաև կարող եք փորձել ջնջել ցանկացած նշում:

• Ընտրեք այն նշումը, որը ցանկանում եք ջնջել:
• Կտտացրեք ժապավենի «Ջնջել նշումները» կոճակը:
• Այս նշումը միանգամից կջնջվի:

Կանխել Outlook-ը տվյալների կորստից

Դուք փնտրում եք հզոր լուծում Outlook-ի տվյալների կորուստը արգելափակելու համար: Անկեղծ ասած, քանի դեռ դուք կանոնավոր Outlook-ի տվյալների կրկնօրինակում եք անում, կարող եք հեշտությամբ խուսափել PST տվյալների կորստից: Օրինակ, նույնիսկ եթե PST-ը վնասվում է, դուք դեռ հեշտությամբ կարող եք վերականգնել PST- ն տվյալների կրկնօրինակված PST ֆայլից, ինչպես քամի:

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել sql և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com