Email versenden

[Snyderburn]

Hi!

Wie ich das E-Mail programm öffne und den Empfänger, Betreff und Body einfüge, das klappt auch ohne weiteres!
shellexecute(Handle,'Open',PChar('mailto:'+mailempfaenger+'?subject=Betreff&BODY=Body'),nil,nil,SW_SHOWNORMAL); Nun möchte ich aber gerne haben, dass sich nicht das Mail programm öffnet, sondern das die Mail einfach versendet wird! Man sollte also nix davon mitbekommen, dass ne mail verschickt wurde.

Ich habe gerade kein Plan, wie ich das realisieren soll!!!!!!!!

mfg
Snyderburn

[sakura]

Dazu musst Du ein ganzes Ende mehr machen, als eine Zeile Code. Ich empfehle Dir im Forum mal nach TIdSmtp zu suchen, diese Komponente erledigt genau dieses und ist in Deiner Delphi-Version enthalten.

......

[Sharky]

Zitat von Snyderburn:

.... Man sollte also nix davon mitbekommen, dass ne mail verschickt wurde.....

Nur so am Rande,

a) Würde eine Personal-Firewall das verhindern
b) Würde ich zimmlich böse werden wenn ein Programm ohne meine Zustimmung Daten versendet.

Nicht falsch verstehen! Ich möchte nichts böses unterstellen. Aber berücksichtige dies bei deiner Programmplanung

[Snyderburn]

Zitat von Sharky:

Zitat von Snyderburn:

.... Man sollte also nix davon mitbekommen, dass ne mail verschickt wurde.....

Nur so am Rande,

a) Würde eine Personal-Firewall das verhindern
b) Würde ich zimmlich böse werden wenn ein Programm ohne meine Zustimmung Daten versendet.

Nicht falsch verstehen! Ich möchte nichts böses unterstellen. Aber berücksichtige dies bei deiner Programmplanung

Die Mail wird ja "nur" intern weiter gesendet und aussderm, wurde mir aufgetragen, dass ich das so machen soll! naja, mir egal, ich mache es einfach!

[Alexander]

Dann kuck hier mal nach Indy oder nach MAPI...

[XeRo]

Eine gute Möglichkeit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  NMSMTP1.Host   := 'mail.host.com'; 
  NMSMTP1.UserID := 'Username'; 
  NMSMTP1.Connect; 
  NMSMTP1.PostMessage.FromAddress       := '[e-mail]'; 
  NMSMTP1.PostMessage.ToAddress.Text    := '[e-mail]'; 
  NMSMTP1.PostMessage.ToCarbonCopy.Text := '[e-mail]'; 
  NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := '[e-mail]'; 
  NMSMTP1.PostMessage.Body.Text         := 'This is the message'; 
  NMSMTP1.PostMessage.Attachments.Text  := 'c:\File.txt'; 
  NMSMTP1.PostMessage.Subject           := 'Mail subject'; 
  NMSMTP1.SendMail; 
  ShowMessage('Mail sent !'); 
  NMSMTP1.Disconnect; 
end;

Das Problem ist nur: Du benötigst die TNMSMTP Komponente von FastNet tools.
So viel ich weiß, ist die aber in alle Delphi`s ab Version 4 enthalten...
Versuchs mal...

[Stinger]

Funktioniert das auch wenn ein PW zur Identifikation verlangt wird bzw. was mache ich dann?

[Minz]

Mit den Winshoe-Komponenten funzt es auch ganz prima.

[Quick_silver]

Zitat von XeRo:

Eine gute Möglichkeit:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  NMSMTP1.Host   := 'mail.host.com'; 
  NMSMTP1.UserID := 'Username'; 
  NMSMTP1.Connect; 
  NMSMTP1.PostMessage.FromAddress       := '[e-mail]'; 
  NMSMTP1.PostMessage.ToAddress.Text    := '[e-mail]'; 
  NMSMTP1.PostMessage.ToCarbonCopy.Text := '[e-mail]'; 
  NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := '[e-mail]'; 
  NMSMTP1.PostMessage.Body.Text         := 'This is the message'; 
  NMSMTP1.PostMessage.Attachments.Text  := 'c:\File.txt'; 
  NMSMTP1.PostMessage.Subject           := 'Mail subject'; 
  NMSMTP1.SendMail; 
  ShowMessage('Mail sent !'); 
  NMSMTP1.Disconnect; 
end;

Das Problem ist nur: Du benötigst die TNMSMTP Komponente von FastNet tools.
So viel ich weiß, ist die aber in alle Delphi`s ab Version 4 enthalten...
Versuchs mal...

Noch ne Frage dazu:
Wo kommt das PW für den SMTP account hin?

[Stinger]

Die Frage stell ich mir auch. Funktioniert das mit der Komponente überhaupt, ich hab keine deartige Property gesehen.