Standard Mail Client

[Willie1]

Sorry, wenn ich so hartnäckig bin. Ich bin genau, wie von dir beschrieben, vorgegangen. Wenn ich im Explorer ein Bild auswähle, Kontextmenü: Senden an/Mailempfänger anklicke, öffnet sich Thunderbird. Alles okay. Aber wenn ich die gleiche Option aus meinem Programm benutze, passiert auf dem neuen PC nichts. An meinen Programmierkünsten kann es nicht liegen, weil es auf dem alten PC funktioniert. Ich kann den Quelltext hier veröffentlichen, ist nicht lang.

Willie.

[Bernhard Geyer]

Läut die Anwendung evtl. mit höheren Rechten (z.B. eigener Installer mit "runas").
In diesem Elevated-Zustand sind die eingerichtete MAPI-Konten nicht verfügbar.

[taveuni]

Hast auf beiden Systemen (Win10 / Win11) die gleiche Thunderbird Version installiert (32/64bit)? Vielleicht hat es damit zu tun dass Du aus einer 32bit Applikation den 64bit Thunderbird anstossen willst.

[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.

[jaenicke]

Zitat von Willie1:

Ja, auf dem neuen Rechner habe ich Thunderbird 64-Bit installiert auf dem alten 32-Bit. Kann das damit zu tun haben?
Willie.

MAPI ist COM-basiert. Wie auch beim Laden von DLLs müssen Client und Server beide 32-Bit sein oder beide 64-Bit. Es gibt dafür zwar auch Lösungen, mit denen man das umgehen kann, aber die sind erstens komplizierter und zweitens muss man diese explizit implementieren.

Kannst du dein Programm nicht einfach für 64-Bit kompilieren?

[Rollo62]

...

[Willie1]

Zitat von jaenicke:

Kannst du dein Programm nicht einfach für 64-Bit kompilieren?

Ja, genau das habe ich unternommen mit dem Testprogramm. Es tut sich nichts. W.

[fred42]

Hallo,

Ich habe in der Registry unter

Computer\HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Win dows Messaging Subsystem

die Zeichenfolge 'MAPI' hinzugefügt und als Wert 1 gesetzt.

das gleiche unter

Computer\HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\M icrosoft\Windows Messaging Subsystem

danach bekomme ich zumindestens OUTLOOK(32Bit) (laut Taskmanager) gestartet, aber kein THUNDERBIRD.

Ohne diese Einträge ist auch nichts passiert. Thunderbird wie beschrieben eingerichtet.


Ich hab's so probiert.

JclMapi.JclSimpleBringUpSendMailDialog('', '', ''); und

InternetSendMail1.Execute;

es fehlten wohl noch folgende Einträge

Delphi-Quellcode:

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\SOFTWARE\Clients\Mail]
@="Mozilla Thunderbird"

[HKEY_LOCAL_MACHINE\SOFTWARE\Clients\Mail]
@="Mozilla Thunderbird"

die Einträge als *.reg Datei speichern und registrieren.

Gruß