Enviar e-mail direto do excel por VBA. (ajuda)

Question

Há uns 2 anos venho usando uma rotina em VBA (abaixo) para enviar e-mails diretamente pelo Excel. Sempre funcionou sem problemas.

Há alguns dias atrás, a Microsoft mudou as políticas de segurança (provavelmente algum tipo de aprimoramento) e desde então a rotina não funciona mais.

Gostaria que algum expert no assunto resolvesse o problema, pois tudo que pesquiso na internet ou é velho, ou necessita do uso do Outlook (que é válido, porém nem no Outlook 2016 estou conseguindo configurar também).

Desde já, agradeço a todos.

Sub e-mail()
'Configura o schema
schema = "http://schemas.microsoft.com/cdo/configuration/"
Flds.Item(schema & "sendusing") = 2

'Configura o smtp
Flds.Item(schema & "smtpserver") = "smtp-mail.outlook.com"

'Configura a porta de envio de email
Flds.Item(schema & "smtpserverport") = 25
Flds.Item(schema & "smtpauthenticate") = 1

'Configura o email do remetente
Flds.Item(schema & "sendusername") = "**seu ****@hotmail.com"

'Configura a senha do email remetente
Flds.Item(schema & "sendpassword") = "sua senha"
Flds.Item(schema & "smtpusessl") = 1
Flds.Update
With iMsg

'Email do destinatário
.To = MailTo

'Seu email
.From = "**seu ****@hotmail.com"

'Título do email
.Subject = "assunto na barra de título"

'Mensagem do e-mail, você pode enviar formatado em HTML
.HTMLBody = "conteúdo da mensagem"

'Seu nome ou apelido
.Sender = "Quem enviou"

'Nome da sua organização
.Organization = "organização"

'e-mail de responder para
.ReplyTo = "qualquer e-mail"

'Anexo a ser enviado na mensagem.
.AddAttachment ("C:\caminho\ARQUIVO")

Set .Configuration = iConf
.Send
End With

Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing

End Sub

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Olá Cleber Teixeira,

Obrigado por visitar a Comunidade da Microsoft.

Como há menos envolvimento com o conteúdo do VBA nesta comunidade, é recomendável que você poste suas perguntas relacionadas no Stack Overflow (somente em inglês) https://stackoverflow.com/questions/tagged/vba, onde há profissionais mais experientes que podem oferecer conselhos.

Isenção de responsabilidade: a Microsoft não oferece garantias implícitas ou outras garantias e não é responsável por informações obtidas de sites de terceiros vinculados ou por qualquer suporte técnico relacionado à tecnologia fornecida por esses sites.

Atenciosamente

Jonathan Z - MSFT | Especialista em suporte da comunidade Microsoft