e-Mail aus Prg heraus versenden

[Sourcemaker]

Hi Alzaimar,

haben Deinen folgenden Code ausprobiert aber es öffnet sich nur Outlook-Express mit den
angegebenen Daten aber ohne Attachment.

Delphi-Quellcode:

 Function UrlEncode (Const s : String) : String; 
Var 
  i : Integer; 
Begin 
  Result := ''; 
  For i:=1 To length (s) do 
    If ord (s[i]) in [33..127] then 
      Result := Result+s[i] 
    Else 
      Result := Result+'%'+IntToHex (Ord(s[i]),2); 
End; 

Procedure SendMailViaStandardEMailClient (aRecipients, aSubject, aBody, aAttachment: string); 
Var 
  aMailCmd : String; 
Begin 
  aMailCmd := 'mailto:'+aRecipients + '?subject='+aSubject; 
  if aBody <>'' Then 
    aMailCmd := aMailCmd + '&body='+aBody; 
  If aAttachment <>'' Then 
    aMailCmd := aMailCmd + '&attach="' + aAttachment +'"'; 
  aMailCmd := UrlEncode (aMailCmd); 
  ShellExecute (Application.Handle,'OPEN', PChar (aMailCmd), nil, nil, SW_SHOWDEFAULT); 
End;

Du sprachst von unterschiedlichen Verhalten bei verschiedenen Mail-Programmen, ist das auch
so eins ?
Wie weit übernimmt Lotus die Daten ?

Gruß

Frank