Excel жұмыс парағынан Outlook электрондық поштасына барлық кескіндерді көшірудің 2 жылдам жолы

Кейде Excel жұмыс парағындағы барлық ендірілген кескіндерді Outlook электрондық поштасына көшіру қажет болуы мүмкін. Осы уақытта сіз бұл мақаланы оқи аласыз. Мұнда біз сізге 2 жылдам әдісті ұсынамыз.

Кескінді Excel жұмыс парағынан Outlook электрондық поштасына көшіру оңай. Бұл кескінді көшіру үшін жай ғана таңдап, «Ctrl + C» пернелерін басуыңызға болады. Дегенмен, көшірілетін суреттер көп болса, бір-бірден көшіру, сөзсіз, ақымақ және жалықтыратын әдіс. Сондықтан, біз сізге әлдеқайда тиімді 2 жолды ұсынамыз. Енді оларды егжей-тегжейлі білу үшін оқыңыз.

1-әдіс: Excel жұмыс парағындағы барлық кескіндерді қолмен таңдау және көшіру

1. Бастау үшін, арнайы Excel жұмыс парағын ашыңыз.
2. Содан кейін «F5» батырмасын басыңыз.
3. Қалқымалы «Өту» диалогтық терезесінде «Арнайы» түймесін басыңыз.
4. Әрі қарай, жаңа «Арнайыға өту» тілқатысу терезесінде «Объектілерді» таңдап, «OK» түймесін басыңыз.
5. Бірден барлық ендірілген кескіндер таңдалды.
6. Енді барлық таңдалған кескіндерді көшіру үшін «Ctrl + C» басыңыз.
7. Осыдан кейін Outlook бағдарламасын іске қосыңыз және жаңа электрондық пошта жасаңыз.
8. Кейінірек курсорды хабардың негізгі бөлігіне қойып, «Ctrl + V» пернелерін басыңыз.
9. Бірден барлық көшірілген кескіндер келесі суреттегідей электрондық поштаның негізгі мәтініне қойылады.

2-әдіс: VBA көмегімен барлық кескіндерді жұмыс парағынан электрондық поштаға көшіріңіз

1. Excel бағдарламасында бастау үшін Excel VBA редакторын іске қосу үшін «Alt + F11» пернелер тіркесімін басыңыз.
2. Содан кейін төмендегі VBA кодын модульге немесе жобаға қойыңыз.

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. Содан кейін ағымдағы макроста «F5» пернесін басыңыз.
4. Бірден жаңа электрондық пошта көрсетіледі.
5. Мұнда сіз «Рұқсат ету» түймесін басу керек болатын ескерту аласыз.
6. Соңында, келесі скриншотта көрсетілгендей, арнайы Excel жұмыс парағындағы барлық кескіндер электрондық поштаның негізгі бөлігінде болады.

Outlook айналасындағы барлық тәуекелдерге назар аударыңыз

Outlook сыбайлас жемқорлыққа бейім, өйткені оның айналасында вирус, жүйе ақаулары, аппараттық құрал ақаулары, қуат мәселелері және т.б. сияқты қауіптер тым көп. Сондықтан сіз осы қауіпті факторлардың барлығына назар аударуыңыз керек. Біріншіден, белгісіз жіберушілердің электрондық хаттарына ешқашан сенбеу керек. Сонымен қатар, Outlook файлының сақтық көшірмесін мерзімді түрде жасап тұрғаныңыз жөн. Соңғысы, бірақ кем дегенде PST түзету файлды уақытында толтыру үшін сізге ең озық жөндеу құралын дайындау керек, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. сыбайлас кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com