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 fwrw ymlaen â chyfarfodydd gwahoddiadau i berson penodol yn Outlook?

Yn Outlook, gallwch anfon gwahoddiad i berson penodol yn uniongyrchol trwy ddefnyddio'r nodwedd Ymlaen â llaw. Ond, weithiau, efallai y bydd angen i chi anfon y cyfarfod yn gwahodd person penodol yn awtomatig pan fyddwch chi'n derbyn y cyfarfod. Yr erthygl hon, byddaf yn sôn am sut i fwrw ymlaen â chyfarfod yn gwahodd person i chi mor gyflym ag y gallwch.

Y cyfarfod nesaf yn gwahodd person penodol yn awtomatig yn Outlook gyda chod VBA


Y cyfarfod nesaf yn gwahodd person penodol yn awtomatig yn Outlook gyda chod VBA

Dyma god VBA defnyddiol a all eich helpu i fwrw ymlaen â'r cyfarfod gwahoddiad i berson penodol ar ôl ei dderbyn, gwnewch fel hyn:

1. Dal 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 ThisOutlookSession oddi wrth y Project1 (VbaProject.OTM) pane i agor y modd, ac wedyn copïwch a gludwch y cod canlynol yn y modiwl gwag.

Cod VBA: Mae cyfarfod ymlaen llaw yn gwahodd person penodol:

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 xMeetingItem As MeetingItem
Dim xMeetingResponse As MeetingItem
Dim xForwardMeeting As MeetingItem
Dim xAppointmentItem As AppointmentItem
On Error Resume Next
If TypeOf Item Is MeetingItem Then
    Set xMeetingItem = Item
    Set xAppointmentItem = xMeetingItem.GetAssociatedAppointment(True)
    Set xMeetingResponse = xAppointmentItem.Respond(olMeetingAccepted, True)
    xMeetingResponse.Send
    Set xForwardMeeting = xMeetingItem.Forward
    With xForwardMeeting
        With .Recipients
            .Add "skyyang@addin88.com" 'change address to your own
            .ResolveAll
        End With
        .Send
    End With
End If
End Sub

Nodyn: Yn y cod uchod, dylech newid cyfeiriad y derbynnydd i'ch pen eich hun.

doc auto ymlaen cyfarfod 1

3. Yna, cadwch y cod, a ailddechrau'r Outlook i gymryd yr effaith cod.

4. Nawr, pan fyddwch chi'n derbyn gwahoddiad cyfarfod, derbynnir y cyfarfod yn awtomatig, ac ar yr un pryd, bydd y cyfarfod hwn yn cael ei anfon ymlaen at eich person penodol ar unwaith.

Nodyn: Mae'r cod hwn ar gael yn unig i'r cyfrif diofyn.



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.