Uneori, puteți spera să editați sau să adăugați note la e-mailurile dvs. în Outlook. Acest articol vă va prezenta o modalitate eficientă de a realiza această funcție.
Din „4 Metode ușoare de a insera o notă în mesajele dvs. Outlook„, puteți învăța să inserați note în e-mailuri prin intermediul funcțiilor native Outlook, cum ar fi folosirea steaguri personalizate, introducerea unei note în subiect sau corp sau atașarea unor note existente la acest e-mail. Cu toate acestea, toate sunt doar soluții alternative. Aici, vă vom învăța o metodă mult mai eficientă. Prin intermediul acestuia, veți putea să adăugați note la e-mailuri și să editați sau să ștergeți notele existente după bunul plac.
Adăugați note la e-mailurile Outlook
- Pentru început, accesați editorul VBA apăsând „Alt + F11” în Outlook.
- Apoi, faceți clic pe „Insert” > „UserForm”.
- Apoi, în noul UserForm, creați o casetă text ca imaginea de mai jos.
- Apoi, schimbați „Numele” casetei de text în „txtNotes”, ca în captura de ecran.
- După aceea, creați două butoane de comandă în formular.
- Apoi, selectați „CommandButton 1”. Schimbați-i „Nume” în „btnOK” și modificați-i „Subtitrare” în „OK”.
- După aceea, modificați „Numele” din „CommandVutton 2” cu „btnCancel” și „Caption” cu „Anulare”.
- Apoi, selectați întregul formular de utilizator și modificați „Numele” în „frmAddNote” și „Caption” în „Introduceți nota”.
- Ulterior, faceți clic dreapta pe „fromAddNote” și alegeți „Vizualizare cod”.
- În noul ecran, copiați următorul cod în el.
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
- Mai târziu, puneți codul VBA de mai jos într-un modul neutilizat.
Sub AddNote()
frmAddNote.Show
End Sub
- În cele din urmă, mergeți la „Fișier” > „Opțiuni” > „Personalizare panglică” pentru a adăuga această macrocomandă în panglică.
- Acum, poți să încerci. Selectați un e-mail și faceți clic pe noul buton „Adăugați o notă” din panglică.
- În caseta de dialog pop-up, puteți introduce nota și faceți clic pe „OK”.
- Imediat, o nouă notă va fi adăugată la e-mailul selectat.
Editați sau ștergeți notele existente pentru e-mailurile Outlook
Uneori, este posibil să doriți să editați sau să ștergeți orice notă existentă dintr-un e-mail. Puteți urma pașii de mai jos.
- În primul rând, creați un alt formular de utilizator și numiți-l ca „frmEditNote” și modificați-i titlul în „Editați nota”.
- Apoi, introduceți o nouă casetă de text în formular și schimbați „Nume” în „txtNotes”.
- Apoi, adăugați două butoane de comandă – „OK” și „Anulați”.
- După aceea, faceți clic dreapta pe „frmEditNote” și selectați „Vizualizare cod”.
- În noua pagină de coduri a „frmEditNote”, puneți următorul cod.
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
- După aceea, deschideți un modul și copiați codul VBA în el.
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
- În cele din urmă, puteți adăuga macrocomenzile „EditNote” și „DeleteNotes” în panglică.
- În cele din urmă, după ce faceți clic pe „OK” și reveniți la fereastra principală, puteți încerca să editați o notă.
- Selectați o notă și faceți clic pe butonul „Editați nota”.
- Apoi, va apărea o nouă casetă de dialog, în care puteți edita nota selectată.
- După editare, faceți clic pe „OK”. Nota va fi actualizată.
- De asemenea, puteți încerca să ștergeți orice notă.
- Selectați nota pe care doriți să o ștergeți.
- Faceți clic pe butonul „Șterge notele” din panglică.
- Această notă va fi ștearsă imediat.
Preveniți pierderea datelor din Outlook
Căutați o soluție puternică pentru a bloca pierderea de date din Outlook? Sincer, atâta timp cât faceți copii de rezervă regulate ale datelor Outlook, puteți evita pierderea datelor PST cu ușurință. De exemplu, chiar dacă PST-ul este deteriorat, tot puteți face cu ușurință recuperați PST datele din fișierul PST susținut ca o briză.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com