Como enviar e-mail com anexo diretamente pelo VBA do Excel. (ajuda)

[Cleber Teixeira]

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 estou conseguindo configurar também).

Se encontrarem a solução usando GMAIL, pra mim também serve.

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 e-mail@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 e-mail@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

Editado Outubro 30, 2024 por Cleber Teixeira