Sub sb_EnviaEmail()
Dim oOutlook As Object
Dim oEmail As MailItem
Set oOutlook = CreateObject("Outlook.Application")
Set oEmail = oOutlook.CreateItem(olMailItem)
oEmail.To = "fagundesgeraldo14@gmail.com"
'oEmail.CC="fagundesgeraldo14@gmail.com"
oEmail.Subject = "Teste de e-mail"
oEmail.Body = "Minha mensagem"
oEmail.Send
'oEmail.Save
'Set oOutlook = Nothing
Set oEmail = Nothing
End Sub
boa noite ele da uma msg de falha na execução do servidor