Tip: Iba pang mga wika ay isinaling-Google. Maaari mong bisitahin ang English bersyon ng link na ito.
mag-log in
x
or
x
x
Magrehistro
x

or

Paano i-auto-forward ang mga attachment batay lamang sa partikular na pamantayan sa Outlook?

Karaniwan, kapag nagpapasa ng isang email, ang orihinal na mensahe ng katawan at mga kalakip ay kasama din. Ngunit, kung minsan, kailangan mo lamang i-forward ang mga kalakip na walang orihinal na mensahe batay sa pamantayan sa isang partikular na tao. Paano mo malutas ang trabaho na ito sa Outlook?

Ipasa lamang ang mga attachment batay sa partikular na pamantayan sa isang tao nang awtomatiko sa VBA code


Ipasa lamang ang mga attachment batay sa partikular na pamantayan sa isang tao nang awtomatiko sa VBA code

Halimbawa, kapag tumatanggap ng email na paksa na naglalaman ng teksto na "tampok na kto", lahat ng mga attachment ng email na ito ay awtomatikong ipapasa sa partikular na tao nang walang katawan ng mensahe. Ang mga sumusunod na hakbang ay makakatulong sa iyo, mangyaring gawin ito:

1. I-hold ang ALT + F11 key upang buksan ang Microsoft Visual Basic para sa Mga Application window.

2. Sa Microsoft Visual Basic para sa Mga Application window, double click ThisOutlookSession mula sa Project1 (VbaProject.OTM) pane upang buksan ang mode, at pagkatapos ay kopyahin at i-paste ang sumusunod na code sa blangko module.

VBA code: Auto forward email na walang body message ngunit isama lang ang mga attachment:

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

nota: Sa kodigo sa itaas, dapat mong baguhin ang paksa ng teksto at tatanggap na address sa iyong sarili.

Ang mga attachment ng auto forward na doc ay tanging 1

3. Pagkatapos ay i-save ang code, at i-restart ang Outlook upang makuha ang code effect.

4. Mula ngayon, sa bawat oras na ang isang bagong email ay naglalaman ng partikular na teksto ng paksa ay dumating sa iyong mailbox, ang Outlook ay i-auto forward ang mga attachment nito nang walang katawan ng mensahe sa ninanais na tao.

nota: Ang code na ito ay magagamit lamang sa default na account.



Kutools para sa Outlook

Higit sa 100 Advanced na Mga Function para sa Outlook 2010, 2013, 2016, 2019 at 365

screen shot kutools para sa pananaw maliit na maliit para sa banner 201812

Higit pang mga Tampok | Libreng pag-download | Tanging $ 39.00 para sa daan-daang mga pag-andar

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.