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 anfon calendr i dderbynwyr lluosog yn unigol yn Outlook?

Fel arfer, gallwch chi anfon calendr at dderbynnydd yn gyflym ac yn hawdd trwy ddefnyddio'r Calendr E-bost nodwedd yn Outlook. Os ydych chi eisiau anfon calendr ynghlwm fel ffeil iCalendar i gysylltiadau lluosog yn unigol, mae angen i chi ei hanfon un wrth un. Yn yr erthygl hon, byddaf yn siarad am ffordd hawdd i anfon calendr i dderbynwyr lluosog yn unigol yn Outlook.

Anfon calendr i dderbynwyr lluosog yn unigol gyda chod VBA


Anfon calendr i dderbynwyr lluosog yn unigol gyda chod VBA

I anfon calendr i dderbynwyr lluosog ar wahân, gall y cod VBA canlynol eich helpu, gwnewch fel hyn:

1. Ewch i'r wefan Cysylltiadau pane, a dewiswch y cysylltiadau yr ydych am anfon calendr ato.

2. Yna dal i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

3. Cliciwch Mewnosod > Modiwlau, copïwch a gludwch y cod isod i'r modiwl gwag a agorwyd, gweler y sgrin:

Cod VBA: Anfon calendr i dderbynwyr lluosog yn unigol:

Sub EmailCalendarToMultiplePersonsSeparately()
Dim xSelection As Outlook.Selection
Dim xCalendarFolder As Outlook.Folder
Dim xCalendarExporter As Outlook.CalendarSharing
Dim xStartDate, xEndDate As Date
Dim xCalendarFile As String
Dim xContactItem As Outlook.ContactItem
Dim xDistListItem As Outlook.DistListItem
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xFilePath, xFileName, xEmailAddress As String
Dim xRecipient As Recipient
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(16) & "\MyCalendar"
If Dir(xFilePath, vbDirectory) = "" Then MkDir xFilePath
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
    MsgBox "Please Select contacts first!", vbExclamation + vbOKOnly, "Kutools for Outlook"
    Exit Sub
End If
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection Is Nothing Then Exit Sub
Set xCalendarFolder = Outlook.Application.Session.PickFolder
If xCalendarFolder Is Nothing Then Exit Sub
If xCalendarFolder.DefaultItemType <> olAppointmentItem Then Exit Sub
Set xCalendarExporter = xCalendarFolder.GetCalendarExporter
xStartDate = InputBox("Enter the start date:", "Kutools for Outlook", "")
If Len(Trim(xStartDate)) = 0 Then Exit Sub
xEndDate = InputBox("Enter the end date:", "Kutools for Outlook", "")
If Len(Trim(xEndDate)) = 0 Then Exit Sub
If xStartDate = #1/1/4501# Or xEndDate = #1/1/4501# Then Exit Sub
xFileName = "Calendar (" & Format(xStartDate, "YYYYMMDD") & " - " & Format(xEndDate, "YYYYMMDD") & ").ics"
xCalendarFile = xFilePath & "\" & xFileName
With xCalendarExporter
    .IncludeWholeCalendar = False
    .StartDate = xStartDate
    .EndDate = xEndDate
    .CalendarDetail = olFullDetails
    .IncludeAttachments = True
    .IncludePrivateDetails = False
    .RestrictToWorkingHours = False
    .SaveAsICal xCalendarFile
End With
For Each xItem In xSelection
    If xItem.Class = olContact Then
        Set xContactItem = xItem
        Set xMailItem = Outlook.Application.CreateItem(olMailItem)
        With xMailItem
            .To = xContactItem.Email1Address
            .Recipients.ResolveAll
            .Subject = xFileName
            .Attachments.Add xCalendarFile
            .Body = "Dear " & xContactItem.FullName & "," & vbCrLf & "Type body here..."
            .Display
        End With
    End If
    If xItem.Class = olDistributionList Then
        Set xDistListItem = xItem
        For i = 1 To xDistListItem.MemberCount
            Set xRecipient = xDistListItem.GetMember(i)
            Set xMailItem = Outlook.Application.CreateItem(olMailItem)
            With xMailItem
                .To = xRecipient.AddressEntry.Address
                .Recipients.ResolveAll
                .Subject = xFileName
                .Attachments.Add xCalendarFile
                .Body = "Dear " & xRecipient.Name & "," & vbCrLf & "Type body here..."
                .Display
            End With
        Next i
    End If
Next
End Sub

doc anfon calendr i bersonau lluosog 1

4. Ar ôl mewnosod y cod, yna pwyswch F5 allwedd i redeg y cod hwn, a Dewis Ffolder Dewisir y blwch deialog, dewiswch galendr yr hoffech ei anfon, gweler y sgrin:

doc anfon calendr i bersonau lluosog 2

5. Cliciwch OK, ac yna nodwch yr ystod ddyddiadau yr ydych am ei anfon y calendr yn y blychau cyflym canlynol, gweler y sgrin:

doc anfon calendr i bersonau lluosog 3

6. Ac yna, cliciwch OK, mae negeseuon e-bost newydd gyda chalendr ynghlwm wedi eu creu fel sgîl sgrin ganlynol a ddangosir, yna mae angen i chi eu hanfon un wrth un.

doc anfon calendr i bersonau lluosog 4


Erthyglau cysylltiedig:

Sut I Anfon E-bost I Bobl sy'n Derbyniol Yn Unigol Yn Outlook?

Sut I Anfon E-byst Màs Amrywiol Personol I Rhestr O Excel Via Outlook?

Sut I Anfon Drafft Lluosog Ar Unwaith Yn Outlook?

Sut I Anfon E-bost I Bobl Ymholiadau Heb Eu Hysbysu Mewn Outlook?



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.