ASSINATURA OUTLOOK

ALEVALE 05/03/2012 10:46:10
#396436
Pessoal bom dia,

Perdi meu usuário de novo no VBMANIA..rsrsr
Espero que tenha sido somente com o meu usuário, criei um outro pois estou precisando de um Help....
Vamos lá......

Estou fazendo uma aplicação para padronizar as assinaturas de e-mail da galera......
A aplicação para pegar os dados e montar a assinatura está legal !
Porém não estou conseguindo setar ela como assinatura no Outlook alguém pode dar uma luz...

Obrigado !
JULIANOPAN 05/03/2012 13:11:45
#396451
eu uso assim

Dim resource As New LinkedResource(([Ô]caminho da assinatura[Ô]))
ALEVALE 05/03/2012 14:02:40
#396454
Poderia disponibilizar o exemplo ?
LVFIOROT 05/03/2012 14:17:48
#396455
tambem tive meu usuario excluido....

Citação:

:
Pessoal bom dia,

Perdi meu usuário de novo no VBMANIA..rsrsr
Espero que tenha sido somente com o meu usuário, criei um outro pois estou precisando de um Help....
Vamos lá......

Estou fazendo uma aplicação para padronizar as assinaturas de e-mail da galera......
A aplicação para pegar os dados e montar a assinatura está legal !
Porém não estou conseguindo setar ela como assinatura no Outlook alguém pode dar uma luz...

Obrigado !



ALEVALE 05/03/2012 14:52:00
#396456
Pessoal converti o código mas está dando erro será que alguém pode dar uma olhada ?


Private Function fncCria()
Dim objWord As New Word.Application
Dim objDoc As New Word.Document
objWord = CreateObject([Ô]Word.Application[Ô])

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

Dim objEmailOptions = objWord.EmailOptions
Dim objSignatureObject = objEmailOptions.EmailSignature
Dim objSignatureEntries = objSignatureObject.EmailSignatureEntries

objSelection.TypeText([Ô]Kind Regards,[Ô])
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.TypeText([Ô]1[Ô])
objSelection.TypeParagraph()
objSelection.TypeText([Ô]2[Ô])
objSelection.TypeParagraph()
objSelection.TypeParagraph()
objSelection.TypeText([Ô]3[Ô])
objSelection.TypeParagraph()
objSelection.TypeText([Ô]P: [Ô])
objSelection.TypeParagraph()
objSelection.TypeText([Ô]M: [Ô])
objSelection.TypeParagraph()
objSelection.TypeText([Ô]4[Ô])

objSelection = objDoc.Range()
objSignatureEntries.Add([Ô]AD Signature[Ô], objSelection)
objSignatureObject.NewMessageSignature = [Ô]AD Signature[Ô]
objSignatureObject.ReplyMessageSignature = [Ô]AD Signature[Ô]

objDoc.Saved = True
objWord.Quit()

End Function

CÓDIGO FONTE:
http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=179911
ALEVALE 05/03/2012 16:48:08
#396464
Alguém ??????????????????????????????????????????????????????
ALEVALE 07/03/2012 12:02:09
#396614
someone ?
Tópico encerrado , respostas não são mais permitidas
Voltar