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

Sut i wrthod gwahoddiadau cyfarfod yn awtomatig gan bobl benodol yn Outlook? 

Yn Outlook, gallwn greu rheol i wrthod rhai gwahoddiadau cyfarfod gan bobl benodol yn awtomatig, ond, sut i ddelio â hi? Bydd yr erthygl hon yn cyflwyno dull yn fanwl.

Cyfarfod dirywiad yn gwahodd gwahoddiadau gan bobl benodol yn awtomatig yn Outlook

Gwrthod gwahoddiadau cyfarfod gan bobl benodol yn awtomatig a dileu'r cyfarfod o'r calendr hefyd


Cyfarfod dirywiad yn gwahodd gwahoddiadau gan bobl benodol yn awtomatig yn Outlook

Gwnewch y camau canlynol i orffen y swydd hon:

1. Yn gyntaf, dylech greu templed neges ar gyfer y cyfarfod dirywiad yn gwahodd. Yn y Neges ffenestr, teipiwch y neges rydych chi am ei hanfon am wrthod y gwahoddiadau cyfarfod. Gweler y screenshot:

2. Yna cadwch y neges fel fformat templed, cliciwch ffeil > Save As, Yn y Save As ffenestr, rhowch enw ar gyfer y neges yn y enw ffeil blwch testun, ac yna dewis Templed Rhagolwg (*. Oft) oddi wrth y Cadw fel math rhestr ostwng, gweler y screenshot:

Nodyn: Pan ddewiswch Templed Rhagolwg (*. Oft), bydd ffolder templed defnyddiwr diofyn yn cael ei agor.

3. Yna cliciwch Save botwm i achub y templed neges, a chau ffenestr y neges.

4. Ac yna, gallwch chi greu rheol. Cliciwch Rheolau > Rheoli Rheolau a Rhybuddion O dan y Hafan tab, gweler y screenshot:

5. Yn y Rheolau a Rhybuddion blwch deialog, cliciwch Rheol Newydd oddi wrth y Rheolau E-bost tab, gweler y screenshot:

6. Yn y popped allan Dewin Rheolau, Cliciwch Cymhwyso rheol ar y neges a dderbyniaf opsiwn o dan y Dechreuwch o reol wag adran, gweler y screenshot:

7. Yna cliciwch Digwyddiadau botwm, ac yn y blwch deialog popped out, gwiriwch gan bobl neu grŵp cyhoeddus yn y Cam1: Dewiswch amod (au) blwch rhestr, ac yna cliciwch y ddolen testun pobl neu grŵp cyhoeddus i agor y Cyfeiriad Rheol blwch deialog, a dewiswch y bobl rydych chi am wrthod y cyfarfod ohonynt, gweler y screenshot:

8. Cliciwch OK botwm, yn dal yn y blwch deialog hwn, sgroliwch i wirio sef gwahoddiad neu ddiweddariad cyfarfod opsiwn gan y Cam1: Dewiswch amod (au) blwch rhestr, gweler y screenshot:

9. Ewch ymlaen i glicio Digwyddiadau botwm, yn y blwch deialog canlynol:

(1.) Gwiriwch ateb gan ddefnyddio templed penodol opsiwn i mewn Cam1: Dewiswch gamau (au) blwch rhestr;

(2.) Ac yna cliciwch y ddolen testun templed penodol i agor y Dewiswch Templed Ymateb blwch deialog;

(3.) Yn y Dewiswch Templed Ymateb blwch deialog, dewiswch Templedi Defnyddiwr yn System Ffeiliau oddi wrth y Edrych mewn gollwng i lawr;

(4.) Yna dewiswch enw'r neges rydych chi wedi'i chreu nawr;

(5.) Cliciwch agored botwm.

10. Ewch yn ôl i'r blwch deialog gwreiddiol, ewch ymlaen i wirio ei ddileu opsiwn yn y Cam1: Dewiswch gamau (au) blwch rhestr, gweler y screenshot:

