Excel- ի աշխատանքային թերթիկից Outlook էլփոստի բոլոր պատկերները պատճենելու 2 արագ եղանակ

Երբեմն կարող է անհրաժեշտ լինել, որ բոլոր ներկառուցված պատկերները պատճենեք Excel- ի աշխատանքային թերթում Outlook- ի էլ. Այս պահին կարող եք կարդալ այս հոդվածը: Այստեղ մենք ձեզ կներկայացնենք 2 արագ մեթոդ:

Excel- ի աշխատանքային թերթիկից նկարը հեշտ է պատճենել Outlook էլ. Այս պատկերը պատճենելու համար կարող եք պարզապես ընտրել և սեղմել «Ctrl + C»: Այնուամենայնիվ, եթե շատ պատկերներ կան պատճենելու, մեկ առ մեկ պատճենելը, անկասկած, հիմար և հոգնեցուցիչ միջոց է: Այսպիսով, այստեղ մենք ձեզ կներկայացնենք 2 շատ ավելի արդյունավետ ձևեր: Այժմ կարդացեք դրանք մանրամասն ստանալու համար:

Մեթոդ 1. Ձեռքով ընտրեք և պատճենեք Excel- ի աշխատանքային թերթի բոլոր պատկերները

1. Սկսելու համար բացեք Excel-ի հատուկ աշխատանքային թերթիկը։
2. Դրանից հետո սեղմեք «F5» ստեղնի կոճակը:
3. «Գնալ» պատուհանի պատուհանի պատուհանում կտտացնել «Հատուկ» կոճակին:
4. Հաջորդը, նոր «Գնալ հատուկ» երկխոսության դաշտում ընտրեք «Օբյեկտներ» և կտտացրեք «Լավ»:
5. Միանգամից ընտրված են բոլոր ներկառուցված պատկերները:
6. Այժմ սեղմեք «Ctrl + C» ՝ բոլոր ընտրված պատկերները պատճենելու համար:
7. Դրանից հետո գործարկեք Outlook- ը և ստեղծեք նոր էլ.
8. Ավելի ուշ կուրսորը դրեք հաղորդագրության մարմնում և սեղմեք «Ctrl + V»:
9. Անմիջապես, պատճենված բոլոր պատկերները կփակցվեն էլփոստի մարմնում, ինչպես հետևյալ նկարը:

Մեթոդ 2. Պատճենեք բոլոր պատկերները աշխատաթերթից էլփոստով VBA- ով

1. Սկսելու համար, Excel-ում սեղմեք «Alt + F11»՝ Excel VBA խմբագրիչը գործարկելու համար։
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.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված sql և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com