Si të ekstraktoni automatikisht imazhet e integruara nga emailet hyrëse specifike përmes Outlook VBA

Nëse dëshironi që Outlook të nxjerrë automatikisht dhe të ruajë imazhet e ngulitura nga emailet specifike hyrëse, mund t'i referoheni këtij artikulli. Këtu do t'ju mësojmë se si ta realizoni atë me kodin VBA.

Disa përdorues shpesh duhet të nxjerrin imazhet e integruara nga emailet specifike hyrëse dhe t'i ruajnë ato në një dosje të caktuar Windows. Është kaq e mundimshme ta bësh këtë me dorë çdo herë. Prandaj, shumë presin me padurim të mësojnë një qasje të shpejtë dhe të përshtatshme për të lejuar që Outlook ta përmbushë atë automatikisht. Tani, këtu do të ndajmë me ju një metodë të tillë.

Ekstraktoni automatikisht imazhet e ngulitura nga emailet hyrëse specifike

1. Fillimisht, nisni programin tuaj Outlook si zakonisht.
2. Më pas, aktivizoni redaktorin VBA të Outlook si zakonisht me referencë t "Si të ekzekutoni kodin VBA në Outlook tuaj".
3. Më vonë, kopjoni dhe ngjisni kodin e mëposhtëm VBA në projektin "ThisOutlookSession".

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.Attachments
    Dim objAttachment As Outlook.Attachment
    Dim strWindowsFolder As String
    Dim i As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Specify the emails as per your needs
       If objMail.Importance = olImportanceHigh Then
          Set objAttachments = objMail.Attachments
 
          'Specify the windows folder
          strWindowsFolder = "E:\" & objMail.Subject & Format(Now, "yymmddhhmmss")
          MkDir (strWindowsFolder)
 
          'Save all embedded images to the folder
          For i = 1 To objAttachments.Count
              Set objAttachment = objAttachments.Item(i)
              If IsEmbedded(objAttachment) = True Then
                 objAttachment.SaveAsFile strWindowsFolder & "\" & objAttachment.FileName
              End If
          Next
      End If
    End If
End Sub

Function IsEmbedded(objCurAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.PropertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurAttachment.PropertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbedded = True
    Else
       IsEmbedded = False
    End If
End Function

4. Pas kësaj, klikoni në nënprogramin "Application_Startup".
5. Më në fund, klikoni butonin "F5" për të aktivizuar këtë makro.
6. Që tani e tutje, çdo herë kur një email specifik i ri arrin në Inbox, imazhet e ngulitura do të ruhen në dosjen specifike të Windows, siç tregohet në pamjen e mëposhtme të ekranit.

Pastroni rregullisht bashkëngjitjet e mëdha

Këshillohet që të pastroni rregullisht bashkëngjitjet e mëdha nga Outlook-u juaj. Kjo synon ta mbajë skedarin tuaj Outlook në madhësinë e duhur. Skedarët më të mëdhenj të Outlook-ut janë më të ndjeshëm ndaj korruptimit. Siç e dini, dëmtimi i PST-së është mjaft i vështirë për t'u trajtuar mirë. Ndoshta së pari do të përpiqeni ta rregulloni atë përmes mjetit të riparimit të kutisë hyrëse. Megjithatë, në shumicën e rasteve, nuk do të funksionojë. Zgjidhja juaj e vetme është një mjet i specializuar. Riparimi i PST mjet, si DataNumen Outlook Repair, ose shërbimet përkatëse të rimëkëmbjes profesionale.

Hyrje e autorit:

Shirley Zhang është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë rregullim mdf dhe produkte softuerike të riparimit të pamjes. Për më shumë informacion vizitoni www.datanumen.com