Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-11-2013
Taburiente Taburiente is offline
Miembro
 
Registrado: may 2006
Posts: 26
Poder: 0
Taburiente Va por buen camino
Problema envió correo

Hola a todos,

A ver si me podéis echar una mano,tengo una aplicación que lo que hace entre otras cosas es enviar un fichero a una dirección de correo y que funcionaba correctamente hasta que telefónica me cambio el servido smtp y el pueto a 587 con seguridad TLS, y desde entonces obtengo erro 5.7.1, mi codigo es el siguiente

Cita:
function TfrmHistorico.EnviarAlbaran(const sFichAlbaran: string): boolean;
var
ServidorSMTP: TIdSMTP;
MailMessage: TIdMessage;
Attachment: TIdAttachment;

begin
Result := FALSE;

if FileExists(sFichAlbaran) then
begin
ServidorSmtp := TIdSMTP.Create(Self);

MailMessage := TIdMessage.Create(Self);
with MailMessage do
begin
Subject := LeeEnFicheroIni(sFichConfig, 'EMAIL', 'ASUNTO', '');
//
Body.Clear;
Body.Add('Albarán: '+LeeEnFicheroIni(sFichAlbaran, 'PARTE1', 'ALBARAN', ''));
Body.Add('Fecha: '+LeeEnFicheroIni(sFichAlbaran, 'PARTE1', 'FECHA', ''));
Body.Add('Usuario: '+LeeEnFicheroIni(sFichAlbaran, 'PARTE4', 'USR_OID', ''));
Body.Add('Nombre: '+LeeEnFicheroIni(sFichAlbaran, 'PARTE4', 'USR_NOMBRE', ''));
//
From.Address := LeeEnFicheroIni(sFichConfig, 'EMAIL', 'REMITENTE', '');
From.Name := LeeEnFicheroIni(sFichConfig, 'EMAIL', 'SEUDONIMO', '');
//
Recipients.EMailAddresses := LeeEnFicheroIni(sFichConfig, 'EMAIL', 'DESTINATARIO', '');
end;

Attachment := TIdAttachment.Create(MailMessage.MessageParts, sFichAlbaran);

ServidorSMTP.Host := LeeEnFicheroIni(sFichConfig, 'EMAIL', 'SERVIDOR_SMTP', '');
ServidorSMTP.Port := StrToIntDef(LeeEnFicheroIni(sFichConfig, 'EMAIL', 'SERVIDOR_PUERTO', '587'), 587);
ServidorSMTP.AuthenticationType:= atLogin;

// Datos de la cuenta de usuario
ServidorSMTP.Username:= 'albaranes@xxxx.e.telefonica.net'; // LeeEnFicheroIni(sFichConfig, 'EMAIL', 'SERVIDOR_USUARIO', '');

servidorSMTP.Password:= '111111'; // LeeEnFicheroIni(sFichConfig, 'EMAIL', 'SERVIDOR_CONTRASENA', '');
try
servidorSMTP.Connect(10000);

try
servidorSMTP.Send(MailMessage);

Result := TRUE;

except on E: Exception do
ShowMessage('ERROR al enviar albarán...'+#13+#13+E.Message);
end;

finally
servidorSMTP.Disconnect;
Attachment.Free;
MailMessage.Free;
servidorSMTP.Free;
end;

end
else
raise Exception.Create('ERROR no encuentro el fichero de albarán...'+sFichAlbaran);
end;
y en el fichero ini, lo siguiente

Cita:
SERVIDOR_SMTP=smtp.office365.com
SERVIDOR_PUERTO=587
SERVIDOR_USUARIO=albaranes@xxxx.e.telefonica.net
SERVIDOR_CONTRASENA=111111
El programa esta hecho con Delphi 7 y la versión de Indy es la 9

Agradecería cualquier ayuda.

Un saludo
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
envio de correo falla giantonti OOP 4 16-04-2013 01:31:54
Envio de correo Besto Internet 1 22-11-2010 12:01:35
Error en el envío de correo. Cecilio Internet 0 02-07-2008 18:28:20
Problema SuperRaro en el Envio de Correo con Indy's AGAG4 Internet 0 10-11-2006 19:04:29
envio de correo srangel Linux 0 22-04-2005 18:44:56


La franja horaria es GMT +2. Ahora son las 01:30:37.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi