Cara Membuka E-mel yang Diterima / Dikirim dalam Mode "Edit" Secara Otomatis dengan Outlook VBA

Untuk menukar isi e-mel yang diterima atau dihantar dalam Outlook, anda perlu membukanya dan kemudian menukarnya kepada mod "Edit". Jika anda sering perlu membuat pengubahsuaian dalam e-mel sedemikian, anda perlu membukanya dalam Mod "Edit" secara automatik. Catatan ini akan membantu anda mendapatkannya.

Kadangkala, anda mungkin perlu mengubah kandungan e-mel yang diterima atau dihantar dalam Outlook. Dalam senario ini, seperti yang diperkenalkan dalam catatan sebelumnya – “Cara Mengubah Subjek & Isi E-mel yang Diterima di Outlook", Anda harus membuka email dan klik tombol" Tindakan "dan pilih" Edit Pesan "untuk mengubah e-mel menjadi mod" Edit ". Namun, anda mungkin menganggapnya masih sedikit menyusahkan. Oleh itu, anda ingin Outlook sentiasa membuka e-mel yang diterima / dihantar dalam mod "Edit". Selepas itu, kami akan memperkenalkan cara menggunakan kod VBA untuk mencapai fungsi ini. Sekarang baca untuk mendapatkan langkah terperinci.

Buka E-mel yang Diterima / Dikirim dalam Mod "Edit" Secara Automatik

1. Pada peringkat awal, dengan merujuk kepada “Cara Menjalankan Kod VBA di Outlook Anda“, Akses editor Outlook VBA.
2. Kemudian, salin dan tampal kod VBA berikut ke dalam projek "ThisOutlookSession".

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objMailInspector As Outlook.Inspector

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

'Get the email window
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is MailItem Then
       Set objMailInspector = Inspector
    End If
End Sub

Private Sub objMailInspector_Activate()
    Dim objMail As Outlook.MailItem
 
    Set objMail = objMailInspector.CurrentItem
    'If it is a recieved/sent mail instead of a new email
    If Not (objMail.Recipients Is Nothing) And Not (objMail.Sender Is Nothing) Then
       'open in "Edit" mode
       objMailInspector.CommandBars.ExecuteMso ("EditMessage")
    End If
End Sub

3. Selepas itu, klik pada makro "Application_Startup" dan tekan kekunci "F5".
4. Buat masa ini, tutup penyunting VBA.
5. Akhirnya, anda boleh mencuba. Cukup klik dua kali pada surat yang diterima atau dihantar untuk membukanya. Ia pasti dalam mod "Edit".

Kekebalan dari Kehilangan Data Outlook

Adakah fail PST anda tidak dapat diakses? Pada hakikatnya, fail Outlook PST boleh mudah rosak. Contohnya, virus yang ditanggung e-mel dengan mudah boleh menyebabkan kerosakan Outlook dan dengan itu mengakibatkan kerosakan data Outlook. Dalam kes seperti itu, penyelesaian pertama yang berlaku di fikiran anda mungkin alat pembaikan peti masuk. Namun, secara umum, tidak dapat menangani situasi yang serius seperti itu. Oleh itu, selalu disarankan untuk membuat sandaran fail PST secara berkala, supaya anda dapat memulihkan data PST dari sandaran seperti gabus. Jika tidak, anda harus menggunakan alat luaran khusus, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com