Outlook Object Model - Detectando se o email foi enviado
Tenho o seguinte código no meu aplicativo de teste Delphi 2006 BDS:
procedure TForm1.Button1Click(Sender: TObject);
const
olMailItem = 0;
var
Outlook: OleVariant;
vMailItem: variant;
begin
Outlook := CreateOleObject('Outlook.Application');
vMailItem := Outlook.CreateItem(olMailItem);
try
vMailItem.Recipients.add('[email protected]');
vMailItem.Display(True); -- outlook mail message is displayed modally
except
end;
VarClear(Outlook);
end;
Preciso ser capaz de detectar se o usuário enviou o email de dentro da tela do Outlook. Eu tentei o seguinte código:
if vMailItem.Sent then
...
Mas recebeu a mensagem de erro 'O item foi movido ou excluído'. Presumo que isso ocorra porque o item de email foi movido para a pasta de itens enviados. Qual é a melhor maneira de detectar se o usuário enviou o email? Além disso, se o usuário enviou o email, também seria necessário visualizar o corpo do emai
Desde já, obrigado