Erro ao enviar email

[wilsonrosa]

Pessoal

Estou tentando fazer uma lógica para agilizar o envio de email através do Outlook.Application. Até ai td certinho envia perfeitamente, pra um. Porém, quando faço a lógica com while e next na segunda vez q passa pela instrução TO para pegar um novo endereço de email aparece a mensagem abaixo:

"The item has been moved or deleted."

Código:

while not (FPrincipal.QCursoFunc.Eof) do

begin

vEmailSupFunc:= buscaEmailSupFunc(FPrincipal.QCursoFuncCODFUNC.Value);

vMailItem.To := vEmailSupFunc;

FPrincipal.QCursoFunc.Next;

end;

Alguém sabe me dizer como posso resolver isso ?

Grato

WillRos

[Jhonas]

Código:

while not (FPrincipal.QCursoFunc.Eof) do

begin

vEmailSupFunc:= buscaEmailSupFunc(FPrincipal.QCursoFuncCODFUNC.Value);

vMailItem.To := vEmailSupFunc;

FPrincipal.QCursoFunc.Next;

end;

Alguém sabe me dizer como posso resolver isso ?

Porém, quando faço a lógica com while e next na segunda vez q passa pela instrução TO para pegar um novo endereço de email aparece a mensagem abaixo:

"The item has been moved or deleted."

O erro: O item foi movido ou deletado

vale lembrar que esse código esta incompleto, pois voce não pode ler o proximo endereço se o anterior ainda não foi enviado

abraço