MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Assinatura no Email

    Compartilhe

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Assinatura no Email

    Mensagem  Caio em Qua 21 Set 2016, 16:17

    Senhores, teriam como me dar uma ajuda

    Uso esse código para enviar e-mail automático a partir do Outlook.
    Tenho uma assinatura padrão no Outlook, porém quando envio pelo Sistema ele não insere a assinatura Padão.

    Teria como especificar a assinatura existente no Outlook pelo VBA?

    Private Sub Comando289_Click()
    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)

    With OutMail
    .To = Me!txt_email
    .Subject = "Tarefa com Prioridade " & Me.Prioridade
    .Body = "Devo comunica-lo que a ação de N° " & Me.txt_id & " - " & Me.Tarefa & ", com Prioridade " & Me.Prioridade & " está sob sua responsabilidade, prazo de " & Me.Prazo & " dias (vencimento " & Me.Entrada + Me.Prazo & ")."
    'Aqui tentei colocar: "Signature", "Signature = "Assinatura caio", "Byline"... porém sem sucesso!
    .Send
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

    End Sub

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Assinatu email.

    Mensagem  Ney Santos em Qua 21 Set 2016, 16:29

    Boa tarde tenho um código parecido, no meu caso eu reoslvi da seguinte forma:
    No .Body inseri no final da linha 3 vezes um & VBCRLF  para dar espaço e inclui "Att.. Ney Santos" & vbcrlf & "Fone: xx-xxxx-xxx
    veja meu código, ele ja aproveita que no access 2007 tem a opçaõ de evnir como PDF e anexa o pedido em formato PDF:
    Dim bd As Database
    Dim Usuario As Recordset
    Set bd = DBEngine.Workspaces(0).Databases(0)
    Set Usuario = bd.OpenRecordset("Usuario", DB_OPEN_TABLE)

    Usuario.index = "IndiceNumero"
    Usuario.Seek "=", 1

    Dim BuscaUsuario As Long

    If Not Usuario.NoMatch Then
    Usuario.Edit
    BuscaUsuario = Usuario("CdUsuario")
    Usuario("Pedido") = Forms![Orcamento].[CpNotaFiscal]
    End If
    Usuario.Update

    Dim strstrSaudacao As Variant
    If Time() > #6:00:00 PM# Then
    strstrSaudacao = "Boa Noite! " & vbCrLf & Forms!Orcamento.Contato & "." & vbCrLf
    ElseIf Time() > #12:00:00 PM# And Time < #6:00:00 PM# Then
    strstrSaudacao = "Boa Tarde! " & vbCrLf & Forms!Orcamento.Contato & "." & vbCrLf
    Else
    strstrSaudacao = "Bom Dia! " & vbCrLf & Forms!Orcamento.Contato & "." & vbCrLf

    End If

    DoCmd.SendObject acReport, "Orçamento", acFormatPDF, Forms!Orcamento.Email, "neysantos@gmail.com.br", "neysantos@gmail.com", "Pedido n.º " & Forms!Orcamento.CpNotaFiscal & "( " & Forms!Orcamento.[Selecionar Nome].Column(0) & " )", strstrSaudacao & vbCrLf & "Envio do Pedido n.º " & Forms!Orcamento.CpNotaFiscal & vbCrLf & "Segue em anexo cópia do pedido descrito no campo assunto dessa mensagem, para sua conferência." & vbCrLf & vbCrLf & vbCrLf & " Atenciosamente " & vbCrLf & vbCrLf & Forms![Menu Principal].Nomeusu & vbCrLf & "Depto de Vendas " & vbCrLf & "BATERIAS ******" & vbCrLf & vbCrLf & " Fone (xx)xxxx-xxxx" & vbCrLf & "neysantos@gmail.com.br", True, ""


    MsgBox "Mensagem enviada...", vbInformation, "Aviso"

    DoCmd.Close acForm, "Complemento"
    DoCmd.OpenForm " Menu Principal"

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Assinatura no Email

    Mensagem  Caio em Qua 21 Set 2016, 16:46

    Obrigado pela dica amigo, mais precisava que ele pegasse a do outlook mesmo, pois não é só uma pessoa que envia os e-mails.

    Então a Lógica seria eu deixa padrão o Para, Assunto, Cc, e Corpo da mensagem. E pegasse a assinatura do Outlook que pode variar de acordo com o usuário que esta enviado o e-mail.

    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 145
    Registrado : 23/05/2011

    Assinatura no Email

    Mensagem  Ney Santos em Qua 21 Set 2016, 16:56

    Prezado caio, aqui tbm tem mais de uma pessoaque enia o email:
    A assinatura de quem esta enviando e informada na seguinte linha:
    Atenciosamente " & vbCrLf & vbCrLf & Forms![Menu Principal].Nomeusu
    No caso tenho um form principal que fica aberto sempre, quando o usuario loga no sistema fica gravado o nome dele
    quando o email e eviado ele busca esse nome la no form principal.
    vc pode adaptar da a maneira que achar mais facil buscar quem esta logado para identificar o remetente.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Assinatura no Email

    Mensagem  Caio em Qua 21 Set 2016, 17:02

    Basicamente a sua assinatura é o "Atenciosamente, UserName" ?

    No meu caso a assinatura é muito grande. Mesmo.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Assinatura no Email

    Mensagem  ahteixeira em Qua 21 Set 2016, 17:31

    Olá a todos,
    Caio se pretende a assinatura do user ligado na máquina o melhor será recolher onde o Outlook guarda a assinatura.
    Veja link abaixo:
    [Você precisa estar registrado e conectado para ver este link.]
    Abraço

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2315
    Registrado : 14/08/2013

    Re: [Resolvido]Assinatura no Email

    Mensagem  FabioPaes em Qua 21 Set 2016, 17:35

    Encontrei isso Tambem...
    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Assinatura no Email

    Mensagem  Caio em Qua 21 Set 2016, 19:04

    Amigos, adaptei como vocês sugeriram.

    Código:
    Sub Mail_Outlook_With_Signature_Html_1()
    ' Working in Office 2000-2016
        Dim OutApp As Object
        Dim OutMail As Object
        Dim strbody As String

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

    strbody = "Devo comunica-lo que a tarefa abaixo se encontra com prioridade " & Me.Prioridade & ", com " & Me.Prazo & " dias (vencimento " & Me.Entrada + Me.Prazo & ")." <br>" & _
                  "<H3><B>Me.txt_id & " - " & Me.Tarefa</B></H3>" & _
                  "<br>" & _
                  "<A HREF="" & _
                  "<br><br><B>Qualquer dúvida estou a disposição.</B>"

        On Error Resume Next

        With OutMail
            .Display
            .To = Me!txt_email
            .CC = ""
            .BCC = ""
            .Subject = "Tarefa com Prioridade " & Me.Prioridade
            .HTMLBody = strbody & "<br>" & .HTMLBody
            .Send
        End With

        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing
    End Sub



    Porém está dando Erro de Sintaxe nessa nessa parte:
    Código:

    strbody = "Devo comunica-lo que a tarefa abaixo se encontra com prioridade " & Me.Prioridade & ", com " & Me.Prazo & " dias (vencimento " & Me.Entrada + Me.Prazo & ")." <br>" & _
                  "<H3><B>Me.txt_id & " - " & Me.Tarefa</B></H3>" & _
                  "<br>" & _
                  "<A HREF="" & _
                  "<br><br><B>Qualquer dúvida estou a disposição.</B>"

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Assinatura no Email

    Mensagem  ahteixeira em Qua 21 Set 2016, 22:42

    Olá Caio, obrigado pelo retorno.
    Aparentemente se tem erro é porque está a formatar mal o HTML, teste assim:
    Código:
    strbody = "Devo comunica-lo que a tarefa abaixo se encontra com prioridade " & Me.Prioridade & ", com " & Me.Prazo & " dias (vencimento " & Me.Entrada + Me.Prazo & ")." & "<br>" & _
                  "<H3><B>Me.txt_id & " - " & Me.Tarefa &"</B></H3>" & _
                  "<br><br><br><B>Qualquer dúvida estou a disposição.</B>"
    Não testado, foi a "olho"
    Abraço


    Última edição por ahteixeira em Sex 23 Set 2016, 11:44, editado 1 vez(es)

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Assinatura no Email

    Mensagem  Caio em Qui 22 Set 2016, 12:29

    Deu o erro:

    Erro em tempo de execução '13'
    Tipos incompatíveis

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Assinatura no Email

    Mensagem  Caio em Qui 22 Set 2016, 20:09

    Dei uma revisada e o código está funcionando...

    Porém só preciso que uma dessas linhas fique com o Negrito e ao mesmo tempo com o "Me." para puxar valor de um campo no formulário.


    Segue revisão:

    Código:
    ' Working in Office 2000-2016
        Dim OutApp As Object
        Dim OutMail As Object
        Dim strbody As String

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        strbody = "Devo comunica-lo que a tarefa de N° " & Me.txt_idtarefa & ", com prioridade " & Me.Prioridade & ". Está sob sua responsabilidade com prazo de " & Me.Prazo & " dias, vencendo na " & Me.cxSemanaVencimento & "." & _
                  "<br>Porfavor, soluciona-la o quanto antes.<br>" & _
                  "<br><br><B>Qualquer dúvida estou a disposição.</B>"

        On Error Resume Next

        With OutMail
            .Display
            .To = Me!txt_email
            .CC = ""
            .BCC = ""
            .Subject = "Nova tarefa"
            .HTMLBody = strbody & "<br>" & .HTMLBody
            .Send
        End With

        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Assinatura no Email

    Mensagem  Caio em Qui 22 Set 2016, 21:53

    Solucionei.

    Modifiquei algumas coisas no código e fiz com que a formatação ficasse armazenada na caixa de texto. Assim especificando as caixas de texto.

    Segue revisão:

    No botão salvar do formulário nova tarefa:

    Código:
    ' Working in Office 2000-2016
        Dim OutApp As Object
        Dim OutMail As Object
        Dim strbody As String

        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(0)

        strbody = Me.txt_idtarefa & ", com prioridade " & Me.txt_prioridade & ". Está sob sua responsabilidade, com prazo de " & Me.Prazo & " dias, vencendo na " & Me.cxSemanaVencimento & "." & _
                  "<br><br>Por favor, solucioná-la o quanto antes.<br>" & _
                  "<br><br><B>Qualquer dúvida estou a disposição.</B>"

        On Error Resume Next

        With OutMail
            .Display
            .To = Me!txt_email
            .CC = ""
            .BCC = ""
            .Subject = "Nova tarefa"
            .HTMLBody = strbody & "<br>" & .HTMLBody
            .Send
        End With

        On Error GoTo 0
        Set OutMail = Nothing
        Set OutApp = Nothing


    Caixas de texto:

    txt_prioridade :
    Código:
    ="<b> <font color='Red'>" & [Prioridade] & "</font> </b>"
    txt_email:
    Código:
    =[Responsável].[Texto]
    txt_idtarefa:
    Código:
    ="<b></b>" & [txt_comunicado] & "<b>" & [txt_id] & " - " & [Tarefa] & "</b>"
    txt_comunidado:
    Código:
    ="Devo comunica-lo que a tarefa de N° "



    Formulário e resultado da programação em anexo.
    Anexos
    Formulário e E-mail.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (67 Kb) Baixado 13 vez(es)

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2315
    Registrado : 14/08/2013

    Re: [Resolvido]Assinatura no Email

    Mensagem  FabioPaes em Qui 22 Set 2016, 21:59

    Monte um exemplo e posta na sala de Repositórios, pode ser Útil pra mais alguém!...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido]Assinatura no Email

    Mensagem  ahteixeira em Sex 23 Set 2016, 11:57

    Olá a todos,

    Realmente hoje verifiquei que na mensagem nº 9 estava um erro, tinha uma campo junto com o tento, faltava & "
    Caio ao colocar no modulo, deveria estar logo apresentar o erro, seria ajustar!

    Quanto à questão do negrito e cores, é uma questão de HTML, para mais informações, vejam tópico abaixo:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: Qua 07 Dez 2016, 08:38