script firma outlook

[bubuforever]

Buenas, me gustaría saber si existe en visual basic script un script que coloque las firmas en el outlook.Esto es debido a que queremos hacerlo en muchos equipos y si lo hacemos equipo a equipo llevaría mucho tiempo. Muchas gracias

[BARCORE]

Hola, yo acabo de hacer ese trabajo.
No es complicado
Necesitas tener la firma en un archivo doc.
Luego este script toma ese DOC y lo guarda en la ruta donde se guardan las firmas de outlook con las extensiones txt, rft y htm, ya que opulook usa esas extenciones para sus distintos formatos de correo

Te lo pego aca, adaptalo a tu necesidad

Set fso = CreateObject("Scripting.FileSystemObject")
Set objRootFolder = fso.GetFolder("C:\callfirmas\firmanueva")
Set objSubFolders = objRootFolder.SubFolders
For Each objFolder In objSubFolders
Set objRootFolder1 = fso.GetFolder("C:\callfirmas\firmanueva\" & objFolder.Name )
Set objSubFolders1 = objRootFolder1.SubFolders
For Each objFolder1 In objSubFolders1
' msgbox objFolder.Name & " " & objFolder1.Name

' abre DOC y guarda en HTM, RTF y TXR
Set objWord = CreateObject("Word.Application")
Rutafirmafuente = "C:\callfirmas\firmanueva\" & objFolder.Name & "\" & objFolder1.Name & "\" & objFolder1.Name & ".doc"
if fso.fileexists(Rutafirmafuente) then
Set objDoc = objWord.Documents.Open(Rutafirmafuente)
objWord.Visible = false
Rutafirmadestino = "C:\callfirmas\Perfiles\" & objFolder.Name & "\" & objFolder1.Name
rutafinal= rutafirmadestino & "\Datos de programa\Microsoft\Signatures"
If FSO.FolderExists(rutafirmadestino & "\Application Data\Microsoft\Signatures") then rutafinal = rutafirmadestino & "\Application Data\Microsoft\Signatures"
msgbox rutafinal
objDoc.SaveAs(rutafinal & "\" & objFolder1.Name & ".htm"),8
objDoc.SaveAs(rutafinal & "\" & objFolder1.Name & ".rtf"),6
objDoc.SaveAs(rutafinal & "\" & objFolder1.Name & ".txt"),2
objWord.Quit
msgbox "revisar " & objFolder.Name & " " & objFolder1.Name
end if
Next
Next

suerte !!!!!!!!!!

[bubuforever]

ya encontré la solución, gracias!!!!