Mapi-Komponente

[Jürgen]

Hallo,

kann mir jemand sagen ob und wo ich eine MAPI-Komponente finde, mit der ich auch lange Dateienamen versenden und lesen kann.
Dir, die ich jetzt habe, schaft es nicht lange Dateinamen (anhänge)zu lesen
Danke
Jürgen

[Christoph Speth]

Hallo Jürgen,
weiss nicht od Dir's noch hilft, hier jedenfalls die MAPI - Funktion
zum Versenden von Mails, es gibt auch ein Delphi-Beispiel zu diesem Thema,
weiss bloss nicht mehr wo (Voltextsuche Stichwort "MapiSendMail" im Delphi-Verzeichnis hilft
garantiert...)

Gruss

Christoph

procedure TMainForm.EMailRecipItemClick(Sender: TObject);
var
MapiMessage : TMapiMessage;
MapiFileDesc : PMapiFileDesc;
MapiFile : TMapiFileDesc;
MError : Cardinal;
FNStr : String;
begin
MapiFileDesc := New(PMapiFileDesc);
// WideString liefert bei PChar-Konvert. nur 1. Zeichen, da zweites Byte = 0 ist,
// daher Konvertierung nach String vor PChar-Fkt.

FNStr := MyLongFileName;

MapiFileDesc.lpszPathName := PChar(FNStr);
MapiFileDesc.lpszFileName := '';
with MapiMessage do
begin
ulReserved := 0;
lpszSubject := nil;
lpszNoteText := '';
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
lpRecips := nil;
nFileCount := 1;
lpFiles := MapiFileDesc;
end;
MError := MapiSendMail(0, 0, MapiMessage,
MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
if MError <> 0 then MessageDlg(SSendError, mtError, [mbOK], 0);
end