Kuinka lisätä allekirjoitus automaattisesti Outlook-kokouspyyntöihin?
Outlookissa voit lisätä allekirjoituksen automaattisesti sähköposteihin helposti, mutta jos haluat lisätä allekirjoituksen kokouskutsuihin automaattisesti, sinulla ei ole suoraa tapaa ratkaista tätä tehtävää. Tässä artikkelissa puhun hyödyllisistä menetelmistä allekirjoituksen lisäämiseksi automaattisesti Outlook-kokouspyyntöihin.
Lisää allekirjoitus automaattisesti Outlookin kokouspyyntöihin mukautetulla lomakkeella
Lisää allekirjoitus automaattisesti Outlookin kokouspyyntöihin VBA-koodilla
Lisää allekirjoitus automaattisesti Outlookin kokouspyyntöihin mukautetulla lomakkeella
Outlookissa voit luoda mukautetun lomakkeen lisätäksesi allekirjoituksen kokouspyyntöihin automaattisesti, toimi seuraavasti:
1. Ole hyvä ja navigoi osoitteeseen Kalenteri ikkuna ja napsauta ETUSIVU > Uusi kokous avataksesi uuden Kokous ikkunassa.
2. Napsauta sitten liite > allekirjoitus, ja valitse allekirjoitus, jonka haluat lisätä, katso kuvakaappaus:
3. Kun olet lisännyt allekirjoituksen, jatka napsauttamalla Kehittäjä > Suunnittele tämä lomake uudessa Kokous ikkuna, katso kuvakaappaus:
4. Napsauta uudessa näytössä Kehittäjä > julkaista > Julkaise lomake nimellä, katso kuvakaappaus:
5. Ponnahdusikkunassa Julkaise lomake nimellä -valintaikkunassa, kirjoita nimi kohtaan näyttö nimi tekstiruutuun ja napsauta sitten julkaista painiketta, katso kuvakaappaus:
6. Sulje sitten nykyinen kokousikkuna tallentamatta sitä.
7. Tästä eteenpäin, kun haluat luoda uuden kokouksen allekirjoituksella, napsauta ETUSIVU > Uutuuksia > Mukautetut lomakkeetja valitse sitten juuri luomasi lomake. Ja allekirjoitus lisätään kokouksen runkoon automaattisesti, katso kuvakaappaus:
AI Mail Assistant Outlookissa: älykkäämpiä vastauksia, selkeämpi viestintä (yhden napsautuksen taikuutta!) VAPAA
Virtaviivaista päivittäisiä Outlook-tehtäviäsi Kutools for Outlookin AI Mail Assistantin avulla. Tämä tehokas työkalu oppii aiemmista sähköpostiviesteistäsi ja tarjoaa älykkäitä ja tarkkoja vastauksia, optimoi sähköpostisi sisällön ja auttaa sinua luomaan ja tarkentamaan viestejä vaivattomasti.
Tämä ominaisuus tukee:
- Älykkäät vastaukset: saat aiemmista keskusteluistasi luotuja vastauksia – räätälöityjä, tarkkoja ja valmiita käyttöön.
- Parannettu sisältö: tarkenna sähköpostisi tekstiä automaattisesti selkeyden ja vaikutuksen saamiseksi.
- Vaivaton kokoonpano: Anna vain avainsanoja ja anna tekoäly hoitaa loput useilla kirjoitustyyleillä.
- Älykkäät laajennukset: Laajenna ajatuksiasi kontekstitietoisilla ehdotuksilla.
- Yhteenveto: Saat lyhyet yleiskatsaukset pitkistä sähköposteista välittömästi.
- Globaali kattavuus: Käännä sähköpostisi helposti mille tahansa kielelle.
Tämä ominaisuus tukee:
- Älykkäät sähköpostivastaukset
- Optimoitu sisältö
- Avainsanoihin perustuvat luonnokset
- Älykäs sisältölaajennus
- Yhteenveto sähköpostitse
- Monikielinen käännös
Mikä parasta, tämä ominaisuus on täysin Ilmainen ikuisesti! Älä odota -lataa AI Mail Assistant nyt ja nauti!
Lisää allekirjoitus automaattisesti Outlookin kokouspyyntöihin VBA-koodilla
Alla oleva VBA-koodi voi myös auttaa sinua lisäämään automaattisesti allekirjoituksen kokouspyyntöihin, toimi seuraavasti:
1. Pidä painettuna ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta ThisOutlookSession mistä Projekti1 (VbaProject.OTM) ruutua avataksesi moduulin ja kopioi ja liitä sitten seuraava koodi tyhjään moduuliin.
VBA-koodi: Lisää allekirjoitus automaattisesti kokouspyyntöihin:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim xMeetingItem As Outlook.MeetingItem
Dim xFSO As Scripting.FileSystemObject
Dim xSignStream, xWriteStream, xReadStream As Scripting.TextStream
Dim xSignFld, xSignSubFld As Scripting.Folder
Dim xSignFile As Scripting.File
Dim xSignText, xSignPath As String
Dim xMailRTFText, xMeetingRTFText, xAllRTFText As String
Dim xByte() As Byte
Dim xPos As Integer
Dim xFilePath, xFldPath, xFldName As String
Dim xMailItem As MailItem
On Error Resume Next
If Item.Class = olMeetingRequest Then
Set xMeetingItem = Item
Set xFSO = CreateObject("scripting.FileSystemObject")
xSignPath = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\"
Set xSignFld = xFSO.GetFolder(xSignPath)
If xSignFld.SubFolders.Count <> 0 Then
For Each xSignSubFld In xSignFld.SubFolders
xFldName = xSignSubFld.Name
xFldPath = xSignSubFld.Path
Next
End If
For Each xSignFile In xSignFld.Files
If xFSO.GetExtensionName(xSignFile.Path) = "htm" Then
Set xSignStream = xFSO.OpenTextFile(xSignFile.Path)
xSignText = xSignStream.ReadAll
If InStr(xSignText, xFldName) <> 0 Then
xSignText = Replace(xSignText, xFldName, xFldPath)
End If
Set xMailItem = Outlook.Application.CreateItem(olMailItem)
xMailItem.HTMLBody = xSignText
xMailRTFText = StrConv(xMailItem.RTFBody, vbUnicode)
xMeetingRTFText = StrConv(xMeetingItem.RTFBody, vbUnicode)
xPos = InStrRev(xMeetingRTFText, "{\*\htmltag104 </div>}\htmlrtf }\htmlrtf0")
xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)
xFilePath = xFilePath & "\MeetingText.txt"
If xFSO.FileExists(xFilePath) Then
xFSO.DeleteFile xFilePath
End If
Set xWriteStream = xFSO.OpenTextFile(xFilePath, 8, True)
xMeetingRTFText = Mid(xMeetingRTFText, 1, xPos - 1) & "{\*\htmltag72 </p>}{\*\htmltag0 \par }{\*\htmltag0 \par }" _
& "{\*\htmltag64 <p class=MsoNormal>}\htmlrtf {\htmlrtf0 {\*\htmltag148 <span lang=EN-US style='color:#00B050'>}\htmlrtf {\htmlrtf0" _
& "{\*\htmltag244 <o:p>}{\*\htmltag84 }\htmlrtf \'a0\htmlrtf0{\*\htmltag252 </o:p>}" _
& "{\*\htmltag156 </span>}\htmlrtf }\htmlrtf0 \htmlrtf\par}\htmlrtf0" _
& vbCrLf & xMailRTFText & vbCrLf & Mid(xMeetingRTFText, xPos, Len(xMeetingRTFText) - xPos + 1)
xWriteStream.WriteLine xMeetingRTFText
Set xReadStream = xFSO.OpenTextFile(xFilePath)
xAllRTFText = xReadStream.ReadAll
PackBytes xByte, xAllRTFText
xMeetingItem.RTFBody = xByte
xMeetingItem.Save
xMailItem.Close olDiscard
End If
Next
End If
End Sub
Private Sub PackBytes(ByteArray() As Byte, ByVal PostData As String)
ByteArray() = StrConv(PostData, vbFromUnicode)
End Sub
3. Tallenna ja sulje sitten koodiikkuna, koska siitä lähtien, kun lähetät lähtevän kokouskutsun, tietty allekirjoitus lisätään automaattisesti. Voit mennä osoitteeseen Lähetetty kohde kansio tulosten tarkistamiseksi:
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 ...
