Memo an E-Mail versenden.

[Area51]

Hallo.
Also ich habe mal zum testen ein Memo und ein Button erstellt. Dann beim onklick beim button den Quelltext reinkopiert. Leider hat es nicht gefunzt. Ich poste hier mal den Queltext

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var
  MapiMsg: TMapiMessage;
  Recips: TMapiRecipDesc;
  Files : TMapiFileDesc;
begin
  with Recips do begin
    ulReserved := 0;
    ulRecipClass := MAPI_TO;
    lpszName := PChar('[e-mail]');
    lpszAddress := nil;
    ulEIDSize := 0;
    lpEntryID := nil;
  end;
  with Files do
  begin
    ulReserved := 0;
    flFlags:=0;
    nPosition:=0;
  end;
  with MapiMsg do begin
    ulReserved := 0;

// Betreff-Zeile
    lpszSubject := PChar('Titel');

// Text der Mail
    lpszNoteText := PChar('memo1');
    lpszMessageType := nil;
    lpszDateReceived := nil;
    lpszConversationID := nil;
    flFlags := 0;

// Informationen über den Sender der Mail (TMapiRecipDescr)
    lpOriginator := nil;

// Anzahl der Empfänger;
    nRecipCount := 1;

// Array der Empfänger (hier nur einer) (TMapiRecipDescr)
    lpRecips := @Recips;

// Anzahl anhängender Dateien
    nFileCount := 0;

// Angehängte Dateien (TMapiFileDescr)
    lpFiles := nil;
  end;
  result:=MapiSendMail(0, 0, MapiMsg, MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0)=SUCCESS_SUCCESS;
end;

[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen, danke. Mfg, Daniel[/edit]