Über Programm eMail versenden D3

[EDatabaseError]

Ich hab in der Suche einige Dinge gefunden aber nur für höhere Versionen...leider. Ich arbeite mit D3 Prof. und habe eine SMTP Komponente zur verfügung. Die Online Hilfe bringt mich auch nicht sehr weit...

Nun meine Frage:
Wie kann ich mit der SMTP Komponente eine Mail verschicken???



Mfg
Tobi

[RavenIV]

Du solltest die Komponente anhängen oder zumindest sagen, wie die Komponente heisst.
Keiner kann etwas über eine Komponente sagen, die er nicht kennt...

[EDatabaseError]

Die in D3 intigrierte SMTP Komponente TSMTP. Kategorie Internet. Ist ActiveX und in der Hilfe steht was von NEWT Intranet falls es hilft.

[EDatabaseError]

Ich hab jetzt was gefunden aber er spuckt mir immer einen Fehler entgegen:

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, Menus, StdCtrls, ExtCtrls, Db, DBTables, OleCtrls, isp3;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Datei1: TMenuItem;
    N2: TMenuItem;
    Beenden1: TMenuItem;
    Drucken1: TMenuItem;
    Suchen1: TMenuItem;
    Hilfe1: TMenuItem;
    Inhalt1: TMenuItem;
    Info1: TMenuItem;
    ber1: TMenuItem;
    StatusBar1: TStatusBar;
    StatusBar2: TStatusBar;
    Panel1: TPanel;
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Einstellungen1: TMenuItem;
    Orderliste1: TMenuItem;
    N1: TMenuItem;
    Druckereinrichten1: TMenuItem;
    Label9: TLabel;
    Label8: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Artikelgruppen1: TMenuItem;
    Zusatzdefinitieonen1: TMenuItem;
    waittoreset: TTimer;
    Suche1: TMenuItem;
    Computerherunterfahren1: TMenuItem;
    Artikel1: TMenuItem;
    Artikelhinzufgen1: TMenuItem;
    Artikeleditieren1: TMenuItem;
    Suchergebnisse1: TMenuItem;
    WebIE1: TMenuItem;
    SMTP: TSMTP;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure Artikelgruppen1Click(Sender: TObject);
    procedure Zusatzdefinitieonen1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure waittoresetTimer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure Suche1Click(Sender: TObject);
    procedure Artikelhinzufgen1Click(Sender: TObject);
    procedure Suchergebnisse1Click(Sender: TObject);
    procedure WebIE1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    procedure set_status(bar, panel: integer; text: String);
    procedure chkbef;
    procedure chkbc;
    procedure set_zusatz_labels;
    procedure resetSys;
    procedure AddLogEntry(s: String);
    procedure Error(s: String);

    procedure anzeigen;
    procedure einlegen;
    procedure entnehmen;

    procedure  Send_Mail(Absender, Empfaenger, Betreff, MailText : string);
  end;

var
  Form1: TForm1;
  state :                   Integer;
  mem, workdir :            String;
  gruppenArr :              Array[1..20] of String;
  zusatzArr, action :       Array[1..5] of String;

const
  items :                   integer = 1000;

implementation

uses Gruppen, Zusatz, Tables, DebugWindow, SuchenForm, Hinzufuegen,
  SuchenResult, WebInterface;

{$R *.DFM}

////////////////////////////////////////////////////////////////
procedure TForm1.Send_Mail(Absender, Empfaenger, Betreff, MailText : string);
begin //Hier ist der Fehler
 with SMTP do begin
  DocInput.Headers.Add 'From', Absender;
  DocInput.Headers.Add 'To', Empfaenger;
  DocInput.Headers.Add 'Subject', Betreff;
 end;

 RemoteHost = 'mail';
 SendDoc,,mailText;
end;

Da noch ein Bild:

[inherited]

AAlllsoooo:

-Das ganze Zeugs hinter den 'Add's sollte in klammern.
-RemoteHost:= 'mail' (aber was wilst duu damit erreichen?)

[EDatabaseError]

Das Prog soll bei einem bestimmten Status eine Mail an jmd. schicken. Ich versuch es mal so wie du gesagt hast. Das was ich hab ist nämlich von einem Beispiel.


Mfg
Tobi

[EDatabaseError]

Delphi-Quellcode:

procedure TForm1.WebIE1Click(Sender: TObject);
var
   mailtext : String;
begin
 mailText := 'Text';
 with SMTP do begin
  DocInput.Headers.Add('From', '[e-mail]');
  DocInput.Headers.Add('To', '[e-mail]');  // Hier sind nicht genug wirkliche Parameter.
  DocInput.Headers.Add('Subject', 'Test');
  RemoteHost := 'mail';
 end;
  SMTP.SendDoc,,mailText;
end;

Hat die Fehleranzahl gesenkt.