Return receipt no Lotus notes!

Delphi

26/08/2008

Bom enviar não é problema. Mas falta descobrir como faço o return receipt no envio do email. Alguem sabe?

procedure TForm1.Button3Click(Sender: TObject);
var
Session: OleVariant;
DataBase: OleVariant;
Mail: OleVariant;
begin
Session:= CreateOleObject(´Notes.NotesSession´) ;
DataBase:= Session.GETDATABASE(´´, ´´);
DataBase.OpenMail;
Mail:= DataBase.CreateDocument;
Mail.AppendItemValue(´Subject´, ´New Test - ignore´);
Mail.AppendItemValue(´Body´, ´This is the body of the message´);
Mail.Send(0, ´alexandre.g.pedroso@bra.dupont.com´);
end;


Pedroso

Pedroso

Curtidas 0
POSTAR