Če želite samodejno posredovati določena dohodna e-poštna sporočila, boste najprej pomislili na uporabo pravil v Outlooku. Vendar pravilo ne podpira prilagajanja zadeve in telesa e-pošte pri posredovanju. Če želite samodejno posredovati določena e-poštna sporočila z zadevo in telesom po meri, lahko uporabite metodo, predstavljeno v tem članku.
Kot vsi vemo, lahko Outlookova pravila podpirajo uporabnike, da samodejno posredujejo določena dohodna e-poštna sporočila. Tako bo e-poštno sporočilo samodejno posredovano določenim osebam z zadevo v vzorcu »FW: izvirna zadeva pošte« in izvirno telo pošte. Vendar mnogi uporabniki upajo, da bodo samodejno posredovali e-poštna sporočila z zadevo in telesom po meri. Očitno pravila tega ne morejo uresničiti. Zato bomo tukaj predstavili pristop, da ga dobite z lahkoto.
Samodejno posreduj določena dohodna e-poštna sporočila z zadevo in telesom po meri
- Na samem začetku je start vašega programa Outlook.
- Nato poiščite dostop do urejevalnika VBA s sklicevanjem na “Kako zagnati kodo VBA v Outlooku".
- Nato kopirajte in prilepite naslednjo kodo VBA v projekt »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
- Po tem spremenite kriterije določenih dohodnih e-poštnih sporočil. In spremenite določeno telo, predmet in prejemnike v kodi glede na vaše potrebe.
- Na koncu kliknite »Application_Startup” in pritisnite tipko “F5”.
- Od takrat bo Outlook vsakič, ko določeno dohodno sporočilo prispe v vašo privzeto mapo Prejeto, samodejno posredoval z zadevo in telesom po meri vnaprej določenim prejemnikom.
Prilagodljivo obravnavajte težave z Outlookom
Čeprav je Outlook bogat s funkcijami, ne more biti imun na napake in druge težave. Datoteko Outlook PST je na primer mogoče zlahka poškodovati zaradi več dejavnikov. Sem spadajo človeške napake, virusi, prevelika datoteka PST in poškodovani Outlookovi profili itd. Zato morate sprejeti nekatere previdnostne ukrepe, na primer biti previdni glede velikosti datoteke Outlook PST, preprečiti vse viruse in imeti v rokah robusten Obnovitev programa Outlook orodje, kot je DataNumen Outlook Repair.
Uvod avtorja:
Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z SQL Server okrevanje in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com