Sut i anfon atodiadau yn unig yn seiliedig ar feini prawf penodol yn Outlook?
Fel rheol, wrth anfon e-bost, mae'r corff negeseuon gwreiddiol a'r atodiadau wedi'u cynnwys hefyd. Ond, weithiau, does ond angen i chi anfon atodiadau yn unig heb y neges wreiddiol yn seiliedig ar feini prawf at berson penodol. Sut allech chi ddatrys y swydd hon yn Outlook?
Anfon atodiadau yn unig yn seiliedig ar feini prawf penodol i berson yn awtomatig â chod VBA
Anfon atodiadau yn unig yn seiliedig ar feini prawf penodol i berson yn awtomatig â chod VBA
Er enghraifft, wrth dderbyn e-bost pa bwnc sy'n cynnwys y testun “nodwedd kto”, bydd holl atodiadau'r e-bost hwn yn cael eu hanfon ymlaen at yr unigolyn penodol yn awtomatig heb gorff negeseuon. Gall y camau canlynol eich helpu chi, gwnewch fel hyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith SesiwnOutlook oddi wrth y Prosiect1 (VbaProject.OTM) cwarel i agor y modd, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.
Cod VBA: E-bost ymlaen yn awtomatig heb gorff neges ond dim ond cynnwys yr atodiadau:
Public WithEvents ReceivedItems As Outlook.Items
Private Sub Application_Startup()
Set ReceivedItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub ReceivedItems_ItemAdd(ByVal Item As Object)
Dim xForwardMail As Outlook.MailItem
Dim xEmail As MailItem
On Error Resume Next
If Item.Class <> olMail Then Exit Sub
Set xEmail = Item
If InStrRev(UCase(xEmail.Subject), UCase("kto feature")) = 0 Then Exit Sub 'change subject text to your need
If xEmail.Attachments.Count = 0 Then Exit Sub
Set xForwardMail = xEmail.Forward
With xForwardMail
.HTMLBody = ""
With .Recipients
.Add "" 'change address to your own
.ResolveAll
End With
.Send
End With
End Sub
Nodyn: Yn y cod uchod, dylech newid testun y pwnc a chyfeiriad y derbynnydd i'ch un chi.
3. Yna arbedwch y cod, ac ailgychwynwch yr Outlook i gael yr effaith cod.
4. O hyn ymlaen, bob tro pan fydd e-bost newydd yn cynnwys y testun pwnc penodol yn cyrraedd eich blwch post, bydd Outlook yn anfon ei atodiadau heb gorff neges at y person a ddymunir.
Nodyn: Mae'r cod hwn ar gael i'r cyfrif diofyn yn unig.
Offer Cynhyrchiant Swyddfa Gorau
Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook
🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...
📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP) / Amserlen Anfon E-byst / Auto CC/BCC gan Reolau Wrth Anfon E-bost / Awto Ymlaen (Rheolau Uwch) / Auto Ychwanegu Cyfarchiad / Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...
📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd / Rhwystro E-byst Sgam gan Bynciau ac Eraill / Dileu E-byst Dyblyg / Chwilio Manwl / Cydgrynhoi Ffolderi ...
📁 Ymlyniadau Pro: Arbed Swp / Swp Datgysylltu / Cywasgu Swp / Auto Achub / Datgysylltiad Auto / Cywasgiad Auto ...
🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl / Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed / Lleihau Outlook Yn lle Cau ...
???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn / E-byst Gwrth-Gwe-rwydo / 🕘Dangos Parth Amser yr Anfonwr ...
👩🏼🤝👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol / Rhannwch Grŵp Cyswllt i Grwpiau Unigol / Dileu Atgoffa Pen-blwydd ...
Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.