VBA & UserForm မှတဆင့် Outlook အီးမေးလ်များသို့ မှတ်စုများ ထိရောက်စွာထည့်နည်း

တစ်ခါတစ်ရံတွင် သင်သည် Outlook တွင် သင့်အီးမေးလ်များသို့ မှတ်စုများကို တည်းဖြတ်ရန် သို့မဟုတ် ပေါင်းထည့်ရန် မျှော်လင့်နိုင်သည်။ ဤဆောင်းပါးတွင် ဤလုပ်ဆောင်ချက်ကို အောင်မြင်ရန် ထိရောက်သောနည်းလမ်းကို သင့်အား မိတ်ဆက်ပေးပါမည်။

မှ“သင့် Outlook Messages တွင် မှတ်စုတစ်ခုထည့်သွင်းရန် လွယ်ကူသောနည်းလမ်း 4 ခု"၊ စိတ်ကြိုက်အလံများအသုံးပြုခြင်း၊ အကြောင်းအရာ သို့မဟုတ် စာကိုယ်တွင် မှတ်စုစာရိုက်ခြင်း သို့မဟုတ် ရှိပြီးသားမှတ်စုပစ္စည်းများကို ဤအီးမေးလ်သို့ ပူးတွဲခြင်းကဲ့သို့သော Outlook မူရင်းလုပ်ဆောင်ချက်များမှတစ်ဆင့် မှတ်စုများထဲသို့ မှတ်စုများထည့်သွင်းရန် သင်ယူနိုင်ပါသည်။ သို့သော် ၎င်းတို့အားလုံးသည် ဖြေရှင်းနည်းများသာဖြစ်သည်။ ဤတွင်၊ ကျွန်ုပ်တို့သည် သင့်အား ပိုမိုထိရောက်သောနည်းလမ်းကို သင်ပေးပါမည်။ ၎င်းမှတစ်ဆင့် သင်သည် အီးမေးလ်များသို့ မှတ်စုများထည့်နိုင်ပြီး လက်ရှိမှတ်စုများကို အလိုအလျောက် တည်းဖြတ်နိုင်သည် သို့မဟုတ် ဖျက်နိုင်မည်ဖြစ်သည်။

Outlook အီးမေးလ်များတွင် မှတ်စုများထည့်ပါ။

1. စတင်ရန်၊ Outlook တွင် “Alt + F11” ကိုနှိပ်ခြင်းဖြင့် VBA တည်းဖြတ်စနစ်ကို ဝင်ရောက်ပါ။
2. ထို့နောက် "Insert" > "UserForm" ကိုနှိပ်ပါ။
3. ထို့နောက်၊ UserForm အသစ်တွင်၊ အောက်ဖော်ပြပါပုံကဲ့သို့ textbox ကိုဖန်တီးပါ။
4. ထို့နောက်၊ ဖန်သားပြင်ဓာတ်ပုံကဲ့သို့သော textbox ၏ "Name" ကို "txtNotes" သို့ပြောင်းပါ။
5. ထို့နောက် ပုံစံတွင် commandbutton နှစ်ခုဖန်တီးပါ။
6. ထို့နောက် "CommandButton 1" ကိုရွေးချယ်ပါ။ ၎င်း၏ "Name" ကို "btnOK" သို့ပြောင်းပြီး ၎င်း၏ "စာတန်းထိုး" "OK" သို့ပြောင်းပါ။
7. ထို့နောက်၊ “CommandVutton 2” ၏ “အမည်” ကို “btnCancel” နှင့် “စာတန်းထိုး” “ပယ်ဖျက်” သို့ ပြောင်းပါ။
8. ထို့နောက်၊ UserForm တစ်ခုလုံးကို ရွေးချယ်ပြီး ၎င်း၏ "Name" ကို "frmAddNote" နှင့် "Caption" သို့ "သင့်မှတ်စု ထည့်သွင်းပါ" သို့ ပြင်ဆင်ပါ။
9. ထို့နောက် "fromAddNote" ကို right click နှိပ်ပြီး "View Code" ကိုရွေးချယ်ပါ။
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 ကုဒ်ကို အသုံးမပြုသော module တစ်ခုတွင် ထည့်ပါ။

Sub AddNote()
    frmAddNote.Show
End Sub

