[Resolvido]Assinatura no Email

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

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"

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.

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.

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

No meu caso a assinatura é muito grande. Mesmo.

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:
http://www.rondebruin.nl/win/s1/outlook/signature.htm
Abraço

Encontrei isso Tambem...
http://blogdokazu.blogspot.com.br/2010/05/inserindo-assinatura-no-outlook-vba.html
http://www.scriptbrasil.com.br/forum/topic/158759-pegar-assinatura-do-outlook/

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>"

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

Deu o erro:

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

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

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.

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

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:
https://www.maximoaccess.com/t24394-resolvidoenviar-e-mail-via-access-2010-x-outlook-formato-texto-html

Abraço