Email über einen Exchangeserver verschicken

[Schodn]

Delphi-Quellcode:

function tform1.SendEmail(Recipient:string;CCList:string;sSubject:string;Body:TStringList):boolean;
var
  nAlarmnr:integer;
begin

 idSMTP.Host   := 'admogo';
 idSMTP.Username := 'pichler';
 idSMTP.Password := 'xxxx';
 idSMTP.Port   := 25;


 idMessage.From.text  :='[e-mail]';
 idMessage.Sender.text:=idMessage.From.text;

 idMessage.Recipients.EMailAddresses:= Recipient;
 idMessage.CCList.EMailAddresses := CCList;
 idMessage.Subject:=sSubject;


 idMessage.Body.Clear;
 idMessage.Body := Body;


 try
   idSMTP.Connect;
   idSMTP.Send(idMessage);
   idSMTP.Disconnect;
   result:=True;
   except on E : Exception do
     begin
       if idSMTP.connected then try idSMTP.disconnect; except end;
       result := false;
     end;
 end;

Dieser Code hat immer funktioniert. War Mozilla

Jetzt haben wir in der firma einen Microsoft exchange server und nichts geht mehr
EIdProtocolError

kann mir hier wer helfen?

[lume96]

Moin,

hab's mal kurz getestet und Dein Code läuft bei mir ohne Probleme (Exchange Server 2003 - Indy 10 - Delphi 7 Pro).

Ich bin mal davon ausgegangen, dass Dein host "admogo" der Exchange Server ist.

Was mich verwundert ist der EIdProtocolError. Den kann ich nicht nachvollziehen. Bei falscher Konfig des Host oder des Port bekomme ich EIdSocketError (connection refused, timeout, etc...). Bei 'falscher' Konfig des SMTPConnectors des Exchange bekomme ich EIdSMTPReplyError (z.B. wenn der SMTP Connector kein Relaying erlaubt und Du nach 'draussen' mailen willst).

Hilft Dir warscheinlich nicht viel weiter, aber am Code selbst sollte es nicht liegen.

Tschüss,
Lutz