OLE Outlook Absender

[tomkupitz]

Vielleicht hilft das. Geht mit nur einem oder dem ersten Konto.

Code:

procedure TForm1.Button1Click(Sender: TObject);
const
    olMailItem = 0;

var Outlook, MailItem: OleVariant;

begin
    try
      Outlook:=GetActiveOleObject('Outlook.Application');
    except
      try
        Outlook:=CreateOleObject('Outlook.Application');
      except
        Exit;
      end;
    end;

    try
      MailItem:=Outlook.CreateItem(olMailItem);

      MailItem.Recipients.Add('[e-mail]');

      MailItem.Subject:='...';
      MailItem.Body:='Text'; //oder HTMLBody

      MailItem.Attachments.Add('C:\abc.txt', EmptyParam, EmptyParam, EmptyParam);

      MailItem.Send;

    finally
      Outlook:=UnAssigned;
    end;
end;