... Assinatura do site por 3 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$182,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Excluir e-mail do Outlook, via VBA

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

Envie seu comentário: