Note: The other languages of the website are Google-translated. Back to English

Sut i greu tasg yn awtomatig wrth anfon e-bost yn Outlook?

Weithiau, efallai y bydd angen i chi greu tasg o e-bost yn awtomatig wrth ei anfon yn Outlook. Yma rydym yn darparu dull i chi ei gyflawni'n gyflym.

Auto creu tasg wrth anfon e-bost yn Outlook gyda VBA


Auto creu tasg wrth anfon e-bost yn Outlook gyda VBA

Gyda'r cod VBA isod, gallwch greu tasg yn awtomatig yn seiliedig ar e-bost anfon yn Outlook. Gwnewch fel a ganlyn.

1. Lansio eich Rhagolwg, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch y cod VBA isod i'r SesiwnOutlook ffenestr cod.

Cod VBA: Auto creu tasg wrth anfon e-bost yn Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

Nodyn: Bydd y rhai sy'n derbyn negeseuon a'r corff negeseuon yn cael eu hychwanegu at y corff tasg yn awtomatig. Dyddiad cychwyn y dasg yw dyddiad anfon y neges, a bydd y dasg yn ddyledus mewn 3 diwrnod. Fe'ch atgoffir o'r dasg am 9 am ar ôl un diwrnod. Gallwch eu newid yn ôl yr angen.

3. Cadwch y cod a gwasgwch y Alt + Q allweddi i gau ffenestr Microsoft Visual Basic for Applications.

4. O hyn ymlaen, wrth glicio ar y anfon botwm mewn ffenestr e-bost newydd neu wedi'i hateb, a Creu Tasg bydd blwch deialog yn ymddangos fel y dangosir isod y llun, cliciwch Oes i anfon yr e-bost a chreu tasg yn awtomatig, neu glicio Na i anfon yr e-bost heb greu tasg.


Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch i'w Rhagweld, a Gwneud Gwaith yn Haws Osgach!

  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl arfer; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangoswch neges pan geisiwch ateb popeth os yw'ch cyfeiriad post yn rhestr BCC; Atgoffwch Wrth Ymlyniadau ar Goll, a mwy o nodweddion atgoffa ...
  • Ymateb (Pawb) Gyda'r Holl Atodiadau yn y sgwrs bost; Ateb Llawer o E-byst mewn eiliadau; Auto Ychwanegu Cyfarchiad wrth ateb; Ychwanegu Dyddiad i'r pwnc ...
  • Offer Ymlyniad: Rheoli Pob Atodiad ym mhob Post, Datgysylltiad Auto, Cywasgu Pawb, Ail-enwi Pawb, Arbed Pawb ... Adroddiad Cyflym, Cyfrif Postiau Dethol...
  • E-byst Sothach Pwerus yn ôl arfer; Tynnwch y Post a Chysylltiadau Dyblyg... Yn eich galluogi i wneud yn ddoethach, yn gyflymach ac yn well yn Outlook.
tab kutools rhagweld kutools tab 1180x121
kutools rhagweld rhagolygon kutools ynghyd â thab 1180x121
 
sylwadau (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes modd addasu hyn i gynnwys mwy o ddolen i'r post a anfonwyd na dim ond derbynwyr a phwnc? h.y. ychwanegu'r post anfonwyd fel atodiad?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HI,

Gweithiodd hyn am ychydig ddyddiau ac erbyn hyn nid yw'n gweithio mwyach.

A oes rheswm?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Terri Amos,
Galluogwch yr opsiwn Galluogi pob macros a'r opsiwn Gwneud cais gosodiadau diogelwch macro i ychwanegion gosodedig fel y dangosir yn y sgrin isod. Ar ôl hynny, ailgychwynwch eich Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir