Outlook-da bütün cədvəlləri bir e-poçtdan digərinə necə tez köçürmək olar

Outlook-da, bütün cədvəlləri bir e-poçtdan digərinə çıxarmaq və köçürmək lazım olduqda, şübhəsiz ki, bunu əl ilə etmək yorucu və çətin olur. Bu məqalə sizinlə daha ağıllı bir üsul paylaşacaq.

Bəzən başqa bir e-poçtun cədvəllərini ehtiva edən yeni e-poçt yaratmaq istəyə bilərsiniz. E-poçtda yalnız bir cədvəl varsa, bu çox asandır. Bununla belə, mənbə e-poçtunda bir neçə cədvəl varsa, əl ilə kopyalamaq çox yorucudur. Beləliklə, aşağıda biz daha təsirli və ağıllı olan başqa bir üsul təqdim edəcəyik.

Bütün cədvəlləri bir e-poçtdan digərinə kopyalayın

1. Başlamaq üçün Outlook-a normal olaraq daxil olmalısınız.
2. Sonra, əsas Outlook pəncərəsində "Alt + F11" qısa yol düymələrini basa bilərsiniz.
3. Sonra, açılan "Proqramlar üçün Microsoft Visual Basic" pəncərəsində istifadə olunmamış modulu açmalı və ya sadəcə yenisini daxil etməlisiniz.
4. Sonra, aşağıdakı VBA kodunu bu modula köçürə bilərsiniz.

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

5. Bundan sonra, cari VBA redaktoru pəncərəsindən çıxa bilərsiniz.
6. Daha sonra bütün makroları aktivləşdirmək üçün Outlook makro parametrlərinizi dəyişdirməlisiniz.
7. Bundan əlavə, bu makrosunu "Outlook Seçimləri"ndə yerinə yetirilə bilən Tez Giriş Alətlər Panelinə əlavə etmək daha yaxşıdır.
8. Nəhayət, cəhd edə bilərsiniz:

• Ən əvvəlində cədvəlləri kopyalanacaq e-poçtu açın və ya seçin.
• Sonra, Tez Giriş Alətlər Panelində yeni əlavə edilmiş makro düyməsini vurun.
• Makro işləməyi tamamladıqdan sonra mənbə e-poçt cədvəllərinin yapışdırıldığı yeni e-poçt görünəcək.

Outlook faylını korrupsiyaya qarşı müdafiə edin

Baxmayaraq ki, Outlook müstəqil e-poçt müştərisi və ya şəxsi cədvəl meneceri kimi yaxşı rol oynaya bilsə də, o, hələ də səhvlərdən və pozulmalardan qoruna bilməz. Buna görə də, şübhəsiz ki, Outlook məlumatlarınızı qorumaq çətin və yorucu bir işdir. Siz Outlook-da gündəlik davranışlarınıza, məsələn, şübhəli keçidlərə klikləməyin, təhlükəli qoşmaları yükləməyin və ya Outlook-u düzgün bağlamayın və s. Təbii ki, yaxınlıqda bir ulduz təmir aləti saxlamaq lazımdır, məsələn DataNumen Outlook Repair ki, bilər Outlook-u təmir edin meh kimi çətinliklər.

Müəllif Giriş:

Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc mdf təmiri və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com