Pregunta

He modificado un formulario existente y lo ha guardado en mi escritorio como un archivo .oft. Cada vez que envíe este formulario Tengo una vieja firma que muestra.

Si hago doble clic en el archivo .oft veo el cuerpo con esa vieja firma y entonces mi más reciente que está debajo. Me gustaría eliminar esa vieja firma que se ha quedado atascado en el cuerpo. Lo que me confunde es que al abrir ese archivo en Outlook forma que nunca incluye una firma en los mensajes, por lo que cuando corro la forma no veo esta firma excepto cuando lo envío, lo veo en la vista previa cuando abro el mensaje que vea mi forma de Outlook como debe ser.


Me las arreglé para guardar el archivo en formato html. Veo la firma en la parte inferior de la página.

¿Cómo puedo eliminar o modificar el archivo html en eliminar esa firma y recuperar el archivo original, tantas veces.

También intentado guardar como HTML, la eliminación de la firma, el ahorro, a continuación, utilizando una macro para cargar el código HTML. Pero incapaz de guardar de nuevo a menudo.

Sub MakeHTMLMsg()
Set objMsg =3D Application.CreateItem(olMailItem)
Set fso =3D CreateObject("Scripting.FileSystemObject")
Set ts =3D fso.OpenTextFile("c:\testfile.htm", 1)=20
strText =3D ts.ReadAll
objMsg.HTMLBody =3D strText
objMsg.Display
Set fso =3D Nothing
Set ts =3D Nothing=20
Set objMsg =3D Nothing
End Sub
¿Fue útil?

Solución 2

lo tiene, añadir cuadro de mensaje. y luego ir a ejecutar este formulario. y voilá. quitar la firma no deseado. guardar como

gracias

Otros consejos

Si usted o un colaborador accidentalmente ahorra un formulario de Outlook .oft con RTF en el cuerpo del mensaje (que incluye las firmas), este texto enriquecido será atrapado para siempre en la .oft, por lo que yo puedo decir (a menos que decida cortarlo en un editor hexadecimal). Como otros sugieren en los rincones oscuros de la web, se puede ejecutar el formulario, elimine el cuerpo del mensaje y guardarlo como un .oft - pero, por desgracia, esto no funciona con RTF. El RTF está atascado. La única manera que he encontrado para ocultar este texto es con esta macro VBScript Outlook para cambiar el tipo de BodyFormat del MailItem a texto sin formato. Los bytes RTF permanecerán en su .oft, pero al menos nadie se le busca en ellos.

Sub ChangeToPlainTextAndPublishForm()
    Dim objOL       ' As Outlook.Application
    Dim objItem     ' As Outlook.ContactItem
    Dim objFD       ' As Outlook.FormDescription
    Const olPersonalRegistry = 2
    Const olDiscard = 1

    Set objOL = CreateObject("Outlook.Application")
    Set objItem = objOL.CreateItemFromTemplate("C:\MyPath\MyForm.oft")
    Set objFD = objItem.FormDescription

    objItem.BodyFormat = OlBodyFormat.olFormatPlain

    'Publish to personal forms library
    With objFD
        .DisplayName = "myForm"
        .PublishForm olPersonalRegistry
    End With
    objItem.Close olDiscard

    Set objFD = Nothing
    Set objItem = Nothing
    Set objOL = Nothing
End Sub
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow
scroll top