e-Mail schreiben

[Peter.K]

hallooooooo

ich hätte da mal einen frage unzwar wollt ich wissen wie man eine e-Mail über einen bestehenden account auf einer seite sendet?

zum Beispiel:

ich habe eine e-Mail adresse bei www.hotmail.com, ich will das mein programm sich nachdem start automatisch dort anmeldet und wenn ich dann einen text ins memo geschrieben habe und ein ziel etc....soll er nachdem klick auf den send button die mail von meinem postfach aus versenden.....

das geht doch bestimmt irgendwie, danke für euchre hilfe

[jokerfacehro]

hey

du könntest die gewünschte seite in einen webbrowser laden,
die einzelnen elemente ausfüllen und dann das formular bestätigen

[delphis spassbremse]

Suche einfach nach SMTP

dann kannste den kram auch verwenden

=> erst suchen dann posten^^

[MrKnogge]

Hallo, welche Delphi-Version nutzt du ?
Hast du die Indy-Komponetne installiert ?

Gruß

[Peter.K]

ich hab delphi 7 enterprise hab die indy alle drauf

[MrKnogge]

Dann schau dir mal die idSMTP an.
Auf der Seite von Indy müsstest du auch demos dafür finden.

Gruß

[Peter.K]

kann mir keiner ein beispiel machen? kann indy 10nicht installieren funkt irgendwie nicht

[MrKnogge]

weil du Indy 9 installiert hast, nimm doch die !?

[Peter.K]

ok bis dahin bin ich gekommen, will die mail senden aber dann kommt mir wieder ein fehler unter die augen, der server will das ich dem vorher hallo sage ich habe ja schon einen helonamen eingetragen wieso benutzt der den nciht ich meine was muss ich tun damit der hallo sagt?

[phreax]

Hier meine procedure die ich immer verwende ...
Achtung! sie funktioniert nur bei einigen anbietern manche verweigern den login, ich weiss nicht warum...
Manche haben auch smtp after pop3 z.B. web.de da muss man sich erst per pop3 anmelden bevor man per smtp was verschicken kann....

Delphi-Quellcode:

procedure SendMail(Text,ATo: string);
var pw: string;
    IdMsgSend: TIdMessage;
begin
IdSMTP1.AuthType := atDefault;
IdSMTP1.Username := 'User1';
IdSMTP1.Password := 'geheim';
IdMsgSend := TIdMessage.Create;
   with IdMsgSend do
      begin
         Body.Text := Text;
         From.Text := '[e-mail]';
         ReplyTo.EMailAddresses := '[e-mail]';
         Recipients.EMailAddresses := ATO; { To: header }
         Subject := 'Test Betreff'; { Subject: header }
         Priority := mpHighest; { Message Priority }
      end;
IdSMTP1.Host := 'smtp.hotmail.de'; //bin ich mir nicht sicher wie die adresse it nur als beispiel
IdSMTP1.Port := 25;
IdSMTP1.Connect;
try
IdSMTP1.Send(IdMsgSend);
finally
IdSMTP1.Disconnect;
end;
end;