[Resolvido]Enviar e-mail simples de forma oculta

Olá amigos, boa noite.

Vi neste índice do fórum que tem um tópico que trata do envio de e-mail anexando-se um relatório em PDF, como também tem no site qdo se fala de programação de relatórios. Nunca fiz essa rotina e tampouco sou bom em VBA, por isso, ao avaliarem a minha dúvida, podem indicar se a mesma já foi respondida que vou pesquisar a mesma.

De qualquer forma segue abaixo.

Estou desenvolvendo um sistema de Ordem de Serviço bem simples. O funcionário logado envia uma ordem de serviço via e-mail após preencher alguns campos no form e clica em ENVIAR. A rotina desse botão tem que montar um e-mail da seguinte forma:

Destinatário: Preenchido de acordo com o tipo de serviço solicitado;
Assunto: OS - [Nome do solicitante] - [Nome do serviço]
Corpo do e-mail:
Bom dia ou boa tarde ( pra ficar bom mesmo - de acordo com o horário )
A Ordem de Serviço abaixo foi protocolada de acordo os seguintes dados:
[a partir desse ponto acrescenta-se os dados que foram preenchidos no form]

A ideia é que o e-mail enviado não tenha qualquer tipo de interferência do usuário, tudo oculto.
Nesse caso não se envia qualquer arquivo anexo, somente no corpo do e-mail.

Obrigado Amigos.

Opa!

Eu tenho algo parecido aqui, também para ordem de serviços, porém com o intuito de comunicar aos compradores que foi aberta uma OS.

Segue o essencial do código:

Código:

'Enviar email
'Macro para enviar email, necessita habilitar referencia
'Na janela VBA --> Ferramentas --> Referências --> Microsoft CDO for Windows

Dim vMensagem As String, vDestinatario As String, vTitulo As String
Dim lobj_cdomsg As CDO.Message
Dim vNetwork As Object
Dim rs As DAO.Recordset

vDestinatario = "destinatario@email.com.br"

