e-Mail schreiben

[Peter.K]

hallooooooo :-D

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;

[netscanner]

und wie bekommt man es dann mit web.de hin???

[phreax]

Zitat:

Zitat von netscanner

und wie bekommt man es dann mit web.de hin???

Also ich habe festgestellt ich nur Mails verschicken konnte, wenn ich mich vorher per Thunderbird auf dem pop3-Konto angemeldet habe. Ich habe daruafhin ein anders Konto verwendet.
Du kannst also einfach einen Pop3 Mail Client in deine Anwendung einbinden und dich dann damit erst einmal bei web.de anmelden. Und dann naoch dich per smtp anmelden und deine mail verschicken. Wie der Pop3 Login aussieht, weiss ich nicht weil ich den pop3 Client noch nicht verwendet habe aber es gibt Beispiele für sowas (irgendwo bei den indys)

ich hoffe, ich konnte helfen

mfg phreax

[netscanner]

okey danke für deine schnelle antwort...um ehrlich zu sein habe ich aber keine großartige lust noch einen POP3 Clienten zu basteln.
Mit welchem Email Provider machst du es denn?
=> Also wo braucht man keinen Pop3 Clienten dazu?

[phreax]

Zitat:

Zitat von netscanner

okey danke für deine schnelle antwort...um ehrlich zu sein habe ich aber keine großartige lust noch einen POP3 Clienten zu basteln.
Mit welchem Email Provider machst du es denn?
=> Also wo braucht man keinen Pop3 Clienten dazu?

:???: Mir ging es genauso.
Den einzigen zuverlässigen Server, den ich kenne und auch immer für meine Programme benutze ist der Freenet smtp server. Ich weiss nicht, ob man sich bei denen einen Account einrichten kann. Ich habe einen, weil die mein Provider sind.

mfg phreax

[netscanner]

und was hast du in die uses eingebunden???

[phreax]

Zitat:

Zitat von netscanner

und was hast du in die uses eingebunden???

Delphi-Quellcode:

uses
IdBaseComponent, IdComponent, IdTCPConnection,
  IdTCPClient, IdMessageClient, IdSMTP, IdIOHandler, IdIOHandlerSocket,
  IdSSLOpenSSL, IdExplicitTLSClientServerBase, IdSMTPBase, uPipeClient;

Ob du das SSL brauchst ist natürlich deine Sache ;)

achja das ganze gilt natürlich nur für Indy 10

mfg phreax


EDIT schreiben will gelernt sein :oops:

[ghost007]

welche werte kann

Delphi-Quellcode:

Priority := mpHighest;

außer highest annehmen?

[phreax]

Zitat:

Zitat von ghost007

welche werte kann

Delphi-Quellcode:

Priority := mpHighest;

außer highest annehmen?

Hallo Geist ;)

Delphi-Quellcode:

TIdMessagePriority = (mpHighest, mpHigh, mpNormal, mpLow, mpLowest);

Hast du keine Codevervollständigung oder die tolle OH ? ;)

mfg phreax