Kuidas kiiresti hankida manusteabe loend e-kirjast Outlook VBA abil

Outlooki lahendused September 29, 2025

Kas olete kunagi tahtnud avatud või valitud meilist manusteabe loendit välja võtta? Peate tundma, et selle käsitsi hankimine võtab aega. See artikkel tutvustab teile kiiret meetodit selle saavutamiseks Outlook VBA abil.

Mõnel põhjusel võidakse teilt nõuda e-kirjast manusteabe loendit, sealhulgas manuse nime, registrit ja suurust jne. Võib-olla sellepärast, et peate koostama aruande või vastama meilile koos manuste loendiga. . Sõltumata sellest, miks te seda vajate, on käsitsi tehes, nimelt ükshaaval kontrollides ja kopeerides, üsna tülikas ja veatundlik. Miks sa siis ei kasuta VBA-d? See võib aidata teil hankida utm-iga manuste kohta igasugust teavetost kergus. Siin on üksikasjalikud sammud ja vastavad VBA-koodid.

Ekstraktige e-kirjast manusteabe loend

  1. Alguses käivitage Outlook nagu tavaliselt.
  2. Seejärel vajutage VBA redaktori avamiseks kiirklahve "Alt + F11".
  3. Järgmises aknas peaksite avama mooduli, mida ei kasutata, või sisestama uue mooduli, valides “Insert” > “Module”.
  4. Järgmisena saate kopeerida ja uude moodulisse kleepida järgmised VBA koodid.
Sub GetlAttachmentList()
    Dim olItem As MailItem
    Dim olAtt As attachment
    Dim olAtts As Attachments
    Dim sAttInfo As String
    Dim Dataobj As DataObject
 
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set olItem = ActiveExplorer.Selection.Item(1)
           Case olInspetor
                Set olItem = ActiveInspector.CurrentItem
    End Select
 
    If TypeOf olItem Is MailItem Then
       Set olAtts = olItem.Attachments
       If olAtts.Count > 0 Then
          For Each olAtt In olAtts
              sAttInfo = sAttInfo & vbCrLf & "------------------------------------------------------------" & vbCrLf
              sAttInfo = sAttInfo & "No. " & olAtt.Index & " : " & olAtt.DisplayName & " Size: " & olAtt.Size & ".KB"
          Next
          sAttInfo = sAttInfo & vbCrLf & "------------------------------------------------------------"
          'Copy the attachment list
          Set Dataobj = New MSForms.DataObject
          Dataobj.SetText sAttInfo
          Dataobj.PutInClipboard
       End If
    End If
End Sub

VBA koodid – ekstraktige meilist manusteabe loend

  1. Pärast seda saate sulgeda praeguse akna ja minna kiirpääsu tööriistaribale uue projekti lisamiseks.
  • Esiteks minge "Fail" > "Valikud".
  • Seejärel lülituge aknas "Outlooki suvandid" vahekaardile "Kiire juurdepääsu tööriistariba".
  • Seejärel järgige uue makro lisamiseks alloleval ekraanipildil näidatud samme.Lisage kiirjuurdepääsu tööriistaribale makro GetAttachmentList
  1. Pärast Outlooki põhiaknasse naasmist võite proovida.
  • Esiteks valige e-kiri ja vajutage kiirpääsu tööriistaribal makronuppu.
  • Seejärel lisatakse selle meili manuste loend lõikepuhvrisse.
  • Nüüd saate avada uue e-kirja või mis tahes tühja dokumendi ja vajutada "Ctrl + V". Seejärel näete loendit, nagu järgmine ekraanipilt:Hankige manuste teabe loend

Ärge kunagi viivitage Outlooki probleemide lahendamisel

Ei saa eitada, et Outlookil on suurim varjukülg – sagedased vead, nt Outlooki meili viga, Outlooki krahh, hangub või ei reageeri ja nii edasi. Seega pidi mitu kasutajat palju vaevama. Tegelikult saate proovimiseks esmalt kasutada postkasti parandamise tööriista. Kui see ebaõnnestub, peate võib-olla kasutama võimsamat tööriista, näiteks DataNumen Outlook Repair.

Autori sissejuhatus:

Shirley Zhang on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont rikutud SQL Server mdf db ja Outlooki remonditarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom

Kommentaarid on suletud.