Excluir e-mail do Outlook, via VBA
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Usuário Edson:
Boa tarde!
Preciso excluir um e-mail (item de e-mail), via VBA do Microsoft Access, no editor do Outlook.
Através de procuras, consegui este abaixo:
Public Sub SendAndDelete()
Dim obj As Object
Dim Mail As Outlook.MailItem
If MsgBox("Delete email?", vbYesNo Or vbQuestion) = vbNo Then
Exit Sub
End If
Set obj = Application.ActiveInspector.CurrentItem
If TypeOf obj Is Outlook.MailItem Then
Set Mail = obj
Mail.DeleteAfterSubmit = True
Mail.Send
End If
End Sub
O problema é que está dando o erro que a variável With não foi definida. O erro, surge na linha:
Set obj = Application.ActiveInspector.CurrentItem
Sendo que foi tudo declarado certinho. Você sabe se tenho que colocar alguma referência em especial?
Meu Office é versão 2010.
Você pode me ajudar?
Suporte:
Edson, testei aqui e funcionou bem com este código:
Dim objOut As Object
Dim objMail As Object
Set objOut = CreateObject("Outlook.application")
Set objMail = objOut.CreateItem(olMailItem)
With objMail
.To = "blabla@hotmail.com"
.DeleteAfterSubmit = True
.Subject = "Teste de envio sem salvar"
.Body = "teste sem salvar"
.Send
End With
Set objMail = Nothing
Set objOut = Nothing
Usuário Edson:
Muito obrigado, Avelino
Funcionou!
Não há comentário |