Pergunta

Eu modifiquei um formulário existente e salva-lo no meu desktop como ficheiro.oft. Sempre que eu enviar este formulário eu tenho uma assinatura antiga que shows.

Se eu duplo clique no arquivo .oft vejo o corpo com aquele velho assinatura e, em seguida, o meu mais recente abaixo dela. Eu gostaria de apagar aquela velha assinatura que está preso no corpo. O que me confunde é que quando eu abrir esse arquivo em formulários do Outlook nunca inclui uma assinatura às mensagens, é por isso que quando eu executar o formulário não vejo essa assinatura exceto quando eu enviá-lo, eu vê-lo na pré-visualização quando eu abrir a mensagem que eu ver meu formulário do Outlook como deveria ser.


Eu consegui salvar o arquivo como html. Eu vejo a assinatura na parte inferior da página.

Como posso remover ou modificar o arquivo html para remover essa assinatura e receber de volta o arquivo oft originais.

Eu também tentei salvar como html, removendo a assinatura, poupando, em seguida, usando uma macro para carregar o html. Mas não conseguiu salvar de volta para oft.

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
Foi útil?

Solução 2

conseguiu, adicionar caixa de mensagem. em seguida, ir para executar este formulário. e voila. remover a assinatura indesejada. salvar como

obrigado

Outras dicas

Se você ou um colaborador acidentalmente salva um formulário do Outlook .oft com RTF no corpo da mensagem (que inclui assinaturas), este texto rico será sempre preso no .oft, tanto quanto eu posso dizer (a menos que você decidir cortá-lo em um editor hexadecimal). Como outros sugerem nos cantos escuros da web, você pode executar o formulário, excluir o corpo da mensagem, e guardá-lo como um .oft - mas, infelizmente, isso não funciona com RTF. O RTF é preso. A única maneira que eu encontrei para esconder este texto é com este macro VBScript Outlook para alterar o tipo BodyFormat do MailItem para texto simples. Os bytes RTF permanecerá em sua .oft, mas pelo menos ninguém vai estar a olhar para eles.

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 em: CC-BY-SA com atribuição
Não afiliado a StackOverflow
scroll top