11. Y clic Digwyddiadau > Digwyddiadau i fynd y dialog cam olaf. Yn y Gorffen adran sefydlu rheol, nodwch enw ar gyfer y rheol hon, a gwiriwch Trowch ar y rheol hon opsiwn gan y Step2: Opsiynau rheol gosod, gweler y screenshot:

12. Cliciwch Gorffen botwm i orffen y rheol hon, yna cliciwch OK i gau'r blwch deialog.

13. O hyn ymlaen, wrth dderbyn y cyfarfod gan y bobl benodol hon, anfonir e-bost dirywiad ato yn awtomatig, a bydd neges y cyfarfod yn cael ei dileu hefyd.


Gwrthod gwahoddiadau cyfarfod gan bobl benodol yn awtomatig a dileu'r cyfarfod o'r calendr hefyd

Mae'r dull cyntaf yn helpu i anfon e-bost yn dweud wrth y person na fyddwch yn mynychu'r cyfarfod, ond bydd y cyfarfodydd bob amser yn cael eu harddangos yn eich calendr. Os oes angen i chi ddileu'r cyfarfodydd sy'n ymddangos yn eich calendr ar yr un pryd, gall y cod VBA canlynol wneud ffafr i chi.

1. Daliwch 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 SesiwnOutlook oddi wrth y Prosiect1 (VbaProject.OTM) cwarel i agor y modiwl, ac yna copïo a gludo'r cod canlynol i'r modiwl gwag.

Cod VBA: Gwrthod gwahoddiadau cyfarfod yn awtomatig a dileu'r cyfarfodydd o'r calendr hefyd:

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Then 'Specify the person you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            xAppointmentItem.ReminderSet = False
            Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            xMeetingDeclined.Send
            xMeeting.Delete
        End If
    End If
Next
End Sub

3. Yna, cadwch a chau'r ffenestr cod hon. O hyn ymlaen, os oes cyfarfodydd gan y person penodol hwn, bydd yn derbyn e-bost wedi'i wrthod a bydd y cyfarfod yn cael ei ddileu o'ch calendr 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
 

 

sylwadau (16)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ymddangos bod hyn ond yn anfon e-bost yn dweud wrth y person eich bod yn dirywio, ond mae'n dal i ymddangos yn eich calendr fel cyfarfod petrus (yn ddiofyn) nes i chi wasgu'r botwm dirywiad. A oes ffordd i wrthod y cais am gyfarfod fel petaech yn pwyso'r botwm 'dirywiad' fel nad yw wedyn yn ymddangos yn eich calendr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yr hyn rydw i'n edrych amdano yw ffordd i atal y cyfarfod rhag rhwystro fy nghalendr, nid dim ond anfon e-bost i ddweud na fyddaf yn mynychu. Onid oes unrhyw ffordd i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf hefyd yn edrych am ffordd i atal y cyfarfod rhag rhwystro fy nghalendr, nid dim ond anfon e-bost i ddweud na fyddaf yn mynychu. Onid oes unrhyw ffordd i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw hyn yn gwrthod y cyfarfod, mae'n anfon e-bost yn unig. Mae ei angen arnaf i beidio â chael y cyfarfod i ymddangos ar fy nghalendr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Ben,
Mae'r erthygl hon wedi'i diweddaru, gallwch ddefnyddio'r ail ddull i ddatrys eich problem.
Ceisiwch, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Os hoffwn ddefnyddio'r ail ddull (dilëwch y cyfarfod o'r calendr) ond mae ei angen arnaf i hidlo'r gwahoddiad sy'n dod gan berson penodol a'r pwnc sy'n cynnwys allweddair, hoffwn wrthod y cyfarfod a pheidio â'i rwystro rhag rhwystro fy nghalendr. Yr achos defnydd yw fy mod yn cael gwahoddiadau cyfarfod yn gyson gan rywun sy'n cynnal gweminarau. Hoffwn wrthod pob cyfarfod gan y person hwn os yw'r llinell bwnc yn cynnwys gweminar. Ni hoffwn wrthod pob cyfarfod yn awtomatig gan yr un person hwn (gan fod rhai ohonynt yn bwysig) ac ni hoffwn ychwaith wrthod pob cyfarfod â'r gair gweminar yn y llinell bwnc gan fod rhai ohonynt yn bwysig.

