Wie kann ich mehre Dateien die mir bekannt sind aus meinem Prog an Outlook200 als anhangübergeben

[Sebastian Beyna]

Hallo ja hier bin ich schon wieder mit einem neuem problem
also ich möchte aus meinem programm herraus über Outlook2000 eine Mailversenden der ich gleich 2 mir bekannte dateien als anhang bei fügen möchte. wie kann ich das realisieren.

guruss euer Sebastian.!!!!

[Andreas Kosch]

Hallo,

diese Frage habe ich gestern mit einem Beispielprojekt in einem anderen Ordner (COM+, COM/DCOM ?) beantwortet:

Wenn ein Interface-Zeiger für MailItem vorhanden ist, kann man die Methode <b>Add</b> der <b>Attachments</b>-Kollektion aufrufen:
<pre>
procedure TForm1.Button2Click(Sender: TObject);
var
aOutlook : _Application;
aMAPI : NameSpace;
aOutbox : MAPIFolder;
aMail : MailItem;
aReci : Recipient;
begin
Screen.Cursor := crHourglass;
aOutLook := CoOutlookApplication.Create;
try
aMAPI := aOutlook.GetNameSpace('MAPI');
aOutbox := aMAPI.GetDefaultFolder(olFolderOutbox);
aMail := aOutbox.Items.Add(olMailItem) as MailItem;
aReci := aMail.Recipients.Add('eMail-Adresse');
aReci.Type_ := olTo;
// Empfänger prüfen (falls nicht bekannt -> Exception)
aReci.Resolve;
aMail.Subject := 'Betreff...';
aMail.Body := 'Text';
// 2 Anhänge beifügen
aMail.Attachments.Add('C:\Temp\test.xls', EmptyParam, EmptyParam, EmptyParam);
aMail.Attachments.Add('C:\Temp\D1S1.doc', EmptyParam, EmptyParam, EmptyParam);
// eMail senden
aMail.Send;
finally
aOutlook := nil;
Screen.Cursor := crDefault;
end;
end;
</pre>

P.S: Eine Frage sollte nur dann mehrfach in verschiedenen Ordnern gestellt werden, wenn man beim ersten Mal auch nach Tagen keine Antwort erhalten hat