Eso está hecho. El componente le llamo Enviar.
Primero consulto si tientes crédito.
Código Delphi
[-]
Procedure TPrincipal.ConsultaDisponibles;
Begin
Enviar.Disconnect;
Enviar.setAccount(Edit3.Text); Enviar.setPwd(Edit4.Text); Enviar.Send; eDisponibles.Text:=Enviar.getCredit; Enviar.Disconnect;
end;
Luego envio el mensaje y capturo la respuesta para procesarla.
Código Delphi
[-]
Enviar.setAccount(Edit3.Text);
Enviar.setPwd(Edit4.Text);
Enviar.setText(Memo1.Lines.Text); Enviar.SetFrom(Edit1.Text); Enviar.SetTo(Edit2.Text); Memo2.Lines.Add(Edit2.Text); Memo2.Lines.Add(Enviar.Send);
Hay muchos comandos más, como recuperar información, programar envios entre fechas, etc. Todo especificiado en la información de la librería. Hay un pdf de libre descarga en la página de arsys.
Si necesitais alguna cosa mas, a vuestra disposicion.