Set vNetwork = CreateObject("WScript.Network")
vLogado = vNetwork.UserName

    Set lobj_cdomsg = New CDO.Message '
    With lobj_cdomsg.Configuration
        .Fields(cdoSendUserName) = "email@servidor.com.br" 'Aqui vai o endereço de e-mail que será responsável pelo envio
        .Fields(cdoSendPassword) = "senhadeemail" 'Aqui vai a senha do e-mail
        .Fields(cdoSMTPAuthenticate) = cdoBasic
        .Fields(cdoSMTPServer) = "servidor.com.br" 'Nome do servidor SMTP
        .Fields(cdoSMTPConnectionTimeout) = 30 'Porta
        .Fields(cdoSMTPServerPort) = 587 'Porta
        .Fields(cdoSendUsingMethod) = cdoSendUsingPort
        .Fields.Update
    vMensagem = "Aviso de abertura de OS" & Chr(13)
    vMensagem = vMensagem & "Número da OS: OS_" & NumOS & Chr(13)
    vMensagem = vMensagem & "Fornecedor: " & DLookup("[Fornecedor]", "tb_Fornecedores", "[CodFornecedor] = " & Fornecedor_OS) & Chr(13) & Chr(13)
    vMensagem = vMensagem & "Aberto por: " & vLogado & Chr(13) & Chr(13)
    End With
    vMensagem = vMensagem & "Local dos arquivos: " & Forms!fm_OS!fm_OS_Sub!Arquivo_OSsub
    If Confirmado_OS Then
        vTitulo = "Alteração de OS = " & NumOS & " - " & DLookup("[Fornecedor]", "tb_Fornecedores", "[CodFornecedor] = " & Fornecedor_OS) 'Assunto
    Else
        vTitulo = "Abertura de OS = " & NumOS & " - " & DLookup("[Fornecedor]", "tb_Fornecedores", "[CodFornecedor] = " & Fornecedor_OS) 'Assunto
    End If
    
    With lobj_cdomsg
        .To = vDestinatario
        .From = """Thiago"" <email@servidor.com.br>" 'Endereço remetente (o mesmo da conexão q vc fez )
        .Subject = vTitulo 'Assunto
        .TextBody = vMensagem
        .Send
    End With
    Set lobj_cdomsg = Nothing

Obrigado amigo.

Vou implementar no sistema e retorno aqui para informar o resultado.

Só uma questão. Essa macro está no botão enviar?

No meu caso está no botão salvar.
Todas as informações são salvas e é enviado uma mensagem para informar o pessoal de compras sobre a abertura da OS.

Vc editou a macro direto no botão?
Estou com um problema para isso. Ela abre o VBA ao invés do editor de macro. Mas vou dar um jeito.

Obrigado

No meu botão tem um procedimento de evento, não uma macro.
Este procedimento de evento que faz todo o processo.

Olá Thiago.

Obrigado pelo retorno, mas confesso que não dei conta de adaptar. Sou fraco em VBA.
Envio abaixo como gostaria que ficasse o e-mail e em anexo o bd para, se não for pedir muito, ajustar a funcionalidade do botão.



No frmOS eu faço a solicitação do serviço e esta é enviada clicando no botão ENVIAR.

O e-mail a ser enviado deve conter as seguintes informações:

Usuário logado. Este é o mesmo remetente do e-mail
Número da OS: creio que pode ser o CodOs da tblOS
DataEntrega e DescricaoEntrega também da tblOS
NomeServiço da tblServico.

O texto ficaria mais ou menos assim.

Saudação, conforme o horário de envio, Bom dia ou boa tarde!, se possível implementar.
ORDEM DE SERVIÇO
Número da OS: [CodOS]
Autor: [getUsuarioAtual]
Data: [DataEntrega]
Associado: [NomeAssociado]
Conta: [NumeroConta]
Tipo de serviço: [NomeServico]
Descrição do serviço: [DescricaoEntrega]

Os destinatários da msg são sempre os mesmos, nesse caso, 4 pessoas
maria@servidor.com.br
jose@servidor.com.br
pedro@servidor.com.br
bento@servidor.com.br

Salve.
Acho que era isso que você estava precisando. Segue novamente o BD com as alterações.

Atente para as seguintes linhas que devem ser alteradas:

Código:

.Fields(cdoSendUserName) = "email@servidor.com.br" 'Aqui vai o endereço de e-mail que será responsável pelo envio
.Fields(cdoSendPassword) = "senhadeemail" 'Aqui vai a senha do e-mail
.Fields(cdoSMTPServer) = "servidor.com.br" 'Nome do servidor SMTP

Onde está email@servidor.com.br você deve colocar o endereço de email da conta que enviará a mensagem
Onde está "senhadeemail" deve colocar a senha do email da conta que enviará a mensagem
Onde está "servidor.com.br" deve colocar o servidor que enviará a mensagem

Obrigado meu amigo.
Vou implementar e retorno aqui para comentar.

Vou tentar implementar o remetente a partir do usuário logado poque no cadastro já tem o e-mail do cabra!!!!

Mais um detalhe. Vai ser enviado somente a OS que está sendo registrada ou todos os dados que estarão no subformulário? Isso porque podem ser abertas várias OS para o mesmo associado.
Pergunto porque na verdade ainda não testei. Vou pro serviço apenas na segunda e estou ansioso para botar esse trem pra rodar.


A propósito, assim que ficar pronto vou divulgar aqui com a sua assinatura.

Olá a todos,
João Ricardo, se pretende enviar do email do proprio funcionario, vai necessitar de ter no seu projeto a password de cada email.

Sou da opinião que é mais simples ter apenas um email os@servidor.com.br, além de que esse email vai ficar com as ordens de serviço todas centralizadas dos vário utilizadores na pasta "Enviados".
Pode é colocar no "Assunto" o utilizador que enviou.

Fica a sugestão e o caminho é esse via CDO conforme colega Thiago Costa sugeriu.
Abraço a todos

Olá
Obrigado pela atenção e dia Teixeira

A questão é que não tem como eu configurar uma conta de e-mail na empresa para essa finalidade.
Porém vou trabalhar com um front na máquina de cada colaborador aí eu configuraria (essa é a intenção) cada um desses front com seus acessos específicos.


Será que é possível?

Olá, sim será possível.
E não será difícil se ficar associado ao utilizador ligado no seu sistema.
Pelos vistos já tem o email associado ao usuário, será criar mais um campo para a palavra passe do email.
Recomendo encriptacao no arquivo da base de dados.
Abraço

Amigos me ocorreu que poderias enviar o e-mail sem solicitar a senha, apenas marcando a linha referente no código como sendo um comentário, usando a aspas simples.
Isso é possível? OU seja não "danifica o código"?

Olá João Ricardo,
Sim pode colocar diretamente no código entre aspas, repare que na mensagem nº 10 dava a sugestão de ter apenas um email para o envio das OS, assim é o "simples".

Uma vez que pretende que seja enviado pelo usuario que está a lançar a OS, o mais prático será ter no seu projeto a configuração de email (que pelos vistos já tem) e respectiva passord.
Depois tem que ajustar o código do envio do email, para verificar qual o usuario que está a fazer a OS e ir buscar o respectivo email e password.
Também não será nada do outro mundo, com duas variáveis e Dlookup resolve.

Sugestão: Primeiro por o código a enviar as OS com email e passord diretamente no código. Depois será ajustar por usuario.

Abraço

Bom dia amigos

Obrigado pela dica.


Vou sugerir aos usuários que cadastrem as senhas de acesso ao sistema de OS igual às do e-mail, assim posso usar o usuário logado, seu e-mail e sua senha, tudo cadastrado no formulário de cadastro do usuário.

Olá João Ricardo,

Última dica na minha opinião pessoal.
Uma vez que vai armazenar as password de email não sei se o BE está protegido por palavra passe, mas no mínimo recomendo que use encriptação no armazenamento da palavra passe.
Vai dar mais um pouco de trabalho, mas devemos ter em consideração a vulnerabilidade.

Abraço

Olá

As senhas já são encriptadas no momento do cadastro.

Amigos

O comando tem dado o erro
falha no transporte com o servidor.



No final .Send fica com o destaque em amarelo

Putz!

Dá uma verificada na senha e nas portas de comunicação. De repente pode ser alguma coisa assim.

ola bom dia, eu tambem estou acompanhando esta duvida e me enteressei, ja baixei e ta dando um erro tambem.

Obrigado Thiago.
Vou testar na empresa e retorno aqui para relatar.

Amigos esse banco de dados vai ajudar a todos na empresa, mas tô contando com ele também para dar uma alavancada na carreira. Já aprendi bastante com essas discussões (além desse post) e isso tem contribuído muito na minha carreira.

Fiquei distante deste fórum por um bom tempo até me estabilizar neste novo emprego e em nova cidade também. A necessidade de aprender para mim, agora mais ainda, está atrelada à carreira.

Obrigado novamente a todos vcs e conto com vocês para aprender mais ainda. E também contribuir no que puder.

Olá pessoal
Desculpem a demora
Mudamos a ideia do projeto. Porém o aprendizado fica

Obrigado pela contribuição de todos

Olá João Ricardo, obrigado pelo retorno.
Qualquer coisa estamos cá

Não se esqueça de dar o tópico como resolvido, veja aqui como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço a todos

Valeu Teixeira.

Dei como Resolvido porém minha conexão está complicada e meu notebook tá pior ainda.

Agora Vai!!!

Teixeira, por favor, marque o resolvido por mim.
Não está dando certo aqui.

Obrigado