如何通过Delphi Winapi.Mapi解决“发送邮件”问题？

uses
  Winapi.Mapi;

procedure SendEmail;
var
  MapiMessage: TMapiMessage;
  Recipient: TMapiRecipDesc;
begin
  ZeroMemory(@MapiMessage, SizeOf(MapiMessage));
  ZeroMemory(@Recipient, SizeOf(Recipient));

  // 设置邮件的收件人信息
  Recipient.ulRecipClass := MAPI_TO;
  Recipient.lpszName := 'Recipient Name';
  Recipient.lpszAddress := 'recipient@example.com';

  // 设置邮件的相关信息
  MapiMessage.lpszSubject := 'Email Subject';
  MapiMessage.lpszNoteText := 'Email Body';
  MapiMessage.lpRecips := @Recipient;
  MapiMessage.nRecipCount := 1;

  // 发送邮件
  MapiSendMail(0, 0, MapiMessage, MAPI_DIALOG or MAPI_LOGON_UI, 0);
end;