Autor Beitrag
sunshineh
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 44



BeitragVerfasst: Mi 10.12.08 22:51 
Hallo,

ich nutze die Indy 10 Komponenten und versende in meinem Programm im Fehlerfall eine Email.
Zuhause kann ich meine Email versenden, aber auf der Arbeit funktioniert es nicht.
Ich habe bei der Arbeit in der EDV angerufen und wenn sie "alles freischalten" dann funktioniert es dort auch, aber wenn sie nur Port 25 freigeben (den habe ich im Delphi-Programm eingestellt), dann geht es nicht.
Was muss ich denen sagen, was genau sie freigeben müssen?

Gruß und Danke
mkinzler
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starofftopic star
Beiträge: 4106
Erhaltene Danke: 13


Delphi 2010 Pro; Delphi.Prism 2011 pro
BeitragVerfasst: Mi 10.12.08 22:54 
Wo steht der SMTP-Server? Welches Protokoll? Welche Komponenten? Code?

_________________
Markus Kinzler.
sunshineh Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 44



BeitragVerfasst: Mi 10.12.08 23:11 
Code sieht wie folgt aus:

ausblenden Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
    IdSMTP1 := TIdSMTP.Create;
    EMail := TIdMessage.Create;
    IdSMTP1.Host := smtp.web.de;
    IdSMTP1.Username := XXX@web.de;
    IdSMTP1.Password := XYZ;
    IdSMTP1.Port   := 25;

    EMail.Clear;
    EMail.Date := Now;
    EMail.From.Name := XXX@web.de;
    EMail.From.Address := XXX@web.de;
    EMail.ReplyTo.Add.Address := XXX@web.de;
    EMail.Recipients.Add.Address := XXX@web.de;
    EMail.Subject := Betreff_XYZ;
    EMail.Body.Text := BlaBla;

    IdSMTP1.Connect;
    IdSMTP1.Send(EMail);
    IdSMTP1.Disconnect;