Hallo!
Bekomme es einfach nicht hin, via MapiMessage die Nachricht an mehrere Empfänger zu senden...
Kann mir jemand sagen wo und wie ich im Quelltext die Empfänger (am besten mit string-variable?!)
übergebe??
Schaff es nicht....
Delphi-Quellcode:
procedure TForm4.SpeedButton1Click(Sender: TObject);
var
MapiMessage: TMapiMessage;
MError: Cardinal;
begin
case Application.MessageBox('Send Text as electronic Mail?', 'Send?',
MB_YESNOCANCEL or MB_ICONQUESTION) of
IDNO : abort;
IDCANCEL : abort;
IDYES :
with MapiMessage do
begin
ulReserved := 0;
lpszNoteText := PChar(memMail.Lines.Text);
lpszMessageType := nil;
lpszDateReceived := nil;
lpszConversationID := nil;
flFlags := 0;
lpOriginator := nil;
nRecipCount := 0;
nFileCount := 0;
lpFiles := nil;
end;
end;
MError := MapiSendMail(0, Application.Handle, MapiMessage,
MAPI_DIALOG or MAPI_LOGON_UI or MAPI_NEW_SESSION, 0);
if MError <> 0 then MessageDlg(SSendError, mtError, [mbOK], 0);
end;
Vielen Dank, Philipp