BandaAncha.eu

  • 🔍 en 📰 artículos ⏎
  • 🔍 en 💬 foros ⏎
  • 🔍 en 👇 este 💬 foro ⏎
  • 🔍 en 👇 este 💬 tema ⏎
Regístrate Regístrate Identifícate Identifícate

Firma corporativa

1
BocaDePez
BocaDePez
⋮

Hace un tiempo que estaba intentando instalar una firma corporativa dentro de un dominio (hilo inicial Firma corporativa ).

Siguiendo poco a poco las instrucciones que me han dado, he logrado instalar las orktools, pero no encuentro la forma de, no ya una que coja parametros del dominio, sino ni siquiera configurar la una firma por defecto, ya que únicamente me aparecen dos directivas para permitir la firma en un mail nuevo y/o en una respuesta

¿Alguien me puede decir si realmente lo que quiero hacer es posible o llevo dando cabezazos contra la pared un buen tiempo?

Este tema está cerrado a nuevas respuestas. Abre un nuevo tema para retomar la conversación.
BocaDePez
BocaDePez
⋮

A nadie se le a presentado el mismo problema?

BocaDePez
BocaDePez
⋮

Bueno, ante el fracaso con las orktools, estoy intentado una alternativa. La idea sería crear una firma con el word, que cuando se abriera, mediante VBScript cogiera del sistema tanto el nombre de usuario como el email y lo pusiera en el archivo (se podría, ya que la firma se abriría con el outlook). El problema es q no tengo ni pajodera idea de como hacer eso. He buscado scripts y he encontrado alguno:

On Error Resume Next

 Set objSysInfo = CreateObject("ADSystemInfo")

 strUser = objSysInfo.UserName

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

 strName = objUser.FullName

 strTitle = objUser.Title

 strDepartment = objUser.Department

 strCompany = objUser.Company

 strPhone = objUser.telephoneNumber

 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.TypeText strName & ", " & strTitle

 objSelection.TypeParagraph()

 objSelection.TypeText strDepartment

 objSelection.TypeParagraph()

 objSelection.TypeText strCompany

 objSelection.TypeParagraph()

 objSelection.TypeText strPhone

 Set objSelection = objDoc.Range()

 objSignatureEntries.Add "AD Signature", objSelection

 objSignatureObject.NewMessageSignature = "AD Signature"

 objSignatureObject.ReplyMessageSignature = "AD Signature"

 objDoc.Saved = True

 objWord.Quit

El problema ahora es que no se como añadir este script al word :-? ni como hacer para que cuando se abra se ejecute

¿alguien em podría echar una manita?

Graciasss

🗨️ 1
✖
BocaDePez
BocaDePez
⋮

lo suyo será contratar a un profesional para cosas de empresa.

1