smtp con lotus

[chucoptero]

Si, lo tengo instalado, hace falt algo mas

[tcp_ip_es]

Nada más ... simplemente incluir la librería domino_tlb.pas c:\archivos de programa\borland\delphiX\lib

bueno ya llevarás algo avanzado no

Saludos, Tony

[chucoptero]

f_View := f_MailDatabase.GetView('enviados');

En esta linea abrimos la carpeta enviados, no.
Se puede abrir la carpeta donde se guardan todo el listado de direcciones de correo

[tcp_ip_es]

Si esa sería la carpeta de enviados, y en cuanto a la libreta de direcciones te mandé un ejemplo que hace exactamente eso. Has podido acceder ya a tu correo????

Saludos, Tony

[chucoptero]

Si, perdona no me habia dado cuenta, creo q he terminado de entender el codigo y voy a empezar a implementarlo, muchas gracias por todo y ya te cuento.

Hasta luego

[chucoptero]

El componente Domino_TLB no me lo reconoce como un componente, yo solo lo he pegado en la carpeta lib y luego lo he puesto en los uses de mi programa

[tcp_ip_es]

Con eso te vale simplemente, deja la librería en ese directorio y a partir de ahi a funcionar....

[chucoptero]

da igual ire haciendolo cada vez, una cosa porque si pongo

str:= str + Doc.GetItemValue('InternetAddress')[0];

no me sale la direccion de correo del usuario.
Es del ejemplo q me mandaste para saber todos las personas q tengo en mi agenda

[tcp_ip_es]

Siento el retraso es que hoy me he metido en el foro a eso de las 9:30 y luego ya no me he metido hasta ahora. Vamos a ver tienes varias soluciones para sacar la direccion email de un documento notes (notesdocument). Supongo que el ejemplo sería sobre la 4.6, no me acuerdo la verdad, pero se que con el siguiente código funciona :

str := str + doc.getitemvalue('SMTPOriginator')[0];

con ese campo lo que conseguimos es la dirección internet de un correo que no este dado de alta en nuestro servidor notes.

Con el siguiente código conseguimos la dirección internet del usuario notes al que se refiera el documento

str := str + doc.GetItemValue('INetFrom')[0];

De todas formas para saber a que campos puedes acceder mediante el método getitemvalue puedes, desde el propio cliente notes, pinchar sobre cualquier documento con el botón derecho y ver sus propiedades, y en la pestaña campos podrás ver todos los campos accesibles.

Saludos, Tony . Ya sabes si tienes alguna duda no dudes que ponermela por aqui.....

[chucoptero]

Ya se xq falla es porque no tenemos cuentas de correo saliente, tenemos una direccion interna, y ya he podido sacarla, gracias por todo. Ahora empezare a preguntarte lo de enviar un correo electonico.

f_LotusMailItem:= f_MailDatabase.CreateDocument;

Cuando introduzco esta linea me dice q acceso violado
q puede ser

[tcp_ip_es]

Buenas, los fines de semana no me suelo meter en el foro, vamos a ver aqui te dejo una rutinita que envia correo (incluye el tema de anexos).

procedure TFCorreo.FlatButton1Click(Sender: TObject);
var a,d,i,x:integer;
 ol:olevariant;

begin
for d:=0 to Destinatario.Lines.count -1 do // envio un correo por cada direc.
begin
// todas las variables a nil para no tener problemas con Access Violation ;)
   mailitem:=nil; 
   notesitem1:=nil;
   notesitem2:=nil;
   notesrichItem:=nil;
   notesrtStyle:=nil;

 mailitem:=Ndb.createdocument;
 try
  try
 
  NotesItem1:=mailitem.ReplaceItemValue('sendTo',Destinatario.Lines[d]);
  NotesItem2:=mailitem.ReplaceItemValue('Subject', Asunto.text);
  notesrichitem:= mailitem.CreateRichTextItem('Body');
  notesRtStyle:=Ns.CreateRichTextStyle;
  notesrichitem.appendstyle(notesRtStyle);
  notesrichitem.appendtext(Cuerpo.text);
  for a:=0 to Anexos.lines.count -1 do
  begin
   notesrichitem.AddNewLine(2,false);
   notesrichitem.EmbedObject(EMBED_ATTACHMENT,'',Anexos.lines[a], 'EmbedObject');

  end;
  recipients:='';
  mailitem.Set_SaveMessageOnSend(true);
  mailitem.Send(false,recipients);


  except
   on E:Exception do
     MessageDlg('Error al enviar el mensaje, mtError, [mbOK],0);
  end;
  finally

   mailitem:=nil;
   notesitem1:=nil;
   notesitem2:=nil;
   notesrichItem:=nil;
   notesrtStyle:=nil;

  end;
end;
showmessage('El Mensaje se ha enviado con éxito');
end;

En principio tu instrucción es correcta, pero como no se en que contexto del programa esta te envío el código y asi es más fácil.....

Saludos, Tony .....seguimos en contacto