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

    [Resolvido]Assinatura no Email

    Compartilhe
    avatar
    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
    avatar
    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    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"
    avatar
    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.
    avatar
    Ney Santos
    Intermediário
    Intermediário

    Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    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.
    avatar
    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4110
    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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3151
    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!
    avatar
    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>"
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4110
    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)
    avatar
    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
    avatar
    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
    avatar
    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 19 vez(es)
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3151
    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!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4110
    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: Sex 23 Jun 2017, 21:34