Attachment an E-Mail anhängen

[Daniel B]

Hi,

Du benutzt also Outlook und nicht den OE.
Ich hab mein OL nicht konfiguriert, weil ich den OE benutze und dies werde ich auch nicht ändern, aber versuche mal folgendes:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Outlook, MailItem: OLEVariant;
begin
  try
    Outlook := GetActiveOleObject('Outlook.Application');
  except
    Outlook := CreateOleObject('Outlook.Application');
  end;
  MailItem := Outlook.CreateItem(0);
  MailItem.Recipients.Add('[e-mail]');
  MailItem.Subject := 'dsgfd';
  MailItem.Body := 'slkdfhskdjhfkds';
  MailItem.Attachments.Add('C:\meine.exe');
  MailItem.Send;
  Outlook := Unassigned;
end;

Grüsse, Daniel