consulta sobre MAPI_TLB

[Enan0]

Hola amigos. Bueno sigo trabajando con el Exchange y la dichosa mapi_TLB. Bueno mi problema en el dia de la fecha es el siguiente. hace ya varios dias que estoy intentado agregar un nuevo mensaje! en exchange!, no puedo hacerlo
Alguien a utilizado esta API. ya que el error que meda es el siguiente!
en la funcion
Messages.add

function Add(Subject: OleVariant; Text: OleVariant; Type_: OleVariant; Importance: OleVariant): OleVariant; dispid 100;

la cual requiere solo 4 parametros y siempre que le pongo lo que le pongo.. me da el mismo error!
"numero de parametros no validos"
parte del codigo


procedure TForm1.Button2Click(Sender: TObject);
Var login :Session;
algo,a:variant;
AlgoOle:olevariant;
i,b:integer;
F:Folder;
msg:mapi_tlb.message;
begin
login:=CoSession.Create;
// login.
// algo:=login.Session;
a:='server'+#10+'ID'; //remplazar server (por nombre o IP del server exchange, y ID por nombre de usuario

login.Logon('','',false,true,0,false,a);
f:=idispatch(login.GetDefaultFolder(0)) as mapi_tlb.folder;
algo:=f.Messages.add('','','IMP.task',2);
msg:=idispatch(algo) as mapi_tlb.message;

with msg do
begin

Subject := 'Hecho a mano';
Importance := CdoNormal;
//Sensitivity := Task.Confidential;
Update(True,True);
end;
end;

[Enan0]

Bueno he podido solucionar el inconveniente que tenia.
lo dejo comentado por si alguien se toma alguna vez con el mismo problema!!!


login:=CoSession.Create;
// login.
// algo:=login.Session;
a:='SERVER'+#10+'ID'; //remplazar server e ID por los valores respectivos a cada caso

login.Logon('','',false,true,0,false,a);
f:=idispatch(login.GetDefaultFolder(0)) as mapi_tlb.folder;
algo:=f.Messages.add();
algo.subject:='Enan0';
algo.Update(True,True);



La solucion fue trabajar directamente con el valor del Variant creado