Outlook бағдарламасында барлық кестелерді бір электрондық поштадан екіншісіне көшіру қажет болған кезде, оны қолмен жасау сөзсіз жалықтыратыны және ауыр екендігі сөзсіз. Бұл мақала сізбен әлдеқайда ақылдырақ болады.
Кейде сіз басқа электрондық пошта кестелері бар жаңа электрондық пошта жасағыңыз келуі мүмкін. Егер электрондық поштада бір ғана кесте болса, бұл өте оңай. Алайда, егер бастапқы электрондық поштада бірнеше кесте болса, қолмен көшіру өте қиын. Сонымен, келесіде біз әлдеқайда тиімді және ақылды болатын тағы бір әдісті енгіземіз.
Барлық кестелерді басқа электрондық поштаға көшіру
- Бастау үшін, сіз Outlook бағдарламасына әдеттегідей кіруіңіз керек.
- Содан кейін негізгі Outlook терезесінде «Alt + F11» пернелер тіркесімін басуға болады.
- Кейіннен «Microsoft Visual Basic for Applications» терезесінде сізге пайдаланылмаған модульді ашу керек немесе жаңасын енгізу керек.
- Осыдан кейін сіз келесі VBA кодын осы модульге көшіре аласыз.
Sub CopyAllTablesFromOneEmailToAnother()
Dim objSourceMail As Outlook.MailItem
Dim objSourceMailDocument As Word.Document
Dim objNewMail As Outlook.MailItem
Dim objNewMailDocument As Word.Document
Dim objTable As Word.Table
'Get the source email
Select Case TypeName(Application.ActiveWindow)
Case "Explorer"
Set objSourceMail = ActiveExplorer.Selection.Item(1)
objSourceMail.Display
Case "Inspector"
Set objSourceMail = ActiveInspector.CurrentItem
End Select
Set objSourceMailDocument = objSourceMail.GetInspector.WordEditor
If objSourceMailDocument.Tables.count > 0 Then
'Create a new email
Set objNewMail = Application.CreateItem(olMailItem)
For Each objTable In objSourceMailDocument.Tables
Set objNewMailDocument = objNewMail.GetInspector.WordEditor
'Copy all tables from source email to the new email
With objNewMailDocument.Range
.Collapse wdCollapseEnd
.FormattedText = objTable.Range.FormattedText
.Collapse wdCollapseEnd
.Text = vbCrLf
End With
Next
'Close the source email
objSourceMail.Close olSave
'Display the new email
objNewMail.Display
End If
End Sub
- Осыдан кейін сіз ағымдағы VBA редакторы терезесінен шыға аласыз.
- Кейінірек барлық макростарды қосу үшін Outlook макро параметрлерін өзгерту керек.
- Сондай-ақ, бұл макросты жылдам қол жетімді құралдар тақтасына қосқан жөн, оны «Outlook параметрлері» арқылы жасауға болады.
- Соңында сіз көріңіз:
- Ең басында кестелері көшірілетін электрондық поштаны ашыңыз немесе таңдаңыз.
- Содан кейін, жылдам қол жеткізу құралдар тақтасында жаңадан қосылған макро батырмасын басыңыз.
- Макросты аяқтағаннан кейін бастапқы электрондық пошта кестелері жабыстырылған жаңа электрондық пошта пайда болады.
Outlook файлын жемқорлықтан қорғаңыз
Outlook бағдарламасы жеке электрондық пошта клиенті немесе жеке кесте менеджері бола тұра жақсы рөл атқара алатындығына қарамастан, ол қателіктер мен бұзылулардан қорғансыз бола алмайды. Демек, сіздің Outlook деректеріңізді қорғау қиын әрі жалықтыратын міндет екені сөзсіз. Outlook бағдарламасында сіз өзіңіздің күнделікті мінез-құлқыңызға қатысты күдікті сілтемелерді баспаңыз, қауіпті тіркемелерді жүктемеңіз немесе Outlook бағдарламасын дұрыс жабмаңыз және т.б. сияқты қойындыларды сақтауыңыз керек. Әрине, сізге жұлдызды жөндеу құралын жақын жерде ұстау қажет, мысалы DataNumen Outlook Repair бұл мүмкін Outlook бағдарламасын жөндеу самал сияқты қиындықтар.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com