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

    Enviar email com nome predefinido ex: De: Sistema

    Compartilhe

    andregoulart
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 21/05/2012

    Enviar email com nome predefinido ex: De: Sistema

    Mensagem  andregoulart em Seg 02 Dez 2013, 12:47

    Bom Dia

    Alguém saberia como enviar um email no access só que o destinatário receber em vez do meu nome um nome predefinido por mim Exemplo: "Sistema"

    tentei objMailItem.from = "Sistema" ,mais não funcionou.

    Ja fica aqui o código que uso ele funciona perfeitamente inclusive não aparece a mensagem de segurança do Outlook ele envia o email direto.

    Dim strPara As String
    Dim strCorpoEmail As String
    Dim strAssunto As String

    Dim objOutlook As Object
    Dim objMailItem As Object
    Const olMailItem As Integer = 0
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMailItem = objOutlook.CreateItem(olMailItem)

    strPara = "para@emal.com.br"
    strAssunto = "Assunto"
    strCorpoEmail = "Texto do corpo do email"

    objMailItem.To = strPara
    objMailItem.Subject = strAssunto
    objMailItem.Body = strCorpoEmail

    objMailItem.Send

    Set objOutlook = Nothing
    Set objMailItem = Nothing

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  Marco Messa em Seg 02 Dez 2013, 18:32

    Olá,

    Não testei esse seu código, mas vc já tentou algo como objMailItem.From ?


    Abraço


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

    andregoulart
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 21/05/2012

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  andregoulart em Seg 02 Dez 2013, 19:33

    Boa tarde

    Marco, testei desse jeito mais não funcionou.

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  Marco Messa em Ter 03 Dez 2013, 15:55

    Tente objMailItem.Sender


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

    andregoulart
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 21/05/2012

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  andregoulart em Qui 05 Dez 2013, 18:56

    Boa Tarde

    Marco, desculpe a demora estive afastado, tentei objMailItem.Sender mais sem sucesso, teria mais alguma ideia?

    Agradeço a atenção.

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  Marco Messa em Qui 05 Dez 2013, 20:46

    Qual erro que ocorreu?


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  Marco Messa em Qui 05 Dez 2013, 20:47

    Envie a sua base de exemplo, pra que a galera do fórum possa verificar.


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

    andregoulart
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 21/05/2012

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  andregoulart em Qui 05 Dez 2013, 21:01

    Marco meu banco é muito grande, e o meu problema não necessita do envio dele se vc abrir um banco zerado e em um botão de um formulário colar o código abaixo ja da pra fazer o teste. O erro que esta dando é em tempo de execução numero 438,  "O objeto não aceita  esta propriedade ou método"

    Não sei se me expressei claramente, eu quero enviar um email pelo outlook da pessoa que estiver logado na maquina ( e são vários usuários) mais somente quero que o remetente ao invés de enxergar que o email foi enviado por João ou Maria ele enxergue que o email foi enviado por "Sistema" para que ele não saiba o remetente.

    Segue o código com o  objMailItem.Sender que você sugeriu:

    Dim strPara As String
    Dim strCorpoEmail As String
    Dim strAssunto As String
    Dim strDe As String

    Dim objOutlook As Object
    Dim objMailItem As Object
    Const olMailItem As Integer = 0
    Set objOutlook = CreateObject("Outlook.Application")
    Set objMailItem = objOutlook.CreateItem(olMailItem)

    strDe = "Sistema"
    strPara = "andre.goulart@novapontocom.com.br"
    strAssunto = "Assunto"
    strCorpoEmail = "Texto do corpo do email"

    objMailItem.Sender = strDe
    objMailItem.To = strPara
    objMailItem.Subject = strAssunto
    objMailItem.Body = strCorpoEmail

    objMailItem.Send

    Set objOutlook = Nothing
    Set objMailItem = Nothing

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  Marco Messa em Qui 05 Dez 2013, 21:21

    Bem, no meu não deu erro... mas enviou com a minha conta padrão... e provavelmente vc recebeu um email meu HAHAHAHA


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  Marco Messa em Qui 05 Dez 2013, 21:22

    Qual versão do Access vc usa?


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

    andregoulart
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 21/05/2012

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  andregoulart em Qui 05 Dez 2013, 21:32


    Uso a 2007 recebi seu email sim, mais chegou com o seu email e a intenção era não saber quem enviou.


    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  Marco Messa em Qui 05 Dez 2013, 22:23

    Então cara, você precisará de outro componente pra enviar um e-mail assim (quase certeza), porque o outlook necessita de uma conta para enviar emails.
    Você poderia tentar pelo CDO também, mas pra conseguir enviar anônimo vc precisaria de um SMTP que permitisse isso.
    De qualquer maneira, o ideal seria você poder utilizar um servidor SMTP que te desse tal permissão, visto que é um projeto para a empresa.


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

    andregoulart
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 21/05/2012

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  andregoulart em Qui 05 Dez 2013, 23:52

    Entendi, cara eu não tenho idéia de como fazer o processo que vc disse de usar um servidor SMTP, se tiver algum tutorial especifico que me ajudasse seria uma boa.

    Independente disso agradeço a sua atenção e ajuda, vou deixar o tópico aberto por mais um tempo, caso mais alguém tenha uma alternativa para o problema.

    Marco Messa
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 283
    Registrado : 28/06/2010

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  Marco Messa em Sex 06 Dez 2013, 12:19

    Sim, provável que alguém tenha uma solução.
    Em relação ao servidor, eu não sou muito bom nessa parte de servidores e configurações, mas sei que quem deve permitir é o servidor de envio.
    De qualquer maneira, só pra deixar mais claro, é apenas você quem usa o sistema e fica apenas na sua máquina?


    .................................................................................
    Tea with me that I book your face [Você precisa estar registrado e conectado para ver esta imagem.]

    andregoulart
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 59
    Registrado : 21/05/2012

    Re: Enviar email com nome predefinido ex: De: Sistema

    Mensagem  andregoulart em Sex 06 Dez 2013, 14:23

    Bom dia

    Não sou só eu não, o banco fica em rede e é acessado por varios usuários, e cada um faz um processo automatico de envio de emails, por isso não pode aparecer o nome de quem enviou o email.

      Data/hora atual: Ter 06 Dez 2016, 05:42