Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

Sut i ymateb yn awtomatig i negeseuon a dderbynnir pan fyddwch yn brysur yn Outlook?

Weithiau, rydych chi am ymateb yn awtomatig i'r negeseuon a dderbynnir yn Outlook tra'ch bod chi'n brysur mewn cyfnod. Ond nid oes swyddogaeth adeiledig a all drin y swydd hon, fodd bynnag, yma mae gen i god VBA i ddelio ag ef.

Ateb awto pan fyddwch chi'n brysur gyda chod VBA


Ateb awto pan fyddwch chi'n brysur gyda chod VBA

Tab Swyddfa - Galluogi Golygu a Phori Tabbed yn y Swyddfa, a Gwneud Gwaith yn Haws Orau ...
Kutools for Outlook - Yn Dod â 100 o Nodweddion Uwch Pwerus i Microsoft Outlook
  • Auto CC / BCC yn ôl rheolau wrth anfon e-bost; Auto Ymlaen E-byst Lluosog yn ôl rheolau; Ymateb Auto heb weinydd cyfnewid, a nodweddion mwy awtomatig ...
  • Rhybudd BCC - dangos 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 ar unwaith; Auto Ychwanegu Cyfarchiad wrth ateb; Auto Ychwanegu Dyddiad ac Amser yn destun ...
  • Offer Ymlyniad: Auto Detach, Cywasgu Pawb, Ail-enwi Pawb, Auto Save All ... Adroddiad Cyflym, Cyfrif Postiau Dethol, Tynnwch y Post a Chysylltiadau Dyblyg ...
  • Bydd mwy na 100 o nodweddion datblygedig datrys y rhan fwyaf o'ch problemau yn Outlook 2010-2019 a 365. Nodweddion llawn treial am ddim 60 diwrnod.

Dyma god VBA, a fydd yn ateb yn awtomatig tra bod rhai apwyntiadau yn eich calendr Outlook, os nad oes unrhyw beth yn y calendr, mae'n stopio ateb yn awtomatig.

1. Gwasgwch Alt + F11 allweddi i agor Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch ddwywaith ar ThisOutlookSession oddi wrth y Project1 cwarel, copïo a gludo islaw'r cod i'r sgript.

VBA: Yn awtomatig tra'ch bod chi'n brysur yn y calendr

Public WithEvents xInboxItems As Outlook.Items

Private Sub Application_Startup()
Set xInboxItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub xInboxItems_ItemAdd(ByVal Item As Object)
'UpdatebyExtendoffice20180418
Dim xMailItem As Outlook.MailItem
Dim xReplyMailItem As Outlook.MailItem
Dim xReplyHTMLBody As String
Dim xAppointments As Outlook.Items
Dim xFilter As String
Dim xRestrictAppointments As Outlook.Items
Dim xAppointment As Outlook.AppointmentItem
Dim xDateFormat As String
On Error Resume Next
If TypeOf Item Is MailItem Then
    Set xMailItem = Item
    Set xReplyMailItem = xMailItem.Reply
    xReplyHTMLBody = xReplyMailItem.HTMLBody
    Set xAppointments = Outlook.Application.Session.GetDefaultFolder(olFolderCalendar).Items
    xAppointments.Sort "[Start]"
    xAppointments.IncludeRecurrences = True
    xDateFormat = Format(Now, "ddddd h:nn AMPM")
    xFilter = "[Start]<= '" & xDateFormat & "' AND [End]>= '" & xDateFormat & "'"
    Set xRestrictAppointments = xAppointments.Restrict(xFilter)
    If TypeName(xRestrictAppointments) = "Nothing" Then Exit Sub
    For Each xAppointment In xRestrictAppointments
        If xAppointment.BusyStatus = olBusy Or olOutOfOffice Then
            xReplyMailItem.HTMLBody = "<HTML><BODY>I'm Sorry that I can't respond to you right now. I'll reply to you later.</HTML></BODY>" & _
                                      xReplyHTMLBody
            xReplyMailItem.Send
        End If
    Next
End If
End Sub

3. Cadwch y cod hwn ac ailgychwynwch y Camre. O hyn ymlaen, os yw'r e-byst yn derbyn yn ystod amser eich apwyntiadau, anfonir ateb auto.

Awgrym:

(1) Yn y cod, gallwch newid y corff ateb yn ôl yr angen yn y sgript hon "Mae'n ddrwg gen i na allaf ymateb i chi ar hyn o bryd. Fe atebaf i chi yn nes ymlaen." & _

(2) Gall y macro VBA hwn ateb negeseuon e-bost a dderbynnir yn y Mewnflwch ffeil ddata ddiofyn yn awtomatig.


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
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    meynetg · 3 months ago
    Hi

    How to modify your VBA code for taking into account only all day events with specific names, pls?
    I've no clue in coding... :(

    Thank you in advance.

    BR