Hallo,
ich habe folgenden Code für den Versand einer internen Email (d. h. die geht nicht ins www sondern bleibt immer in der eigenen Domain) geschrieben, aber es wird nicht versendet (das Programm läuft direkt auf dem W2k3-Server mit Exchange2003):
IdSMTP1.Host := 10.10.10.1;
IdSMTP1.Port := 25;
IdSMTP1.Username:=support;
IdSMTP1.Password:=123456;
//setup mail message
MailMessage.From.Address :=
verfasser@irgendwo.de;
MailMessage.Recipients.EMailAddresses :=
abc@irgendwo.de;
MailMessage.Subject := 'Bestaetigung Ihrer Support-Meldung [#'+supnr+']';
MailMessage.Body.Text := 'Betrifft: '+Edit1.Text;
//send mail
try
try
IdSMTP1.Connect;
IdSMTP1.Send(MailMessage);
except on E:
Exception do
ShowMessage('Fehler beim Senden Ihrer Bestätigungs-Email - bitte wenden Sie sich telefonisch an den Support!');
end;
finally
if IdSMTP1.Connected then IdSMTP1.Disconnect;
end;
wenn ich das mit einem "normalen" Email-Server (Mercur Messaging, hereUare onemessage, etc.) probiere, dann funktioniert das - wieso nimmt der Exchange das nicht an?
Hartmut