MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Enviar mail via GroupWise com Assinatura

    Compartilhe

    zcarloslopes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 28/10/2010

    Enviar mail via GroupWise com Assinatura

    Mensagem  zcarloslopes em 29/10/2018, 12:20

    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5589
    Registrado : 15/03/2013

    Re: Enviar mail via GroupWise com Assinatura

    Mensagem  ahteixeira em 30/10/2018, 08:18

    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

    zcarloslopes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 28/10/2010

    Re: Enviar mail via GroupWise com Assinatura

    Mensagem  zcarloslopes em 30/10/2018, 14:34

    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
    avatar
    thiagomcosta
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 308
    Registrado : 23/01/2017

    Re: Enviar mail via GroupWise com Assinatura

    Mensagem  thiagomcosta em 30/10/2018, 14:49

    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5589
    Registrado : 15/03/2013

    Re: Enviar mail via GroupWise com Assinatura

    Mensagem  ahteixeira em 30/10/2018, 15:35

    Olá a todos,

    Siga a dica do colega, se não resolver, efetue uma "busca" no fórum.
    Tema ja abordado, veja por exemplo:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço a todos

    zcarloslopes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 28/10/2010

    Re: Enviar mail via GroupWise com Assinatura

    Mensagem  zcarloslopes em 31/10/2018, 13:39

    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5589
    Registrado : 15/03/2013

    Re: Enviar mail via GroupWise com Assinatura

    Mensagem  ahteixeira em 2/11/2018, 10:40

    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:
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    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

    zcarloslopes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 26
    Registrado : 28/10/2010

    Re: Enviar mail via GroupWise com Assinatura

    Mensagem  zcarloslopes em 8/11/2018, 22:21

    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

      Data/hora atual: 16/11/2018, 12:40