Soms moet u mogelijk alle ingesloten afbeeldingen in een Excel-werkblad kopiëren naar een Outlook-e-mail. Op dit moment kunt u dit artikel lezen. Hier introduceren we u 2 snelle methoden.
Het is gemakkelijk om een afbeelding van een Excel-werkblad naar een Outlook-e-mail te kopiëren. U kunt gewoon selecteren en op "Ctrl + C" drukken om deze afbeelding te kopiëren. Maar als er veel afbeeldingen moeten worden gekopieerd, is het stuk voor stuk kopiëren ongetwijfeld een domme en vervelende manier. Daarom zullen we u hier 2 veel effectievere manieren voorstellen. Lees nu verder om ze in detail te bekijken.
Methode 1: selecteer en kopieer alle afbeeldingen handmatig in het Excel-werkblad
- Open om te beginnen het betreffende Excel-werkblad.
- Druk vervolgens op de toets "F5".
- Klik in het pop-upvenster "Ga naar" op de knop "Speciaal".
- Selecteer vervolgens in het nieuwe dialoogvenster "Ga naar speciaal" "Objecten" en klik op "OK".
- In één keer zijn alle ingesloten afbeeldingen geselecteerd.
- Druk nu op "Ctrl + C" om alle geselecteerde afbeeldingen te kopiëren.
- Start daarna Outlook en maak een nieuwe e-mail aan.
- Plaats later de cursor in de berichttekst en druk op "Ctrl + V".
- Alle gekopieerde afbeeldingen worden onmiddellijk in de hoofdtekst van de e-mail geplakt, zoals in de volgende afbeelding.
Methode 2: kopieer alle afbeeldingen van werkblad naar e-mail met VBA
- Om te beginnen, druk in Excel op "Alt + F11" om de Excel VBA-editor te openen.
- Plaats vervolgens de onderstaande VBA-code in een module of project.
Sub CopyImagesToMail()
Dim objWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
Dim objMailDocument As Object
Dim objShape As Excel.Shape
'Get the specific worksheet
Set objWorksheet = ThisWorkbook.Worksheets(1)
'Create a new email
Set objOutlookApp = CreateObject("Outlook.application")
Set objMail = objOutlookApp.CreateItem(objOutlookAppobjMailItem)
objMail.Display
Set objMailDocument = objMail.GetInspector.WordEditor
'Copy images to the email
For Each objShape In objWorksheet.Shapes
objShape.Copy
objMailDocument.Range(0, 0).Paste
Next
End Sub
- Druk vervolgens op de toets "F5" in de huidige macro.
- Meteen wordt een nieuwe e-mail weergegeven.
- Hier kunt u een waarschuwing krijgen, waarin u op "Toestaan" moet klikken.
- Uiteindelijk zullen alle afbeeldingen in het specifieke Excel-werkblad in de hoofdtekst van de e-mail staan, zoals weergegeven in de volgende schermafbeelding.
Pas op voor alle risico's rond Outlook
Outlook is vatbaar voor corruptie omdat er te veel bedreigingen omheen zijn, zoals virussen, systeemstoringen, hardwarefouten en stroomproblemen, enzovoort. Daarom is het noodzakelijk dat u op al deze gevaarlijke factoren let. Allereerst moet u nooit gemakkelijk vertrouwen op e-mails van onbekende afzenders. Bovendien kun je maar beter regelmatig een back-up van je Outlook-bestand blijven maken. Last but not least, om repareer PST bestand op tijd, moet u een geavanceerd reparatiegereedschap voorbereiden, zoals DataNumen Outlook Repair.
Auteur Introductie:
Shirley Zhang is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder corrupte sql en Outlook-reparatiesoftwareproducten. Voor meer informatie bezoek www.datanumen.com