Untuk meneruskan e-mel masuk tertentu secara automatik, pertama-tama anda akan berfikir untuk menggunakan peraturan di Outlook. Namun, peraturan tidak menyokong anda untuk menyesuaikan subjek dan isi e-mel semasa meneruskan. Sekiranya anda ingin menghantar e-mel tertentu secara automatik dengan subjek dan isi tersuai, anda boleh menggunakan kaedah yang diperkenalkan dalam artikel ini.
Seperti yang kita semua tahu, peraturan Outlook dapat menyokong pengguna untuk meneruskan e-mel masuk tertentu secara automatik. Dengan cara itu, e-mel akan dihantar secara automatik kepada orang-orang tertentu dengan subjek dalam corak "FW: subjek surat asli" dan badan surat asal. Walau bagaimanapun, banyak pengguna berharap dapat menghantar e-mel secara automatik dengan subjek dan isi tersuai. Nampaknya, peraturan tidak dapat menyedarinya. Oleh itu, di sini kami akan memperkenalkan pendekatan untuk mendapatkannya dengan mudah.
E-mel masuk khusus yang dihantar secara automatik dengan subjek & isi tersuai
- Pada peringkat awal, start program Outlook anda.
- Kemudian, dapatkan akses ke editor VBA dengan merujuk kepada "Cara Menjalankan Kod VBA di Outlook Anda".
- Seterusnya, salin dan tampal kod VBA berikut ke dalam projek "ThisOutlookSession".
Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items
Private Sub Application_Startup()
Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
Set objInboxItems = objInbox.Items
End Sub
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
Dim objMail As Outlook.MailItem
Dim objForward As Outlook.MailItem
If TypeOf Item Is MailItem Then
Set objMail = Item
'If it is a specific new email
If (objMail.SenderEmailAddress = "bob_black@datanumen.com") And (objMail.Importance = olImportanceHigh) And (objMail.Attachments.Count > 0) Then
Set objForward = objMail.Forward
'Customize the forward subject, body and recipients
With objForward
.Subject = "Custom Subject"
.HTMLBody = "<HTML><BODY>Type body here. </BODY></HTML>" & objForward.HTMLBody
.Recipients.Add ("boss@datanumen.com")
.Recipients.Add ("john@datanumen.com")
.Recipients.ResolveAll
.Importance = olImportanceHigh
.Send
End With
End If
End If
End Sub
- Selepas itu, ubah kriteria e-mel masuk yang ditentukan. Dan ubah isi badan, subjek dan penerima tertentu dalam kod mengikut keperluan anda.
- Akhirnya, klik ke "Application_Starsubrutin tup "dan tekan kekunci" F5 ".
- Sejak itu, setiap kali masuk tertentu masuk ke folder Peti Masuk lalai anda, Outlook akan meneruskannya secara automatik dengan subjek dan isi kustom kepada penerima yang telah ditentukan.
Menangani Masalah Outlook Secara Fleksibel
Walaupun Outlook kaya dengan fitur, ia tidak dapat kebal dari kesalahan dan masalah lain. Sebagai contoh, fail PST Outlook boleh rosak dengan mudah kerana pelbagai faktor. Ini termasuk kesalahan manusia, virus, fail PST yang besar dan profil Outlook yang rosak dan sebagainya. Oleh itu, anda perlu membuat beberapa langkah berjaga-jaga, seperti berhati-hati terhadap ukuran fail Outlook PST, menjaga semua virus agar tidak terkendali dan juga mendapatkan yang kuat Pemulihan Outlook alat, seperti DataNumen Outlook Repair.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk SQL Server pemulihan dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com

