Einzelnen Beitrag anzeigen

Benutzerbild von Loki77
Loki77

Registriert seit: 21. Feb 2006
Ort: Trier
132 Beiträge
 
Delphi XE2 Enterprise
 
#1

MapiMessage: Empfänger übergeben (mit string)?

  Alt 24. Mär 2006, 17:19
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
"What I cannot create, I do not understand."
-Richard P. Feynman
  Mit Zitat antworten Zitat