Hvis du raskt vil eksportere alle bildevedlegg av en Outlook-e-post til et Excel-regneark, kan du se denne artikkelen. Her vil vi vise deg en mer effektiv måte enn manuell eksport.
Når du mottar en e-post som inneholder ahost av bildevedlegg, hvis du vil bruke dem til å lage en rapport i Excel, må du lengte etter en måte som kan eksportere disse bildene til et Excel-regneark i grupper. Nå skal vi introdusere deg en slik tilnærming i det følgende.
Eksporter alle bildevedlegg av en e-post til et Excel-regneark
- Til å begynne med får du tilgang til Outlook-applikasjonen din på vanlig måte.
- Deretter, i Outlook-vinduet, trykker du på "Alt + F11" snarveier, som vil få opp vinduet "Microsoft Visual Basic for Applications".
- I denne skjermen må du åpne en modul som ikke er i bruk eller sette inn en ny rett.
- Deretter bør du kopiere VBA-koden nedenfor til denne modulen.
Sub ExportAllImage AttachmentsToExcelWorksheet() Dim objSourceMail As Outlook.MailItem Dim objAttachment As Outlook.Attachment Dim strImage As String Dim objExcelApp As Excel.Application Dim objExcelWorkbook As Excel.Workbook Dim objExcelWorksheet As objFiksheet As Dim ObjectR Velg sak Outlook.Application.ActiveWindow.Class Sak olInspector Set objSourceMail = ActiveInspector.currentItem Sak olExplorer Set objSourceMail = ActiveExplorer.Selection.Item(1) End Velg hvis ikke (objSourceMail er ingenting) Deretter 'Lagre bildevedleggene til et temporary-mappen strTempFolder = Environ("Temp") & "\" & Format(Nå, "åååymmddhhmmss") & "\" MkDir (strTempFolder) Sett objFileSystem = CreateObject("Scripting.FileSystemObject") for hver objAttachment i objSourceMail.Attachments IsEmbedded(objAttachment) = False Velg deretter sak LCase(objFileSystem.GetExtensionName(objAttachment.filename)) Sak "jpg", "jpeg", "png", "bmp", "gif" objAttachment.SaveAsFile strTempFolder & objAttachment Endelse.filnavn Select.filename End If Next 'Opprett en ny Excel-arbeidsbok Sett objExcelApp = CreateObject("Excel.Application") Sett objExcelWorkbook = objExcelApp.Workbooks.Add Sett objExcelWorksheet = objExcelWorkbook.Sheets(1) objExcelApp.Visible = 'True objcelWorkExtiv images inG tempoetrary-mappe Sett objFiles = objFileSystem.GetFolder(strTempFolder).Filer 'Sett inn bildene i dette nye Excel-regnearket for hver objFile I objFiles strImage = strTempFolder & Trim(objFile.Name) nRow = nRow + 1 With objExcelWorksheet("RangekSheetA. & nRow).value = objFile.Name 'Endre høyden og bredden i henhold til dine behov .Range("B" & nRow).ColumnWidth = 10 .Range("B" & nRow).RowHeight = 80 .Range("B " & nRow).Aktiver med .Pictures.insert(strImage) Med .ShapeRange .LockAspectRatio = msoTrue .Width = 50 .Height = 70 End With End With .Columns("A").AutoFit .Activate End With Next End If End Sub Function IsEmbedded(objCurAttachment As Outlook.Attachment) As Boolsk Dim objPropertyAccessor As Outlook.propertyAccessor Dim strProperty As String Set objPropertyAccessor = objCurAttachment.propertyAccessor strProperty = objPropertyAccessor/schemai/schemai/schemai/schemai/schemai 0E ") If InStr(3712001, strProperty, "@") > 1 Then IsEmbedded = True Else IsEmbedded = False End If End-funksjonen
- Etter det kan du avslutte makroen.
- Gå deretter til "Fil"> "Alternativer"> "Hurtigtilgangsverktøylinje" for å legge til denne makroen til verktøylinjen for hurtigtilgang.
- Endelig kan du prøve denne makroen akkurat nå.
- Først velger eller åpner du en kilde-e-post.
- Klikk deretter på makroknappen i verktøylinjen for hurtigtilgang.
- Når makroen er fullført, vil du få et Excel-regneark, vist som følgende skjermbilde:
Beskytt Outlook-filen mot å bli korrupt
Det er kjent at Outlook er utsatt for korrupsjon. Derfor bør vi forstå hvordan vi beskytter Outlook-formkorrupsjon. Først og fremst, for å blokkere virusangrep, er det nødvendig å installere antivirusprogramvare og aldri laste ned ukjent vedlegg. Dessuten er vi bedre å få tak i et potent reparasjonsverktøy, som f.eks DataNumen Outlook Repair. Det kan tilby most effektivt middel i tilfelle Outlook-korrupsjon.
Forfatterintroduksjon:
Shirley Zhang er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert sql utvinning og Outlook-reparasjonsprodukter. For mer informasjon besøk www.datanumen. Med
1