Delphi-PRAXiS - E-Mail-Eigenschaft ändern

Hallo,
ich komme nicht weiter. Ich brauche mal wieder eure Hilfe.

Ich habe ein Programm geschrieben, in dem ich mit nachfolgenden Code eine E-Mail mit Anhang verschicke. Auf dem Rechner ist Outlook 2003 installiert.
Es funktioniert fast alles. Nur bei einigen Empfängern kommt der Anhang als "winmail.dat" an und kann von denen nicht gelesen werden.
Die Ursache habe ich gefunden. Outlook und alle Kontakt wurden, wie

hier und

hier beschrieben, auf das Textformat umgestellt.
Wenn ich jetzt eine E-Mail manuell erstelle und an einen in den Kontakten gespeicherten Empfänger senden, kommt der Anhang richtig an.
Wenn ich aber die E-Mail mit meinem Programm erstelle, muß ich vor dem Senden immer die E-Mail-Eigenschaft "Internetformat" des Empfängers manuell auf "Nur Text" ändern, auch wenn die E-Mail-Adresse in den Kontakten mit der richtigen Einstellung gespeichert ist.

Wie kann ich beim Erstellen der E-Mail mit meinem Programm sicherstellen, das die E-Mail im Textformat gesendet wird, ohne das der Nutzer diese Eigenschaft manuell ändern muß?

Ich hoffe ihr könnt mir helfen.

Gruß
Klaus

der Code:

Delphi-Quellcode:

			function Create_Email(eHandle: Hwnd; eReceiver, eSubject, eBody, eFiles: String): integer;

const

  MaxFiles = 255;

type

  TAttachAccessArray = array [0 .. MaxFiles] of TMapiFileDesc;

var

  Mapi_Message: TMapiMessage;

  Receip          : TMapiRecipDesc;

  Attachments     : TAttachAccessArray;

  i               : integer;

  Mapi_Session    : Cardinal;

  WndList         : Pointer;

  FileList        : TStringList;

  FileName        : array [0 .. MaxFiles] of AnsiString;

begin

  result := MapiLogon(eHandle, Nil, Nil, Mapi_Logon_Ui or Mapi_New_Session, 0, @Mapi_Session);

  if result = Success_Success then

  begin

    FillChar(Mapi_Message, SizeOf(Mapi_Message), #0);

    FillChar(Receip, SizeOf(Receip), #0);

    if eReceiver <> '' then

    begin

      Receip.ulReserved := 0;

      Receip.ulRecipClass := Mapi_To;

      Receip.lpszName := PAnsiChar(AnsiString(eReceiver));

      Receip.lpszAddress := PAnsiChar('SMTP:' + AnsiString(eReceiver));

      Receip.ulEIDSize := 0;

      Mapi_Message.nRecipCount := 1;

      Mapi_Message.lpRecips := @Receip;

    end;

    FileList := TStringList.Create;

    try

      FileList.Text := eFiles;

      if FileList.Count > 0 then

      begin

        if FileList.Count > MaxFiles then

        begin

          result := -MaxInt;

          exit;

        end;

        for i := 0 to FileList.Count - 1 do

        begin

          FileName[i] := AnsiString(FileList[i])+#0;

          Attachments[i].ulReserved := 0;

          Attachments[i].flFlags := 0;

          Attachments[i].nPosition := ULONG($FFFFFFFF);

          Attachments[i].lpszPathName := PAnsiChar(FileName[i]);

          Attachments[i].lpszFileName := Nil;

          Attachments[i].lpFileType := Nil;

        end;

        Mapi_Message.nFileCount := FileList.Count;

        Mapi_Message.lpFiles := @Attachments;

      end;

    finally

      FileList.Free;

    end;

    if eSubject <> '' then

      Mapi_Message.lpszSubject := PAnsiChar(AnsiString(eSubject));

    if eBody <> '' then

      Mapi_Message.lpszNoteText := PAnsiChar(AnsiString(eBody));

    WndList := DisableTaskWindows(0);

    try

      result := MapiSendMail(Mapi_Session, eHandle, Mapi_Message, Mapi_Dialog, 0); // original!

    finally

      EnableTaskWindows(WndList);

    end;

    MapiLogOff(Mapi_Session, eHandle, 0, 0);

  end

  else

    result := -result;

end;