FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
ayuda con email
buenas, tengo una aplicacion que manda emails,pero lo que pido si me podeis ponerme un ejemplo con bcc es que lo necesito para enviar mails a diversos clientes a la vez
|
#2
|
||||
|
||||
Hola,
Podrías (ojo que no pregunto, afirmo) ser más explícito con la pregunta: qué versión de Delphi estás utilizando; de qué componentes te vales para llevar a cabo el asunto; si probaste algo, pero, no te dio los resultados esperados; algo de código que pudiera acernos una idea, etc., etc., etc. Echa un vistazo, por favor, a la guía de estilo de los Foros, en donde seguro encontrarás información útil a la hora de plantear preguntas de forma que se puedan obtener el mejor y más acertado número de posibles respuestas. Por mi parte queda dicho, sé un poco más descriptivo ahora. |
#3
|
|||
|
|||
utilizo componenes indy con d7,y el codigo que utilizo es este
[delphi] uses IdSmtp, IdMessage, procedure TForm1.Button1Click(Sender: TObject);beginwith idMessage do begin // <-- [Error] Unit1.pas(30): '.' expected but 'DO' found. // Estás usando el nombre de la unidad como nombre del componente u objeto. // Cuerpo del mensaje. Body.Clear; Body.Add('Aqui añades el cuerpo del mensaje'); // Cuenta Origen. From.Text := EMAILORIGEN; // Cuenta Destino. Recipients.EMailAddresses := EMAILDESTINO; // Asunto del email. Subject := ASUNTO; // Prioridad del mensaje, ALTA. Priority := TidMessagePriority(mpHighest); // Coloco el archivo adjunto el cual enviar. TidAttachment.Create(idMensage.MessageParts,ARCHIVOADJUNTO); end;with idSMPT do begin // Configuro autentificación. AuthenticationType := atLogin; Username := USERNAME; // Nombre del usuario Password := PASS; // la password // Configuro el servidor SMTP. Host := HOST; Port := PUERTO; try Connect; try // Envio el mensaje. Send(idMenssage); finally Disconnect; end; Msg('Enviado Correctamente'); except // Capturo algunas excepciones que pueden ocurrir ON E: EIdProtocolReplyError do begin Msg('No se ha podido enviar el email.' + #13 + 'Incorrecto el email o el usuario o la password.'); end; on E: EFOpenError do begin Msg('No se ha podido enviar el email.' + #13 + 'Fichero Adjunto desconocido o erróneo.'); end; on E: EIdSocketError do begin Msg('No se ha podido enviar el email.'+ #13 + 'Host desconocido o incorrecto.'); end else begin Msg('Fallo en el envio de email'); end; end; if connected then Disconnect;endend.[\delphi] lo que quiero es añadirle el BCC gracias |
#4
|
||||
|
||||
Hola,
raulmm26, te recuerdo que, como usuario registrado en estos Foros que eres, puedes editar tus mensajes: házlo con el anterior a fin de que pueda entenderse... yo lo he tratado de hacer, pero, sin duda a ti te será más sencillo al disponer del código fuente "original", el cual no puede estar como el que has copiado arriba, pues que no compilaría. |
#5
|
|||
|
|||
perdon pero puse mal el tag final
lo que quiero añadir es para usar el BCC Última edición por dec fecha: 03-11-2005 a las 10:33:35. Razón: Ajustar el ancho del texto. Editar en lo posible el código fuente del mensaje. |
#6
|
||||
|
||||
Hola,
Mejor no hubieras editado el mensaje, porque menuda la has liado... Respecto de lo que te ocupa, he probado con algo así y parece funcionar bien:
|
|
|
|