2 modi rapidi per copiare tutte le immagini da un foglio di lavoro Excel a un'e-mail di Outlook

A volte, potrebbe essere necessario copiare tutte le immagini incorporate in un foglio di lavoro di Excel in un'e-mail di Outlook. In questo momento, puoi leggere questo articolo. Qui ti presenteremo 2 metodi rapidi.

È facile copiare un'immagine da un foglio di lavoro Excel a un'e-mail di Outlook. Puoi semplicemente selezionare e premere "Ctrl + C" per copiare questa immagine. Eppure, se le immagini da copiare sono tante, copiarle una ad una è indubbiamente un modo stupido e noioso. Quindi, qui ti presenteremo 2 modi molto più efficaci. Ora continua a leggere per ottenerli in dettaglio.

Metodo 1: selezionare e copiare manualmente tutte le immagini nel foglio di lavoro di Excel

1. Per iniziare, apri il foglio di lavoro Excel specifico.
2. Quindi, premere il tasto "F5".
3. Nella finestra di dialogo popup "Vai a", fai clic sul pulsante "Speciale".
4. Successivamente, nella nuova finestra di dialogo "Vai a speciale", seleziona "Oggetti" e fai clic su "OK".
5. In una volta, tutte le immagini incorporate sono state selezionate.
6. Ora premi "Ctrl + C" per copiare tutte le immagini selezionate.
7. Successivamente, avvia Outlook e crea una nuova email.
8. Successivamente, posiziona il cursore nel corpo del messaggio e premi "Ctrl + V".
9. Immediatamente, tutte le immagini copiate verranno incollate nel corpo dell'email, come nella figura seguente.

Metodo 2: copia tutte le immagini dal foglio di lavoro all'e-mail con VBA

1. Per iniziare, in Excel, premi “Alt + F11” per attivare l’editor VBA di Excel.
2. Quindi, inserisci il codice VBA di seguito in un modulo o progetto.

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

3. Successivamente, premi il tasto "F5" nella macro corrente.
4. Immediatamente, verrà visualizzata una nuova e-mail.
5. Qui potresti ricevere un avviso, in cui devi fare clic su "Consenti".
6. Alla fine, tutte le immagini nello specifico foglio di lavoro di Excel saranno nel corpo dell'e-mail, come mostrato nello screenshot seguente.

Cerca tutti i rischi intorno a Outlook

Outlook è suscettibile alla corruzione in quanto ci sono troppe minacce intorno ad esso, come virus, errori di sistema, guasti hardware e problemi di alimentazione e così via. Quindi, è necessario che tu stia attento a tutti questi fattori pericolosi. Prima di tutto, non dovresti mai fidarti prontamente delle e-mail di mittenti sconosciuti. Inoltre, faresti meglio a eseguire periodicamente il backup del tuo file di Outlook. Ultimo ma non meno importante, per correggere PST file in tempo, dovresti preparare uno strumento di riparazione all'avanguardia, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui sql corrotto e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com