Note: The other languages of the website are Google-translated. Back to English

Kako samodejno vstaviti podpis v zahteve za sestanke v Outlooku?

V Outlooku lahko podpis samodejno vstavite v e-poštna sporočila, če pa želite samodejno vstaviti podpis v vabila na sestanke, te naloge ne morete rešiti neposredno. V tem članku bom govoril o nekaterih uporabnih metodah za samodejno vstavljanje podpisa v zahteve za sestanke v Outlooku.

Samodejno vstavite podpis v zahteve za sestanke v Outlooku z obrazcem po meri

Samodejno vstavi podpis v zahteve za sestanke Outlook s kodo VBA


Samodejno vstavite podpis v zahteve za sestanke v Outlooku z obrazcem po meri

V Outlooku lahko ustvarite obrazec po meri, da samodejno vstavite podpis v zahteve za sestanke, naredite naslednje:

1. Pojdite na Koledar okno in kliknite Home > Novo srečanje odpreti novo Sestanek okno.

2. Nato kliknite Vstavi > podpisin izberite podpis, ki ga želite vstaviti, glejte posnetek zaslona:

doc samodejno vstavi sig na sestanek 1

3. Po vstavitvi podpisa nadaljujte s klikom Razvojni > Oblikujte ta obrazec v novem Sestanek okno, glej posnetek zaslona:

doc samodejno vstavi sig na sestanek 2

4. Na novem zaslonu kliknite Razvojni > objavi > Objavi obrazec As, glej posnetek zaslona:

doc samodejno vstavi sig na sestanek 3

5. V izskočil Objavi obrazec As v pogovorno okno vnesite ime v zaslon ime in kliknite objavi gumb, glej posnetek zaslona:

doc samodejno vstavi sig na sestanek 4

6. Nato zaprite trenutno okno sestanka, ne da bi ga shranili.

7. Od zdaj naprej, ko želite ustvariti nov sestanek s podpisom, kliknite Home > Novi Izdelki > Obrazci po meriin nato izberite obrazec, ki ste ga pravkar ustvarili. In podpis se samodejno vstavi v telo sestanka, glejte posnetek zaslona:

doc samodejno vstavi sig na sestanek 5


Samodejno vstavi podpis v zahteve za sestanke Outlook s kodo VBA

Spodnja koda VBA vam lahko pomaga tudi pri samodejnem vstavljanju podpisa na zahteve za sestanke, naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) podokno, da odprete modul, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: Samodejno vstavi podpis v zahteve za sestanek:

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 &nbsp;}\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

doc samodejno vstavi sig na sestanek 6

3. Nato shranite in zaprite okno s kodo, saj bo od takrat, ko pošljete odhodno vabilo na sestanek, določen podpis samodejno vstavljen. Lahko greš na Poslano mapa za preverjanje rezultata:

doc samodejno vstavi sig na sestanek 7


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (2)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Katere vrstice moram spremeniti, da bo to delovalo na mojem profilu? Niz sem dodal na mesto podpisa.
Samodejno vstavite podpis v Outlookove zahteve za sestanke s kodo VBA
Ta komentar je moderator na spletnem mestu minimiziral
Spoštovani podpornik,

Kar zadeva VBA "hack", v Outlook365 ne vstavi privzetega podpisa na koncu niti novega sestanka niti sestanka. Kaj moram spremeniti v kodi, da bo delovala?

Hvala vnaprej.

Lep pozdrav: Laszlo
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije