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 :='
franz.pichler@stia.at';
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?
