Standard Mail Client

[Willie1]

Delphi-Quellcode:

unit SendMail_Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, System.Actions, Vcl.ActnList,
  Vcl.ExtActns, Vcl.PlatformDefaultStyleActnCtrls, Vcl.ActnMan, Vcl.StdCtrls,
  Vcl.ExtDlgs, WinAPI.Mapi;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    ActionList1: TActionList;
    InternetSendMail2: TSendMail;
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute then begin
    InternetSendMail2.Text.Add('Hallo Test');
    InternetSendMail2.Attachments.add(OpenPictureDialog1.FileName);
    InternetSendMail2.Execute;
  end;

end;

end.

Mein Testprogramm. Es stammt aus der Delphi-Hilfe.
Ja, auf dem neuen Rechner habe ich Thunderbird 64-Bit installiert auf dem alten 32-Bit. Kann das damit zu tun haben?
Willie.