Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

Come inserire automaticamente la firma nelle richieste di riunione di Outlook?

In Outlook, puoi inserire automaticamente la firma nelle e-mail facilmente, ma, se desideri inserire automaticamente la firma negli inviti alle riunioni, non esiste un modo diretto per risolvere questa attività. In questo articolo, parlerò di alcuni metodi utili per inserire automaticamente la firma nelle convocazioni di riunione di Outlook.

Inserisci automaticamente la firma nelle richieste di riunione di Outlook con il modulo personalizzato

Inserisci automaticamente la firma nelle convocazioni di riunione di Outlook con codice VBA


Inserisci automaticamente la firma nelle richieste di riunione di Outlook con il modulo personalizzato

In Outlook, puoi creare un modulo personalizzato per inserire automaticamente la firma nelle convocazioni di riunione, per favore fai come segue:

1. Si prega di accedere a Calendario finestra e fare clic su Casa > Nuovo incontro per aprire il nuovo Riunione finestra.

2. Quindi fare clic su inserire > Firmae scegli una firma che desideri inserire, vedi screenshot:

doc inserimento automatico sig alla riunione 1

3. Dopo aver inserito la firma, continua a fare clic Costruttori > Progetta questo modulo nel nuovo Riunione finestra, vedi screenshot:

doc inserimento automatico sig alla riunione 2

4. Nella nuova schermata, fare clic su Costruttori > Pubblica > Pubblica modulo come, vedi screenshot:

doc inserimento automatico sig alla riunione 3

5. Nel saltò fuori Pubblica modulo come finestra di dialogo, digitare un nome nel file Dsiplay nome casella di testo e quindi fare clic su Pubblica pulsante, vedi screenshot:

doc inserimento automatico sig alla riunione 4

6. Quindi, chiudi la finestra della riunione corrente senza salvarla.

7. D'ora in poi, quando si desidera creare una nuova riunione con firma, fare clic su Casa > Nuovi oggetti > Moduli personalizzati, quindi seleziona il modulo che hai appena creato. E la firma viene inserita automaticamente nel corpo della riunione, vedi screenshot:

doc inserimento automatico sig alla riunione 5


Inserisci automaticamente la firma nelle convocazioni di riunione di Outlook con codice VBA

Il codice VBA sottostante può anche aiutarti a inserire automaticamente una firma nelle convocazioni di riunione, esegui i seguenti passaggi:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: inserisci automaticamente la firma nelle convocazioni di riunione:

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 inserimento automatico sig alla riunione 6

3. Quindi salva e chiudi la finestra del codice, da allora, quando invii un invito a una riunione in uscita, la firma specifica verrà inserita automaticamente. Puoi andare al Articolo inviato cartella per controllare il risultato:

doc inserimento automatico sig alla riunione 7


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto ... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Laszlo · 1 years ago
    Dear Supporter,

    Regarding to VBA "hack", in Outlook365 does not insert the default signature at the end of a neither a new meeting nor appointment. What should I change in the code to get it work?

    Thank you in advance.

    Best regards: Laszlo
  • To post as a guest, your comment is unpublished.
    lyndseywelch1@gmail.com · 2 years ago
    What lines do I need to change to get this to work on my own profile? I've added the string to my signature location.
    Automatically Insert Signature To Outlook Meeting Requests With VBA Code