Outlook'ta Tüm Tabloları Bir E-postadan Diğerine Hızlıca Kopyalama

Outlook'ta, tüm tabloları bir e-postadan diğerine çıkarmanız ve kopyalamanız gerektiğinde, bunu manuel olarak yapmak şüphesiz sıkıcı ve külfetlidir. Bu makale sizinle çok daha akıllı bir yol paylaşacak.

Bazen başka bir e-postanın tablolarını içeren yeni bir e-posta oluşturmak isteyebilirsiniz. E-postada yalnızca bir tablo varsa, bu çok kolaydır. Ancak, kaynak e-postada birden çok tablo varsa, manuel olarak kopyalamak çok zahmetlidir. Bu nedenle, aşağıda çok daha etkili ve akıllı olan başka bir yolu tanıtacağız.

Tüm Tabloları Bir E-postadan Diğerine Kopyala

1. Öncelikle, Outlook'unuza her zamanki gibi giriş yapmalısınız.
2. Ardından, ana Outlook penceresinde “Alt + F11” kısayol tuşlarına basabilirsiniz.
3. Daha sonra açılan "Uygulamalar için Microsoft Visual Basic" penceresinde, kullanılmayan bir modülü açmanız veya yeni bir tane eklemeniz yeterlidir.
4. Ardından, aşağıdaki VBA kodunu bu modüle kopyalayabilirsiniz.

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, mevcut VBA editör penceresinden çıkabilirsiniz.
6. Daha sonra, tüm makroları etkinleştirmek için Outlook makro ayarlarınızı değiştirmeniz gerekir.
7. Ayrıca, bu makroyu "Outlook Seçenekleri"nde gerçekleştirilebilen Hızlı Erişim Araç Çubuğuna eklemeniz daha iyi olur.
8. Sonunda bir deneyebilirsin:

• En başta, tabloları kopyalanacak bir e-postayı açın veya seçin.
• Ardından, Hızlı Erişim Araç Çubuğunda yeni eklenen makro düğmesine basın.
• Makro çalışmayı bitirdikten sonra, kaynak e-posta tablolarının yapıştırıldığı yeni bir e-posta görünecektir.

Outlook Dosyasını Bozulmaya Karşı Koruyun

Outlook, bağımsız bir e-posta istemcisi veya özel bir zamanlama yöneticisi olarak iyi bir rol oynayabilse de, yine de hatalardan ve bozulmalardan muaf olamaz. Bu nedenle, Outlook verilerinizi korumak şüphesiz çetin ve meşakkatli bir iştir. Şüpheli bağlantılara tıklamayın, güvenli olmayan ekleri karşıdan yüklemeyin veya Outlook'u yanlış şekilde kapatın vb. gibi Outlook'ta günlük davranışlarınızı takip etmelisiniz. Tabii ki, yakınınızda bir yıldız onarım aracı bulundurmanız gerekir, örneğin DataNumen Outlook Repair yapabileceği konusunda Outlook'u onar rüzgar gibi dertler

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. mdf onarımı ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com