Enviar email com nome predefinido ex: De: Sistema

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

Olá,

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


Abraço

Boa tarde

Marco, testei desse jeito mais não funcionou.

Tente objMailItem.Sender

Boa Tarde

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

Agradeço a atenção.

Qual erro que ocorreu?

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

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

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

Qual versão do Access vc usa?

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

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.

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.

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?

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.