Excluir Email via VBA (Outlook)

Moderador: Avelino Sampaio

Alexan
Mensagens: 19
Registrado em: 08 Jun 2015, 16:26

Excluir Email via VBA (Outlook)

Mensagempor Alexan » 08 Fev 2017, 17:46

Pessoal, boa tarde!

Preciso excluir um email (item de email), via VBA, no editor do outlook.

Através de procuras, consegui este abaixo:

Código:
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, está dando na linha:

Set obj = Application.ActiveInspector.CurrentItem

Sendo que foi tudo declarado certinho. Alguém sabe se tenho que colocar alguma referência em especial?

Meu office é 2010.

Alguém pode me ajudar?

Grato,

Edson

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1797
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Excluir Email via VBA (Outlook)

Mensagempor Avelino Sampaio » 08 Fev 2017, 18:37

Edson,

testei aqui e funcionou bem com este código:

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


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================


Voltar para “Access x Outlook”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante