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 greu tasg wrth anfon e-bost yn Outlook?

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

Creu tasg yn awtomatig wrth anfon e-bost yn Outlook gyda VBA


Creu tasg yn awtomatig 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 Outlook, gwasgwch 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 mewn i'r ThisOutlookSession cod ffenestr.

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 neges a'r corff neges yn cael eu hychwanegu i'r corff tasg yn awtomatig. Dyddiad dechrau'r dasg yw dyddiad y neges a anfonwyd, a bydd y dasg yn ddyledus yn 3. Fe'ch atgoffir am y dasg yn 9 am ar ôl un diwrnod. Gallwch eu newid fel yr ydych ei 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 anfon botwm mewn ffenestr e-bost newydd neu ateb, a Creu Tasg Bydd y blwch deialog yn ymddangos fel y dangosir y sgrin isod, cliciwch Ydw i anfon yr e-bost a chreu tasg yn awtomatig, neu glicio Na i anfon yr e-bost heb greu tasg.



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.