Attachment an E-Mail anhängen

[fly_singapore]

[b]Hallo TylerDuden,


ja funktioniert auch.. Der Vorredner "Daniel B" in diesen Thread hats auch schon gezeigt:

Zitat:

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;

Probiere es mal aus!!!

Gruss Peter