E-Mail mit TIdSMTP funzt nur über Mailserver ohne Authenti

**padavan**

Hallo DP User,

mit dieser Funktion (hier in DP gefunden und meinen Bedürfnissen angepasst), möchte bzw. muss ich E-Mails von meinem Programm heraus versenden, ohne einen lokales Outlook oder ähnliches zu nutzen:

zusammenfalten · markieren

Delphi-Quellcode:

			uses

  IdSMTP, IdMessage, idPop3;   // Indy 9.14

//......

procedure SendMail(aSmtpServerName: string;

                  aSmtpAuthType: integer;

                  aSmtpServerPort: integer;

                  aPopServerName: string;

                  aPopServerPort: integer;

                  aRecipient: string;

                  aFrom: string;

                  aSmtpServerUser: string;

                  aSmtpServerPassword: string;

                  aSubject: string;

                  aContent: string

                  );

var

  IdSMTP1: TIdSMTP;

  IdMessage1: TIdMessage;

  POP: TidPop3;

begin

  try

    IdSMTP1 := TIdSMTP.Create(nil);

    IdMessage1 := TIdMessage.Create(nil);

    IdMessage1.Clear;

    POP := TidPop3.create(nil);

    try

      case aSmtpAuthType of

        0: IdSMTP1.AuthenticationType := atNone; //Normal

        1: IdSMTP1.AuthenticationType := atLogin; //SMTPAuth   Simple Login

        2: begin //AfterPop

             IdSMTP1.AuthenticationType := atNone;

             POP.Host := aPopServerName;

             POP.Username := aSmtpServerUser;

             POP.Password := aSmtpServerPassword;

             POP.Port := aPopServerPort;

             POP.Connect(5);

             POP.Disconnect;

           end;

        3: begin //afterPop+SMTPAuth

             IdSMTP1.AuthenticationType := atLogin;

             POP.Host := aPopServerName;

             POP.Username := aSmtpServerUser;

             POP.Password := aSmtpServerPassword;

             POP.Port := aPopServerPort;

             POP.Connect(5);

             POP.Disconnect;

           end;

      end;

      with IdMessage1 do

      begin

         Body.Text := aContent;  //       Body.Assign(stringlist);

         From.Text := aFrom;  //Sender

         Recipients.EMailAddresses := aRecipient; //Empfänger

         Subject := aSubject; //Betreff?

      end;

      IdSMTP1.Username := aSmtpServerUser; //Welcher Benutzer?

      IdSMTP1.Password := aSmtpServerPassword; //Welches Passwort??

      // Generelles Setup

      IdSMTP1.Host := aSmtpServerName; //Provider

      IdSMTP1.Port := aSmtpServerPort; //Port

      IdSMTP1.Connect;

      try

        IdSMTP1.Send(IdMessage1);

      finally

        IdSMTP1.Disconnect;

      end;

    finally

      freeandnil(IdSMTP1);

      freeandnil(IdMessage1);

    end;

  except

    showmessage('unknown error');

  end;

end;

Leider funktioniert das nur, wenn ich einen hier in unserer Firma verfügbaren SMPT-Server ohne jegliche Authentifizierung nutze.

Wenn ich allerdings einen Provider (z.B. Yahoo oder GMX) nutzen möchte, dann bekomme ich immer die Fehlermeldung:

Zitat:

EIDProtocolReplyError with message '5.1.7 Complete adress with domain....' (siehe Anhang)

Nebenbei:
1. Port 25 und 110 sind für mich offen.
2. Ich habe die vom Provider erforderlichen Einstellungen gemacht. Ob dies grundsätzlich funktioniert, habe ich dann mit Outlook Express getestet.

Ich frage mich allerdings während ich das tippe, ob wohl die Indy Komponente alle möglichen Typen unterstützt? ('aSmtpAuthType')

Kann mir evtl. jemand sagen, woran das liegt?

Danke
Padavan

E-Mail mit TIdSMTP funzt nur über Mailserver ohne Authenti

E-Mail mit TIdSMTP funzt nur über Mailserver ohne Authenti

Forumregeln