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
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