12. နောက်ဆုံးတွင်၊ ဤ macro သို့ ribbon ထည့်ရန် "File" > "Options" > "Customize Ribbon" သို့သွားပါ။
13. ယခု သင် စမ်းသုံးကြည့်နိုင်ပါသည်။ အီးမေးလ်ကိုရွေးချယ်ပြီး ဖဲကြိုးရှိ “မှတ်စုထည့်ရန်” ခလုတ်အသစ်ကို နှိပ်ပါ။
14. ပေါ်လာသော ဒိုင်ယာလော့ခ်ဘောက်စ်တွင်၊ သင်သည် သင့်မှတ်စုကို ရိုက်ထည့်ကာ “OK” ကိုနှိပ်နိုင်သည်။
15. ချက်ခြင်းတွင်၊ ရွေးချယ်ထားသောအီးမေးလ်သို့ မှတ်စုအသစ်တစ်ခုကို ပေါင်းထည့်ပါမည်။

Outlook အီးမေးလ်များအတွက် လက်ရှိမှတ်စုများကို တည်းဖြတ်ပါ သို့မဟုတ် ဖျက်ပါ။

တစ်ခါတစ်ရံတွင် သင်သည် အီးမေးလ်ထဲတွင် ရှိပြီးသားမှတ်စုများကို တည်းဖြတ်ရန် သို့မဟုတ် ဖျက်လိုနိုင်ပါသည်။ အောက်ပါအဆင့်များအတိုင်း လုပ်ဆောင်နိုင်ပါသည်။

1. ပထမဦးစွာ၊ အခြားအသုံးပြုသူပုံစံကိုဖန်တီးပြီး ၎င်းကို "frmEditNote" ဟု အမည်ပေးကာ ၎င်း၏စာတန်းကို "သင့်မှတ်စုကိုတည်းဖြတ်ရန်" သို့ ပြင်ဆင်ပါ။
2. ထို့နောက်၊ ဖောင်တွင် စာသားသေတ္တာအသစ်တစ်ခုကို ထည့်သွင်းပြီး ၎င်း၏ "အမည်" ကို "txtNotes" သို့ ပြောင်းပါ။
3. ထို့နောက်၊ "OK" နှင့် "Cancel" ဟူသော command ခလုတ်နှစ်ခုကိုထည့်ပါ။
4. ထို့နောက် "frmEditNote" ကို right click နှိပ်ပြီး "View Code" ကိုရွေးချယ်ပါ။
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. ထို့နောက် module တစ်ခုကိုဖွင့်ပြီး 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" macro ကို ribbon သို့ထည့်နိုင်သည်။
8. နောက်ဆုံးအနေဖြင့်၊ “OK” ကိုနှိပ်ပြီး ပင်မဝင်းဒိုးသို့ ပြန်သွားပြီးနောက်၊ သင်သည် မှတ်စုတစ်ခုကို တည်းဖြတ်ရန် ကြိုးစားနိုင်သည်။

• မှတ်စုတစ်ခုကို ရွေးပြီး “Edit Note” ခလုတ်ကို နှိပ်ပါ။
• ထို့နောက် သင်ရွေးချယ်ထားသောမှတ်စုကို တည်းဖြတ်နိုင်သည့် ဒိုင်ယာလော့ဂ်ဘောက်စ်အသစ်တစ်ခု ပေါ်လာပါမည်။
• တည်းဖြတ်ပြီးနောက် "OK" ကိုနှိပ်ပါ။ မှတ်စုကို အပ်ဒိတ်လုပ်ပါမည်။

9. ထို့အပြင်၊ သင်သည်မည်သည့်မှတ်စုကိုမဆိုဖျက်ပစ်ရန်ကြိုးစားနိုင်သည်။

• သင်ဖျက်လိုသောမှတ်စုကို ရွေးပါ။
• ဖဲကြိုးရှိ “မှတ်စုများ ဖျက်ရန်” ခလုတ်ကို နှိပ်ပါ။
• ဤမှတ်စုကို တစ်ကြိမ်တည်း ဖျက်လိုက်ပါမည်။

ဒေတာဆုံးရှုံးမှုမှ Outlook ကိုကာကွယ်ပါ။

Outlook ဒေတာဆုံးရှုံးမှုကိုတားဆီးရန်အလွန်အစွမ်းထက်သောဖြေရှင်းချက်ရှာဖွေနေပါသလား။ ရိုးရိုးသားသားပြောရရင်၊ သင်ပုံမှန် Outlook ဒေတာကို အရန်ကူးထားသရွေ့ PST ဒေတာဆုံးရှုံးမှုကို အလွယ်တကူ ရှောင်ရှားနိုင်ပါတယ်။ ဥပမာအားဖြင့်၊ PST ပျက်စီးသွားရင်တောင် အလွယ်တကူ လုပ်နိုင်ပါသေးတယ်။ PST ပြန်လည်ရယူပါ။ အရန်သိမ်းထားသော PST ဖိုင်မှဒေတာသည် လေညင်းကဲ့သို့ဖြစ်သည်။

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ sql ပြန်လည်ရယူပါ။ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com