Usuário com melhor resposta
Macro para Outlook 2007 Win 7

Pergunta
-
Estou tentando criar uma macro no outlook para poder enviar um e-mail e deleta-lo para que nao fique em minha caixa de saida.
Fiz desta forma, porem funciona apenas enquanto o outlook nao é fechado pois reiniciar o mesmo a macro para de funcionar.
Oque pode causar isso e como arrumar ?Sub EnviarDeletar()
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
Obrigado
- Movido AndreAlvesLima sexta-feira, 10 de agosto de 2012 14:53 (De:Conteúdo do site MSDN)
- Movido Hezequias VasconcelosModerator sexta-feira, 10 de agosto de 2012 18:06 questão relacionada a VBA (De:Office - Geral)
Respostas
-
Cole o código abaixo na classe ThisOutlookSession:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Mail.DeleteAfterSubmit = True End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Sugerido como Resposta Hezequias VasconcelosModerator terça-feira, 11 de setembro de 2012 15:33
- Marcado como Resposta Hezequias VasconcelosModerator quarta-feira, 12 de setembro de 2012 11:06
Todas as Respostas
-
Prezado(a),
Estou migrando seu post para o fórum de Office Geral.
Por favor, das próximas vezes que tiver alguma dúvida relacionada a esse assunto, poste por lá.
Outra opção seria postar sua questão no Microsoft Answers, categoria Office: http://answers.microsoft.com/pt-br/office
Obrigado.André Alves de Lima
Microsoft MVP - Client App Dev
Visite o meu site: http://www.andrealveslima.com.br
Me siga no Twitter: @andrealveslima -
-
Cole o código abaixo na classe ThisOutlookSession:
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Mail.DeleteAfterSubmit = True End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br
- Sugerido como Resposta Hezequias VasconcelosModerator terça-feira, 11 de setembro de 2012 15:33
- Marcado como Resposta Hezequias VasconcelosModerator quarta-feira, 12 de setembro de 2012 11:06
-
Show de bola Benzadeus. Porém estou com dúvidas na hora de inserir esse trecho na classe que você indicou.
Tentei excluir toda a parte,
If TypeOf obj Is Outlook.MailItem Then
Set Mail = obj
Mail.DeleteAfterSubmit = True
Mail.Send
End If
Não funcionou.
Tentei excluir somente a parte,
Set Mail = objMail.DeleteAfterSubmit = True
Mail.Send
Também não funcionou.
Estou no caminho certo ou removi os trechos errados?
Grato pelo apoio.
Abs.
-