Upang i-auto forward ang mga partikular na papasok na email, iisipin mo munang gumamit ng mga panuntunan sa Outlook. Gayunpaman, hindi ka sinusuportahan ng panuntunan na i-customize ang paksa at nilalaman ng email kapag nagpapasa. Kung gusto mong i-auto forward ang mga partikular na email na may custom na paksa at katawan, maaari mong gamitin ang paraang ipinakilala sa artikulong ito.
Tulad ng alam nating lahat, maaaring suportahan ng mga panuntunan ng Outlook ang mga user na awtomatikong magpasa ng mga partikular na papasok na email. Sa pamamagitan nito, ang email ay awtomatikong ipapasa sa mga partikular na tao na may paksa sa pattern ng "FW: orihinal na paksa ng mail" at ang orihinal na katawan ng mail. Gayunpaman, maraming user ang umaasa na mag-auto forward ng mga email na may custom na paksa at katawan. Tila, hindi ito mapagtanto ng mga patakaran. Samakatuwid, dito namin ipakilala ang isang diskarte upang makuha ito nang madali.
Awtomatikong Pagpasa ng Mga Papasok na Email na may Custom na Paksa at Katawan
- Sa umpisa pa lang, start iyong programa sa Outlook.
- Pagkatapos, kumuha ng access sa VBA editor na may sanggunian sa “Paano Patakbuhin ang VBA Code sa Iyong Outlook".
- Susunod, kopyahin at i-paste ang sumusunod na VBA code sa proyektong "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
- Pagkatapos nito, baguhin ang pamantayan ng mga tinukoy na papasok na email. At baguhin ang partikular na katawan, paksa at mga tatanggap sa code ayon sa iyong mga pangangailangan.
- Sa kalaunan, mag-click sa “Application_Starsubroutine ng tup ”at pindutin ang“ F5 ”key.
- Simula noon, sa tuwing may dumating na partikular na papasok sa iyong default na folder ng Inbox, awtomatikong ipapasa ito ng Outlook kasama ang custom na paksa at katawan sa mga paunang natukoy na tatanggap.
I-address ang Mga Isyu sa Outlook na may kakayahang umangkop
Bagama't mayaman sa feature ang Outlook, hindi ito makakaligtas sa mga error at iba pang problema. Halimbawa, ang Outlook PST file ay madaling ma-corrupt dahil sa maraming salik. Kabilang dito ang mga pagkakamali ng tao, mga virus, sobrang laki ng PST file at mga nasirang profile ng Outlook at iba pa. Sa gayon, kailangan mong gumawa ng ilang mga pag-iingat, tulad ng pagpapanatiling maingat sa laki ng Outlook PST file, pag-iwas sa lahat ng mga virus pati na rin ang pagkuha ng isang matatag na Paggaling ng Outlook tool, tulad ng DataNumen Outlook Repair.
Panimula ng May-akda:
Si Shirley Zhang ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang SQL Server pagbawi at pananaw sa pag-aayos ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa