Enviar mail via GroupWise com Assinatura

Bom dia!

Mais uma vez venho pedir a vossa ajuda, que desde já agradeço.

Uso o código abaixo para enviar mails diretamento do access (2003) via GroupWise.

O que não estou conseguindo encontrar é uma maneira de enviar a assinatura também.

Alguém tem uma dica que me possa ajudar para o efeito?

Obrigado

Código:

Private Sub Command0_Click()
Dim eadd As String
Dim dir As String
Dim file1 As String
Dim file2 As String
Dim file3 As String
Dim file4 As String
Dim file5 As String
Dim Comb1 As String
Dim Comb2 As String
Dim comb3 As String
Dim comb4 As String
Dim comb5 As String

Set oapp = CreateObject("NovellGroupWareSession")
Set oAcct = oapp.Login("your_login")
Set omailbox = oAcct.MailBox
Set omessages = omailbox.Messages
Set oMessage = omessages.ADD("GW.MESSAGE.MAIL")
Set oRecipients = oMessage.Recipients
Set oAttachments = oMessage.Attachments
eadd = "YOUR_EMAIL_ADDRESS"
dir = "G:\A51_development\output"
file1 = "A.xls"
file2 = "B.XLS"
file3 = "C.XLS"
'file4 = ""
'file5 = ""
Comb1 = dir & "/" & file1
Comb2 = dir & "/" & file2
comb3 = dir & "/" & file3
'Comb4 = dir & "/" & file4
'Comb5 = dir & "/" & file5
Set oRecipient = oRecipients.ADD("RECEIVER ADDRESS1")
Set oRecipient = oRecipients.ADD("RECEIVER ADDRESS2")
oAttachments.ADD (Comb1)
oAttachments.ADD (Comb2)
oAttachments.ADD (comb3)
'oAttachments.ADD (Comb4)
'oAttachments.ADD (Comb5)



oMessage.BodyText = "Message goes here"
oMessage.Subject = "Testing Subject"
oMessage.Send
End Sub

Olá Carlos,

A Assinatura será no final do corpo da mensagem.

Será ajustar diretamente no coprpo do texto ou em alternativa adicionar na linha do código que está atribuir o corpo da mensagem:

oMessage.BodyText = "Message goes here"

Abraço

Obrigado Teixeira pela dica.

Isso é o que eu já estou a utilizar (em texto), mas a assinatura é um logotipo em png. Para complicar oMessage.BodyText tem origem em uma textbox pré-preenchida.

Outra forma de resolver o problema seria eu "adicionar" no final do texto da Textbox o tal logotipo, mas julgo não ser possível.

Mais alguma ideia?

Obrigado

Aqui optamos por colocar a imagem da assinatura na web e então chamar no final da mensagem.
O problema é que nem sempre aparece automaticamente. As vezes o usuário tem que clicar para baixar as imagens.

A última linha da string de mensagem é assim

Código:

vMensagem = vMensagem & "<img src=""https://uploaddeimagens.com.br/images/001/109/866/original/rodapemsgos.jpg?1506542785"" alt=""Ideés Convites"" title=""Ideés Convites"">"

Lembrando que é HTMLBody.

Uma solução que não funciona muito bem, mas no meu caso é uma mensagem automática do sistema de lembrete, resolvemos deixar desta maneira mesmo.

Olá a todos,

Siga a dica do colega, se não resolver, efetue uma "busca" no fórum.
Tema ja abordado, veja por exemplo:
https://www.maximoaccess.com/t9739-resolvidoinserir-assinatura-no-email-via-codigo

Abraço a todos

Obrigado a todos pelas dicas,

Até agora ainda não consegui que funcionasse.

No lugar da assinatura aparecer a vermelho a seguinte mensagem:

"The HTML signature 'CAP_Lopes' does not contain any text"

Alguma ideia?

Uma outra opção: A assinatura também se encontra no Novell GroupWise.., não tem como chamar essa assinatura pelo vba?

Obrigado

Olá a todos,

Carlos, desconheço o Novell GroupWise, no entanto deve verificar se está a enviar o email em modo de Texto (TextBody) ou Html (HTMLBody).
Pois da forma que o colega indicou só via funcionar se a mensagem estiver no modo Html (HTMLBody.

Veja se algum dos links abaixo ajuda:
https://www.maximoaccess.com/t31230-resolvidoenvio-de-email-com-assinatura
https://www.maximoaccess.com/t33815-resolvidoenvio-de-email-com-imagem
https://www.maximoaccess.com/t30849-resolvidousar-html-em-e-mail

Também tem dois excelentes artigos do nosso colega Avelino Sampaio:

usandoaccess.com.br/tutoriais/enviar-email-usando-o-cdosys.asp?id=1#inicio
usandoaccess.com.br/dicas/outlook-anexos-richtext-account.asp?id=1#inicio

Abraço

Obrigado a todos pelas dicas.

Ainda não consegui ultrapassar a dificuldade, estou a enviar a assinatura temporariamente como texto.

Explorei as configurações do Novell Groupwise, e verifiquei que possui as duas formas de enviar o email: em modo de Texto (TextBody) e Html (HTMLBody). No entanto na instituição onde trabalho está configurado o envio em modo de Texto (TextBody), pelo que apenas uma solução em TextBody terá sucesso.

Se alguém tiver outra ideia...

Obrigado