none
vbscript com acentuação RRS feed

  • Pergunta

  • olá, 

    criei um script para automatizar a assinatura do outlook, funcionou perfeita mas preciso adicionar um texto na assinatura e possui alguns caracteres com acento que estão saindo errado no outlook.

    Como faço para que esse texto com acento apareça de forma correta no outlook?

    Abaixo o script que estou usando, a linha com o texto está em negrito quase no final do script

    On Error Resume Next

    Set objSysInfo = CreateObject("ADSystemInfo")

    Set WshShell = CreateObject("WScript.Shell")

    strUser = objSysInfo.UserName
    Set objUser = GetObject("LDAP://" & strUser)

    strName = objUser.FullName
    strDepartment = objUser.Department
    strPhone = objUser.TelephoneNumber
    strMobile = objUser.Mobile
    strWeb = objuser.wWWHomePage

    Set objWord = CreateObject("Word.Application")

    Set objDoc = objWord.Documents.Add()
    Set objSelection = objWord.Selection

    Set objEmailOptions = objWord.EmailOptions
    Set objSignatureObject = objEmailOptions.EmailSignature

    Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

    objSelection.Font.Name = "Verdana"
    objSelection.Font.Size = 8
    objSelection.Font.Bold = True
    objSelection.Font.Color = RGB(0,0,150)
    objSelection.TypeText strName
    objSelection.TypeText Chr(11)
    objSelection.Font.Bold = False
    objSelection.Font.Color = RGB(0,0,0)
    objSelection.TypeText strDepartment
    objSelection.TypeText Chr(11)
    objSelection.TypeText "Tel.: " & strPhone
    if len(strMobile) > 0 then
    objSelection.TypeText " | Cel.: " & strMobile
    end if
    objSelection.TypeText Chr(11)
    objSelection.Font.Name = "Verdana"
    objSelection.Font.Size = 8
    objSelection.Hyperlinks.Add objSelection.Range, "" & strWeb & "", , , "www.sitedaempresa.com.br"
    objSelection.TypeText Chr(11)
    objSelection.Font.Bold = True
    objSelection.Font.Color = RGB(0,0,200)
    objSelection.TypeText "TEXTO COM ACENTUAÇÃO"


    Set objSelection = objDoc.Range()

    objSignatureEntries.Add "AD Signature", objSelection
    objSignatureObject.NewMessageSignature = "AD Signature"

    objSignatureObject.ReplyMessageSignature = "AD Signature"

    objDoc.Saved = True
    objWord.Quit

    sexta-feira, 3 de abril de 2020 12:28

Todas as Respostas

  • Olá Alessandro,

    Você esta usando a referência linguagem em VB? Você instalou o pack de português dentro do Outlook? 

    Espero que esse artigo te ajude.

    https://docs.microsoft.com/pt-br/dotnet/visual-basic/language-reference/

    terça-feira, 7 de abril de 2020 17:49
    Moderador