2 metody automatického vložení podpisu na pozvánky na schůzku v aplikaci Outlook

Možná jste si všimli, že v Outlooku lze nastavit pouze automatické vkládání podpisu do e-mailů. Nemůže automaticky vložit podpis do pozvánek na schůzku. Tento článek se proto bude zabývat touto otázkou a bude k ní sdílet 2 prostředky.

Nelze nakonfigurovat Outlook tak, aby automaticky vkládal podpis do pozvánky na schůzku. Tato funkce „Automatický podpis“ je k dispozici pouze pro e-mail. Pokud tedy chcete automaticky vložit podpis na odchozí žádosti o schůzku, musíte hledat jiné prostředky. Zde vám představíme 2 metody.

Metoda 1: Dosažení pomocí vlastního formuláře

1. Hned na začátku spusťte aplikaci Outlook.
2. Poté se pomocí tlačítek „Ctrl + 2“ přesuňte do navigačního podokna „Kalendář“.
3. Poté vytvořte novou pozvánku na schůzku kliknutím na tlačítko „Nová schůzka“ na pásu karet.
4. V novém okně schůzky přepněte na kartu „Vložit“.
5. Poté klikněte na „Podpis“ a vyberte podpis, který má být vložen do schůzky.
6. Poté přejděte na kartu „Vývojář“ a klikněte na tlačítko „Navrhnout tento formulář“.
7. Později na nové obrazovce klikněte na „Publikovat“> „Publikovat formulář jako“.
8. V novém dialogovém okně zadejte název tohoto formuláře do pole „Zobrazovaný název“.
9. Poté klikněte na tlačítko „Publikovat“.
10. Nakonec zavřete aktuální okno schůzky bez uložení změn.
11. Od této chvíle můžete pokaždé, když chcete vytvořit novou schůzku s podpisem, kliknout na „Nové položky“> „Vybrat formulář“ a poté vybrat nový formulář.

Metoda 2: Využijte Outlook VBA

1. Nejprve můžete přistupovat k editoru aplikace Outlook VBA podle článku - „Jak spustit kód VBA v aplikaci Outlook“.
2. Poté zkopírujte následující kód VBA do projektu „ThisOutlookSession“.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMeeting As Outlook.MeetingItem
    Dim strSignatureFile As String
    Dim objFileSystem As Object
    Dim objTextStream As Object
    Dim strText As String
    Dim objTempMail As Outlook.MailItem

   If TypeName(Item) = "MeetingItem" Then
      Set objMeeting = Item
 
      'Change the path to your own signature file
      strSignatureFile = CStr(Environ("USERPROFILE")) & "\AppData\Roaming\Microsoft\Signatures\Test John Smith.htm"
      Set objFileSystem = CreateObject("scripting.FileSystemObject")
      Set objTextStream = objFileSystem.OpenTextFile(strSignatureFile)
      strText = objTextStream.ReadAll
 
      Set objTempMail = Outlook.Application.CreateItem(olMailItem)
      objTempMail.Display
      objTempMail.HTMLBody = strText
 
      objMeeting.Body = objMeeting.Body & vbCrLf & vbCrLf & objTempMail.Body
      objMeeting.Save
 
      objTempMail.Close olDiscard
    End If
End Sub

3. Dále změňte komentovaný kód podle vlastního případu.
4. Od té doby se pokaždé, když odešlete pozvánku na odchozí schůzku, na konec automaticky vloží předdefinovaný podpis.

Counter Assorted Outlook Outlook Troubles

Uživatelé aplikace Outlook trápí různé problémy s aplikací Outlook, od neočekávaného selhání po závažné poškození. Obecně budeme mít tendenci používat k opravě chyb aplikace Outlook zabudovaný nástroj pro opravu - Scanpst. Může však opravit pouze malé závady. Pokud je soubor PST vážně poškozen, nemůže tento nástroj hodně pomoci. V takovém případě musíte použít software třetích stran, jako je DataNumen Outlook Repair, který je odborníkem na Oprava PST.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com