MapiSendMail - problem med "Winmail.dat"

Hej Martin

Jeg har fået denne funktion af Jens B. engang, med den har jeg aldrig set det nævnte problem

function SendMailMAPI(const Subject, Body, FileName, SenderName, SenderEMail, RecepientName, RecepientEMail: String) : Integer;
var
  message: TMapiMessage;
  lpSender,
  lpRecepient: TMapiRecipDesc;
  FileAttach: TMapiFileDesc;
  SM: TFNMapiSendMail;
  MAPIModule: HModule;
begin
  FillChar(message, SizeOf(message), 0);

  with message do
  begin
    if (Subject<>'') then
      lpszSubject := PChar(Subject);

    if (Body<>'') then
      lpszNoteText := PChar(Body);

    if (SenderEMail<>'') then
    begin
      lpSender.ulRecipClass := MAPI_ORIG;

      if (SenderName='') then
        lpSender.lpszName := PChar(SenderEMail)
      else
        lpSender.lpszName := PChar(SenderName);

      lpSender.lpszAddress := PChar(SenderEMail);
      lpSender.ulReserved := 0;
      lpSender.ulEIDSize := 0;
      lpSender.lpEntryID := nil;
      lpOriginator := @lpSender;
    end;

    if (RecepientEMail<>'') then
    begin
      lpRecepient.ulRecipClass := MAPI_TO;
      if (RecepientName='') then
        lpRecepient.lpszName := PChar(RecepientEMail)
      else
        lpRecepient.lpszName := PChar(RecepientName);

      lpRecepient.lpszAddress := PChar(RecepientEMail);
      lpRecepient.ulReserved := 0;
      lpRecepient.ulEIDSize := 0;
      lpRecepient.lpEntryID := nil;
      nRecipCount := 1;
      lpRecips := @lpRecepient;
    end
    else
      lpRecips := nil;

    if (FileName='') then
    begin
      nFileCount := 0;
      lpFiles := nil;
    end
    else
    begin
      FillChar(FileAttach, SizeOf(FileAttach), 0);
      FileAttach.nPosition := Cardinal($FFFFFFFF);
      FileAttach.lpszPathName := PChar(FileName);
      nFileCount := 1;
      lpFiles := @FileAttach;
    end;
  end;

  MAPIModule := LoadLibrary(PChar(MAPIDLL));

  if MAPIModule=0 then
    Result := -1
  else
  begin
    try
      @SM := GetProcAddress(MAPIModule, 'MAPISendMail');
      if @SM<>nil then
        Result := SM(0, Application.Handle, message, MAPI_DIALOG or MAPI_LOGON_UI, 0)
      else
        Result := 1
    finally
      FreeLibrary(MAPIModule);
    end;
  end;

  if not Result in [0,1] then
    MessageDlg('Error sending mail ('+IntToStr(Result)+').', mtError, [mbOk],  0)
end;

Kan du give et eks. på et kald til ovenstående funktion?
Jeg kan ikke få den til at fungere...

Nedenståend kald sender en mail til mig ;-)

SendMailMAPI('Overskrift på mail','','','','','','ms@ms-consult.dk')

Jeg har brugt din funktion(den lignede det jeg havde i forvejen) men...

Jeg får mailen tilbage i hovedet og jeg får denne fejl:     
"'man@des.dk' den 12/2/02 5:35 PM Der var ingen transportprovider tilgængelig, der kunne levere til denne modtager."

Er det mig der har misset noget eller?

Åbner den ikke en mail side?

prøv og send den til mig

Jo... det gør den, men hvis jeg trykker "send" så kommer ovenstående fejl!
Har det noget at gøre med, hvordan jeg er logget på eller?

ved det ikke har aldrig set det problem før

Hej
Må jeg spørge i hvilken unit TMapiMessage typen ligger i ?

Mvh

PigBear

Det der typisk er problem med Outlook (som jo er MAPI) er at hvis man sender i standard format dvs. RTF format, til klienter som ikke understøtter dette. Så er resultatet en winmail.dat fil.
Man skal sende i HTML eller plain text format for at undgå dette. Ved dog ikke lige hvor dette scriptes.

pigbear>De ligger i uniten MAPI

TMapiMessage ligger overraskende i "Mapi" :-)

Ok.. Jeg er nu kommet lidt videre.
hvis jeg benytter MapiLogOn/MapiLogOff omkring mit kald, så fungere
din(morten s) funktion. Men problemmet med "Winmail.dat" lever stadig.