Mae cwcis yn ein helpu i gyflwyno ein gwasanaethau. Drwy ddefnyddio ein gwasanaethau, rydych yn cytuno i'n defnydd cwcis.
Tip: Mae ieithoedd eraill yn Google-Cyfieithu. Gallwch ymweld â'r English fersiwn o'r ddolen hon.
Mewngofnodi
x
or
x
x
cofrestr
x

or

Sut i auto atodi atodiadau yn unig yn seiliedig ar feini prawf penodol yn Outlook?

Fel arfer, wrth anfon e-bost ymlaen, mae'r corff negeseuon gwreiddiol a'r atodiadau yn cael eu cynnwys hefyd. Ond, weithiau, mae angen i chi ond atodi atodiadau yn unig heb y neges wreiddiol yn seiliedig ar feini prawf i berson penodol. Sut allech chi ddatrys y swydd hon yn Outlook?

Ymlaen atodiadau yn unig yn seiliedig ar feini prawf penodol i berson yn awtomatig gyda chod VBA


Ymlaen atodiadau yn unig yn seiliedig ar feini prawf penodol i berson yn awtomatig gyda chod VBA

Er enghraifft, wrth dderbyn e-bost sy'n cynnwys y testun "kto feature", bydd pob atodiad o'r e-bost hwn yn cael ei anfon ymlaen at y person penodol yn awtomatig heb gorff negeseuon. Gall y camau canlynol eich helpu, gwnewch fel hyn:

1. Dal 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 ThisOutlookSession oddi wrth y Project1 (VbaProject.OTM) pane i agor y modd, ac wedyn copïwch a gludwch y cod canlynol yn y modiwl gwag.

Cod VBA: E-bost ymlaen llaw heb gorff negeseuon 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 "skyyang@addin88.com"    'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End Sub

Nodyn: Yn y cod uchod, dylech newid y testun testun a'r cyfeiriad derbyniwr i'ch hun.

doc auto atodiadau ymlaen yn unig 1

3. Yna, cadwch y cod, a ailddechrau'r Outlook i gymryd yr effaith cod.

4. O hyn ymlaen, bob tro y mae e-bost newydd yn cynnwys y testun pwnc penodol yn cyrraedd eich blwch post, bydd Outlook yn anfon ei atodiadau ymlaen llaw heb gorff negeseuon i'r person a ddymunir.

Nodyn: Mae'r cod hwn ar gael yn unig i'r cyfrif diofyn.



Kutools ar gyfer Outlook

Mwy na Swyddogaethau Uwch 100 ar gyfer Outlook 2010, 2013, 2016, 2019 a 365

sgrinio kutools ar gyfer rhagolygon bach ar gyfer baner 201812

Mwy o Nodweddion | Lawrlwythiad Am Ddim | $ 39.00 yn unig ar gyfer cannoedd o swyddogaethau

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.