Guten Tag,
beim Senden von E-Mails über den Provider "serverdomain.org" bekomme die oben benannte Fehlermeldung.
Beim Senden über andere Provider wie GMX, Kabelmail, Web.de, oder t-Online bekomme ich keine Fehlermeldung.
Hier der Code für die Anmeldung:
Delphi-Quellcode:
procedure TFrmMailVerkehr.SendeEmail(aAnmelden: Boolean);
var
pMailAdresse:
string;
pBCCListe:
string;
pErrMsg:
string;
pAnz: SmallInt;
pEText:
string;
AMessage: TIdMessage;
ASMTP: TIdSMTP;
I: Integer;
AStream: TMemoryStream;
AMessageBuilder: TIdMessageBuilderHtml;
procedure CheckMail;
var
I: Integer;
APart: TIdMessagePart;
AFileName:
string;
s:
string;
begin
// ContentDisposition erweitern, sonst werden InlinImages
// nicht auf Android angezeigt...
AMessage.MessageParts.CountParts;
for I := 0
to AMessage.MessageParts.Count - 1
do
begin
APart := AMessage.MessageParts[I];
if (APart.ContentDisposition = '
inline')
then
begin
s := APart.Headers.Values['
Content-ID'];
if s <> '
'
then
begin
AFileName := Copy(s, 2, Length(s) - 2);
APart.Headers.Values['
Content-Disposition'] := '
inline; filename="' +
AFileName + '
"';
end;
end;
end;
end;
function ServerAnmelden: Boolean;
begin
Result := True;
ASMTP := TIdSMTP.Create(Self);
if ASMTP.Connected
then
ASMTP.Disconnect(True);
try
ASMTP.AuthType := satDefault;
ASMTP.UserName := MailUserName;
ASMTP.Password := MailPassWort;
ASMTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(ASMTP);
ASMTP.UseTLS := utUseImplicitTLS;
ASMTP.ManagedIOHandler := True;
ASMTP.Host := MailHostName;
ASMTP.Connect;
except
on E:
Exception do
begin
pErrMsg := e.
Message;
if ASMTP.LastCmdResult.Code <> '
'
then
pErrMsg := ASMTP.LastCmdResult.Text.Text
+ sLineBreak + '
--'
+ sLineBreak + pErrMsg;
ASMTP.Free;
Result := False;
end;
end;
end;
begin
if not ServerAnmelden
then
begin
ShowMessage(pErrMsg);
end;
Auf der Form sind keine Indycontrols abgelegt.
Im Anhang die Anmeldung bei dem Provider.
Weiß vielleicht jemand was ich wo ändern muß?
Vielen Dank für Eure Hilfe