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

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

Менің алдыңғы мақалам «2 Excel жұмыс парағын Outlook электрондық поштасы ретінде жіберудің жылдам әдістері»Сізге Excel жұмыс парағын электрондық пошта ретінде қалай жіберуге болатынын үйретті. Алайда, кейде сіз жұмыс парағындағы таңдалған ұяшықтарды тек электрондық пошта ретінде жібергіңіз келеді. Бұл талапқа жауап ретінде біз сізге 2 әдісті ұсынамыз. Сіз өз қалауыңыз бойынша таңдай аласыз.

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

1. Бастау үшін бастапқы Excel файлын ашып, дұрыс Excel жұмыс парағына өтіңіз.
2. Содан кейін Outlook электрондық поштасы ретінде жібергіңіз келетін ұяшықтарды таңдаңыз.
3. Содан кейін таңдалған ұяшықтарды көшіру үшін «Ctrl + C» пернелер тіркесімін басыңыз.
4. Осыдан кейін Outlook бағдарламасын іске қосыңыз.
5. Содан кейін Outlook бағдарламасының жаңа электрондық поштасын жасау үшін «Үй» таспасындағы «Жаңа электрондық пошта» түймесін басыңыз.
6. Кейін жаңа Хабарлама терезесінде хабардың негізгі бөлімін нұқыңыз.
7. Алдын ала көшірілген Excel ұяшықтарын қою үшін «Ctrl + V» пернелер тіркесімін басыңыз.
8. Ақырында, сіз электрондық поштаны әдеттегідей жаза аласыз және оны жіберу үшін «Жіберу» түймесін басыңыз.

2 -әдіс: Таңдалған ұяшықтарды VBA арқылы электрондық пошта ретінде жіберу

1. Ең басында Excel жұмыс кітабын ашыңыз.
2. Содан кейін Excel VBA редакторына кіру үшін «Alt + F11» пернелер тіркесімін басыңыз.
3. Жаңа терезеде жаңа модульді енгізу үшін «Кірістіру»> «Модуль» түймесін басыңыз.
4. Келесі қадам Microsoft Outlook нысанын қосу керек. «Құралдар» > «Сілтемелер» тармағын таңдаңыз. Қалқымалы диалогтық терезеде «Microsoft Outlook нысан кітапханасын» тауып, белгілеңіз.
5. Осы модульге келесі VBA кодын көшіріңіз.

Sub SendSelectedCells_inOutlookEmail()
    Dim objSelection As Excel.Range
    Dim objTempWorkbook As Excel.Workbook
    Dim objTempWorksheet As Excel.Worksheet
    Dim strTempHTMLFile As String
    Dim objTempHTMLFile As Object
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim objOutlookApp As Outlook.Application
    Dim objNewEmail As Outlook.MailItem
 
    'Copy the selection
    Set objSelection = Selection
    Selection.Copy
 
    'Paste the copied selected ranges into a temp worksheet
    Set objTempWorkbook = Excel.Application.Workbooks.Add(1)
    Set objTempWorksheet = objTempWorkbook.Sheets(1)
 
    'Keep the values, column widths and formats in pasting
    With objTempWorksheet.Cells(1)
         .PasteSpecial xlPasteValues
         .PasteSpecial xlPasteColumnWidths
         .PasteSpecial xlPasteFormats
    End With
 
    'Save the temp worksheet as a HTML file
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")
    strTempHTMLFile = objFileSystem.GetSpecialFolder(2).Path & "\Temp for Excel" & Format(Now, "YYYY-MM-DD hh-mm-ss") & ".htm"
    Set objTempHTMLFile = objTempWorkbook.PublishObjects.Add(xlSourceRange, strTempHTMLFile, objTempWorksheet.Name, objTempWorksheet.UsedRange.Address)
    objTempHTMLFile.Publish (True)
 
    'Create a new email
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objNewEmail = objOutlookApp.CreateItem(olMailItem)
 
    'Read the HTML file data and insert into the email body
    Set objTextStream = objFileSystem.OpenTextFile(strTempHTMLFile)
    objNewEmail.HTMLBody = objTextStream.ReadAll
    objNewEmail.Display
    'You can specify the new email recipients, subjects here using the following lines:
    'objNewEmail.To = "johnsmith@datanumen.com"
    'objNewEmail.Subject = "DataNumen Products"
    'objNewEmail.Send --> directly send out this email
 
    objTextStream.Close
    objTempWorkbook.Close (False)
    objFileSystem.DeleteFile (strTempHTMLFile)
End Sub

6. Ақыр соңында, сіз көріңіз.

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

PST файлы Excel файлы сияқты осал

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

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

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