Sa Outlook, kapag kailangan mong kunin at kopyahin ang lahat ng mga talahanayan mula sa isang email patungo sa isa pa, walang alinlangan na nakakapagod at mahirap gawin itong manu-mano. Ang artikulong ito ay magbabahagi ng mas matalinong paraan sa iyo.
Sa mga oras, maaaring gusto mong lumikha ng isang bagong email na naglalaman ng mga talahanayan ng isa pang email. Kung mayroon lamang isang talahanayan sa email, napakadali. Gayunpaman, kung maraming mga talahanayan sa pinagmulang email, ang manu-manong pagkopya ay masyadong nakakapagod. Kaya, sa mga sumusunod, magpapakilala kami ng isa pang paraan na mas epektibo at matalino.
Kopyahin ang Lahat ng Mga Talahanayan mula sa Isang Email patungo sa Isa pa
- Bilang panimula, dapat mong ma-access ang iyong Outlook gaya ng dati.
- Pagkatapos, sa pangunahing window ng Outlook, maaari mong pindutin ang mga pindutan ng shortcut na "Alt + F11".
- Kasunod, sa popup window na "Microsoft Visual Basic para sa Mga Aplikasyon" na window, kailangan mong buksan ang isang hindi nagamit na module o simpleng magpasok ng bago.
- Susunod, maaari mong kopyahin ang sumusunod na VBA code sa modyul na ito.
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
- Pagkatapos nito, maaari kang lumabas sa kasalukuyang window ng editor ng VBA.
- Sa paglaon dapat mong baguhin ang iyong mga setting ng macro sa Outlook upang paganahin ang lahat ng mga macros.
- Gayundin, mas mahusay kang idagdag ang macro na ito sa Quick Access Toolbar, na maaaring magawa sa "Mga Pagpipilian sa Outlook".
- Sa wakas maaari kang magkaroon ng isang pagsubok:
- Sa simula pa lamang, buksan o pumili ng isang email na ang mga talahanayan upang makopya.
- Pagkatapos, pindutin ang bagong idinagdag na pindutan ng macro sa Quick Access Toolbar.
- Matapos ang pagtakbo ng makro, lalabas ang isang bagong email, kung saan na-paste ang mga talahanayan ng mapagkukunang email.
Ipagtanggol ang File ng Outlook laban sa Korapsyon
Bagaman maaaring gampanan ng Outlook ang isang mabuting papel kahit na isang nakapag-iisang email client o isang pribadong tagapamahala ng iskedyul, hindi pa rin ito maiiwasan sa mga pagkakamali at katiwalian. Samakatuwid, walang alinlangan na isang mahirap at nakakapagod na gawain upang protektahan ang iyong data sa Outlook. Kailangan mong panatilihin ang mga tab sa iyong pang-araw-araw na pag-uugali sa Outlook, tulad ng huwag mag-click sa mga kahina-hinalang link, mag-download ng hindi ligtas na mga kalakip o isara nang hindi wasto ang Outlook at iba pa. Siyempre, kinakailangan upang mapanatili mo ang isang tool sa pag-aayos ng bituin sa malapit, tulad ng DataNumen Outlook Repair sa kaya nito kumpunihin ang Outlook mga kaguluhan tulad ng isang simoy.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang pag-aayos ng mdf at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa