Kuinka lähettää kalenteri useille vastaanottajille yksitellen Outlookissa?
Normaalisti voit lähettää kalenterin vastaanottajalle nopeasti ja helposti käyttämällä Sähköpostikalenteri ominaisuus Outlookissa. Jos haluat lähettää iCalendar-tiedostona liitetyn kalenterin useille yhteystiedoille yksitellen, sinun on lähetettävä se yksitellen. Tässä artikkelissa puhun helposta tavasta lähettää kalenteri useille vastaanottajille yksitellen Outlookissa.
Lähetä kalenteri useille vastaanottajille yksitellen VBA-koodilla
Lähetä kalenteri useille vastaanottajille yksitellen VBA-koodilla
Jos haluat lähettää kalenterin useille vastaanottajille erikseen, seuraava VBA-koodi voi auttaa sinua, toimi seuraavasti:
1. Siirry kohtaan Yhteystiedot ja valitse yhteystiedot, joille haluat lähettää kalenterin.
2. Pidä sitten painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
3. Klikkaus liite > Moduulit, kopioi ja liitä alla oleva koodi avautuvaan tyhjään moduuliin, katso kuvakaappaus:
VBA-koodi: Lähetä kalenteri useille vastaanottajille yksitellen:
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
4. Kun olet syöttänyt koodin, paina F5 avain tämän koodin suorittamiseen, ja a Valitse kansio valintaikkuna avautuu, valitse kalenteri, jonka haluat lähettää, katso kuvakaappaus:
5. Napauta OKja määritä sitten ajanjakso, jolle haluat lähettää kalenterin seuraavissa kehoteruuduissa, katso kuvakaappaus:
6. Ja sitten, napsauta OK, uudet sähköpostit, joihin on liitetty kalenteri, on luotu seuraavan kuvakaappauksen mukaisesti. Sinun tarvitsee vain lähettää ne yksitellen.
Aiheeseen liittyviä artikkeleita:
Kuinka lähettää sähköposti useille vastaanottajille erikseen Outlookissa?
Kuinka lähettää mukautettuja massasähköposteja luetteloon Excelistä Outlookin kautta?
Kuinka lähettää useita luonnoksia kerralla Outlookissa?
Kuinka lähettää sähköpostia useille vastaanottajille heidän tietämättään Outlookissa?
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
