Cara Membalas Secara Automatik dengan E-mel Asal dan Teks yang Ditetapkan melalui Outlook VBA

Penyelesaian Outlook 29 September 2025

Sekiranya anda menggunakan peraturan Outlook untuk membalas secara automatik, anda akan mengetahui bahawa balasan automatik tidak dapat menyertakan mesej asal dalam isi. Artikel ini akan memperkenalkan kaedah mudah, yang dapat memasukkan e-mel dan teks yang telah ditentukan sebelumnya ke isi balasan automatik melalui Outlook VBA.

Di Outlook, akun Exchange mengizinkan pengguna untuk menetapkan balasan automatik secara langsung melalui butang "Balasan Automatik" di bawah tab "Info" di menu "Fail", seperti tangkapan layar berikut:

Tetapi jika anda menggunakan akaun E-mel Internet, tidak kira IMAP atau POP3, tidak ada butang "Balasan Automatik" yang tersedia. Satu-satunya cara untuk mengaktifkan balasan automatik adalah dengan membuat peraturan balasan automatik, yang ditunjukkan sebagai gambar berikut:

Walau bagaimanapun, peraturan balasan automatik oleh Outlook jenis ini tidak boleh memasukkan mesej asal secara automatik. Pada hakikatnya, kebanyakan orang ingin melampirkan e-mel asal dalam isi mesej balasan automatik. Dalam kes sedemikian, peraturan balasan automatik tidak dapat melaksanakannya dengan pasti. Oleh itu, kita harus menggunakan kod VBA Outlook. Jika anda berminat, teruskan membaca untuk mendapatkan langkah terperinci dan kod VBA.

Balas Auto dengan E-mel Asal dan Teks yang Ditetapkan

Pada mulanya, anda harus beralih ke tab "Pembangun" dan klik pada butang "Visual Basic".
Kemudian di tetingkap "Microsoft Visual Basic for Applications" yang baru, anda perlu mengklik dua kali pada projek "ThisOutlookSession" di sebelah kiri.
Selepas itu, projek "ThisOutlookSession" akan dibuka. Sekarang anda harus menyalin dan menampal kod VBA berikut ke dalamnya.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim olReply As MailItem
 
    If Item.Class = olMail Then
       Set olReply = Item.Reply
    Else
       Exit Sub
    End If
 
    With olReply
         'Type Your Own Auto Reply
         'Change "John Smith" to Your Own Name
         .Body = "This is a test auto reply." & vbCrLf & vbCrLf & "-------Original Message-------" & vbCrLf & "From: " & Item.Sender & "[mailto: " & Item.SenderEmailAddress & "]" & vbCrLf & "Sent: " & Item.ReceivedTime & vbCrLf & "To: YourName" & vbCrLf & "Subject: " & Item.Subject & vbCrLf & Item.Body
         .Send
    End With
End Sub

Seterusnya anda harus menandatangani kod ini seperti biasa dan terus menukar tetapan makro untuk hanya membenarkan makro yang ditandatangani secara digital.
Terakhir, setelah menyelesaikan langkah-langkah di atas, Outlook akan mengirimkan balasan dengan maklumat mesej asal di dalam badan secara automatik. Seperti gambar di bawah:

Catatan: Tidak kira balasan automatik menggunakan peraturan atau balasan automatik menggunakan kod VBA, keduanya hanya dapat memberi kesan ketika Outlook berjalan.

Mengatasi Kesalahan Data Outlook

Tanpa keraguan, Outlook tidak kebal terhadap kesilapan. Oleh itu, adalah mustahak bagi pengguna biasa Outlook untuk mendapatkan beberapa helah untuk mengatasinya. Jelas, kaedah terbaik untuk mengatasi Kerosakan data Outlook membuat sandaran biasa. Selagi anda mendapat cadangan yang berkesan, anda akan tenang walaupun Outlook terhenti. Sudah tentu, di luar insurans, lebih baik anda menyimpan alat pembaikan yang berguna juga.

Pengenalan Pengarang:

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