smtp con lotus

[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

[chucoptero]

Perdona por no haberte contestado antes pero me habian cambiado la faena y no he podido ver nada más, pero he vuelto, eres el puto amo me funciona perfectamente, ya puedo enviar correos automáticos, pero me falta una ultima duda a ver si me la puedes solucionar.

Como puedo enviar un correo anonimo, que no aparezca mi nombre si no otro

[Flores]

Hola a todos.
He estado siguiendo vuestros comentarios sobre el correo con Lotus y me interesaría poder hacer algunas cosillas con él. Necesitaría las librerías para Lotus que tenéís; ¿ alguno me las puede pasar?. Mi emilio es [email protected]
Gracias.

Francisco J. Flores

[DarkByte]

Empezado por Flores

Necesitaría las librerías para Lotus que tenéís; ¿ alguno me las puede pasar?.

En todo caso se pondría el link en este hilo para todo aquel que esté en la misma situación que tú.

[Flores]

Empezado por DarkByte

En todo caso se pondría el link en este hilo para todo aquel que esté en la misma situación que tú.

Tienes razón.
De hecho, me he puesto manos a la obra y creo que las he encontrado en:www.geocities.com/skolchin/
Saludos.