¿Cómo insertar automáticamente la firma en las solicitudes de reunión de Outlook?

En Outlook, puede insertar automáticamente su firma en los correos electrónicos de forma sencilla, pero si desea incluirla también en las invitaciones a reuniones, no existe un método directo para lograrlo. En este artículo, le explicaré algunos métodos útiles para añadir automáticamente su firma a las solicitudes de reunión en Outlook.

Insertar automáticamente la firma en las solicitudes de reunión de Outlook mediante un formulario personalizado

Insertar automáticamente la firma en las solicitudes de reunión de Outlook mediante código VBA

---

Insertar automáticamente la firma en las solicitudes de reunión de Outlook mediante un formulario personalizado

En Outlook, puede crear un formulario personalizado para insertar automáticamente su firma en las solicitudes de reunión. Siga estos pasos:

1. Vaya a la ventana de Calendario y haga clic en Inicio > Reunión para abrir la nueva ventana de Reunión.

2.A continuación, haga clic en Insertar>Firmay elija la firma que desee insertar; consulte la captura de pantalla:

3. Tras insertar la firma, haga clic en Desarrollador > Diseñar este formulario en la nueva ventana de Reunión; consulte la captura de pantalla:

4. En la nueva pantalla, haga clic en Desarrollador > Publicar > Publicar formulario como; consulte la captura de pantalla:

5.En el cuadro de diálogo emergente Publicar formulario como, escriba un nombre en el cuadro de texto Nombre para mostrary, a continuación, haga clic en el botón Publicar; consulte la captura de pantalla:

6. A continuación, cierre la ventana de la reunión actual sin guardarla.

7. A partir de ahora, cuando quiera crear una reunión con firma, haga clic en Inicio > Elementos nuevos > Formularios personalizados y seleccione el formulario que acaba de crear. La firma se insertará automáticamente en el cuerpo de la reunión; consulte la captura de pantalla:

---

Insertar automáticamente la firma en las solicitudes de reunión de Outlook mediante código VBA

El siguiente código VBA le permite insertar automáticamente una firma en las solicitudes de reunión. Siga estos pasos:

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en ThisOutlookSession del panel Proyecto1 (VbaProject.OTM) para abrir el módulo y, a continuación, copie y pegue el siguiente código en el módulo en blanco.

Código VBA: Insertar automáticamente la firma en las solicitudes de reunión:

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

3. A continuación, guarde y cierre la ventana de código. A partir de ese momento, cada vez que envíe una invitación a una reunión saliente, se insertará automáticamente la firma especificada. Puede comprobar el resultado en la carpeta de Elementos enviados.