Word құжатының арнайы беттерін Outlook электрондық поштасы ретінде қалай жылдам жіберуге болады

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

Егер сіз менің алдыңғы мақаламды оқыған болсаңыз «Word құжатының нақты беттерін Outlook электрондық поштасына қалай жылдам бекіту керек«, сіз Word құжатының нақты беттерін электрондық пошта тіркемесі ретінде емес, электрондық пошта ретінде тікелей жібере алатын әдісті сұрауға бейім болуыңыз мүмкін. Енді, төменде біз сізге VBA кодының бір бөлігін көрсетеміз, ол оны оңай жүзеге асыра алады.

Word құжатының арнайы беттерін Outlook электрондық поштасы ретінде жіберіңіз

1. Бастау үшін сіз нақты беттерін жібергіңіз келетін бастапқы Word құжатына қол жеткізуіңіз керек.
2. Содан кейін ашылған Word терезесінде «Alt + F11» түймелерін басу керек.
3. Ол «Microsoft Visual Basic for Applications» терезесін шығарады.
4. Бұл терезеде жаңа модульді енгізу керек.
5. Келесі қадамда «Microsoft Outlook нысандар кітапханасын» қосу керек.

• «Құралдар» түймесін басып, ашылмалы тізімнен «Анықтама» таңдаңыз.
• Қалқымалы диалогтық терезеде «Microsoft Outlook нысандар кітапханасы» пайда болғанша төмен айналдырыңыз. Оны қосып, «OK» түймесін басыңыз.

6. Осыдан кейін сіз төмендегі VBA кодының бөлігін осы модульге көшіре аласыз.

Sub SendSpecificPagesAsOutlookEmail()
    Dim objSelectedPages As Word.Range
    Dim objOutlookApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objMailDocument As Word.Document
 
    'Copy the contents from Page 3 to 4
    'Change the page number as per your needs
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=3
    Set objSelectedPages = Selection.Range
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=4
    objSelectedPages.End = Selection.Bookmarks("\Page").Range.End
    objSelectedPages.Select
    objSelectedPages.Copy
 
    'Get Outlook Application
    On Error Resume Next
    Set objOutlookApp = GetObject(, "Outlook.Application")
    If objOutlookApp Is Nothing Then
       Set objOutlookApp = CreateObject("Outlook.Application")
    End If
 
    'Create a new email
    Set objMail = objOutlookApp.CreateItem(olMailItem)
    objMail.Display
 
    'Paste the contents in specific pages into message body
    Set objMailDocument = objMail.GetInspector.WordEditor
    Set objTempRange = objMailDocument.Range(0, 0)
    objTempRange.PasteAndFormat (wdFormatOriginalFormatting)
End Sub

7. Ақыр соңында, сіз бұл макросты бірден іске қоса аласыз. Ағымдағы модульдегі «F5» пернесін басыңыз.
8. Келесі скриншот сияқты Outlook ескертуін алуыңыз мүмкін. «Рұқсат ету» түймесін тікелей басуға болады.
9. Сайып келгенде, сіз Word құжатының нақты беттерін қамтитын электрондық поштаны аласыз.

Outlook деректерін қорғауға назар аударыңыз

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

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

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