Bydd unrhyw gymorth y gall unrhyw un ei roi yn cael ei werthfawrogi'n fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Todd,
I ychwanegu maen prawf pwnc, defnyddiwch y cod canlynol:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If (VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com")) And _
           (VBA.InStr(xMeeting.Subject, "product") <> 0) Then   'Specify the person and keyword you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            xAppointmentItem.ReminderSet = False
            Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            xMeetingDeclined.Send
            xMeeting.Delete
        End If
    End If
Next
End Sub

Rhowch gynnig arni, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Si possono rifiutare riunioni in sovrapposizione con più del 25% di una riunione ricorrente?
Io setto la pausa pranzo come un appuntamento ricorrente in una data fascia oraria. Io vorrei che in automatico meeting che si sovrappongono con più del 25% della pausa pranzo venissero rifiutati con un messaggio del tipo "non accetto meeting in pausa pranzo".
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Manzon
Mae'n ddrwg gennym, ar hyn o bryd, nid yw'r cod yn ein herthygl yn datrys eich problem eto.
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi

Sut alla i redeg y sgript VB hon ar gyfer gwahoddiadau calendr presennol hefyd?

diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
skyyang Byddwn yn gwerthfawrogi eich cymorth ar hyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Yogesh D
A ydych chi'n bwriadu gwrthod gwahoddiadau cyfarfod gan bobl benodol a dileu'r holl gyfarfodydd (yn dod i mewn ac eisoes yn bodoli) o'r calendr?
Diolch yn fawr!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ie, dileu gwahoddiadau newydd a phresennol. Y ddau.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Yogesh D
I ddatrys eich problem, defnyddiwch y cod isod:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i As Integer
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xAppointmentItem As AppointmentItem
Dim xStore As Store
On Error Resume Next
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
    Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
    If xItem.Class = olMeetingRequest Then
        Set xMeeting = xItem
        xMeeting.ReminderSet = False
        If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Then 'Specify the person you need
            Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
            xAppointmentItem.ReminderSet = False
            Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
            xMeetingDeclined.Body = "Dear, " & vbCrLf & _
                                    "I am not at office. " & vbCrLf & _
                                    "I'm sorry that I will not attend the meeting invitations."
            xMeetingDeclined.Send
            xMeeting.Delete
        End If
    End If
Next
For Each xStore In Application.Session.Stores
    For Each xAppointmentItem In xStore.GetDefaultFolder(olFolderCalendar).Items
        Select Case VBA.LCase$(xAppointmentItem.GetOrganizer.Address)
            Case VBA.LCase$("yy@addin99.com")   'Specify the person you need
                xAppointmentItem.Delete
        End Select
    Next
Next
End Sub

Rhowch gynnig arni, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
skyyang I get lots of emails from an automated and unmanned inbox, so I don't want to send a reply to them about declining the meeting. Would I instead just cut out the .Body and .Send segments and use this?:
Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
Dim xEntryIDs
Dim xItem
Dim i Fel Cyfanrif
Dim xMeeting As MeetingItem, xMeetingDeclined As MeetingItem
Dim xItem Appointment As AppointmentItem
Ar Ail-ddechrau Gwall Nesaf
xEntryIDs = Split(EntryIDCollection, ",")
For i = 0 To UBound(xEntryIDs)
Set xItem = Application.Session.GetItemFromID(xEntryIDs(i))
If xItem.Class = olMeetingRequest Then
Set xMeeting = xItem
xMeeting.ReminderSet = False
If VBA.LCase(xMeeting.SenderEmailAddress) = VBA.LCase("yy@addin99.com") Then 'Specify the person you need
Set xAppointmentItem = xMeeting.GetAssociatedAppointment(True)
xAppointmentItem.ReminderSet = False
Set xMeetingDeclined = xAppointmentItem.Respond(olMeetingDeclined)
xMeeting.Delete
Gorffennwch Os
Gorffennwch Os
Digwyddiadau
Is-End


Cheers,
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hello, D
What do you mean the automated and unmanned inbox?
Could you explain it more detailed, thank you!
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir