Hallo zusammen,

ich habe ein kleineres Problem mit dem Senden von Mails via Indy Smtp. Verwendet der Mail-Empfänger einen Windows-Rechner und Outlook oder Thunderbird als Mailclient, ist alles gut. Bei Mail-Empfängern mit Mac sind die Attachments aber nicht sichtbar. Mir wird berichtet, dass die Attachments zwar da sind, aber nicht angezeigt werden. Hier mal mein Quellcode:

zusammenfalten · markieren

Delphi-Quellcode:

  
  // Smtp konfigurieren
  Smtp.Username:=ReadString('EMail','Username','');
  Smtp.Password:=DecodePassword(ReadString('EMail','Pwd',''));
  Smtp.Host:=Trim(ReadString('EMail','Host',''));
  Smtp.Port:=ReadInteger('EMail','Port',0);
  Smtp.UseTLS:=utNoTLSSupport;
  // Auth-Typ setzen
  if length(Smtp.Username)=0 then
    Smtp.AuthType:=satNONE
  else Smtp.AuthType:=satDEFAULT;
  // E-Mail konfigurieren
  Screen.Cursor:=crHourGlass;
  with IdMsgSend do
    begin
      From.Text:=EditAbsender.Text;
      Subject:=EditBetreff.Text;
    end;
  // Textteil
  IdMsgSend.MessageParts.Clear;
  with TIdText.Create(IdMsgSend.MessageParts)do
    begin
      ContentType:='text/plain';
      CharSet:='ISO-8859-1';
      ContentTransfer:='base64';
      Body.Text:=Mailtext.Lines.Text; // Text aus Memo übernehmen
    end;
  IdMsgSend.ContentType := 'multipart/related; type="text/plain"';
  IdMsgSend.CharSet :='ISO-8859-1';
  // Alle Dateien aus der Liste als Attachment einfügen
  for cnt:=0 to ListAnhang.Items.Count-1 do
    if FileExists(ListAnhang.Items[cnt]) then
      TIdAttachmentFile.Create(IdMsgSend.MessageParts,ListAnhang.Items[cnt]);
  // Verbindung zum SMTP-Server aufbauen
  Smtp.Connect;
  Smtp.Send(IdMsgSend);
  Smtp.Disconnect;

Smtp und IdMsgSend sind auf dem Formular angelegt:

zusammenfalten · markieren

Delphi-Quellcode:

  
  object Smtp: TIdSMTP
    OnWork = SmtpWork
    OnWorkBegin = SmtpWorkBegin
    OnWorkEnd = SmtpWorkEnd
    MailAgent = 'Thunderbird 2.0.0.9 (Windows/20071031)'
    Port = 0
    SASLMechanisms = <>
    Left = 208
    Top = 223
  end

  object IdMsgSend: TIdMessage
    AttachmentEncoding = 'MIME'
    BccList = <>
    CharSet = 'ISO-8859-1'
    CCList = <>
    ContentType = 'multipart/related'
    Encoding = meMIME
    FromList = <
      item
      end>
    Recipients = <>
    ReplyTo = <>
    ConvertPreamble = True
    Left = 235
    Top = 223
  end

  object IdAntiFreeze: TIdAntiFreeze
    Left = 264
    Top = 224
  end

Ich verwendet Delphi7 und Indy10.

Jemand eine Idee, was ich falsch mache?

easy

Kuckst du mal da, das hat geholfen
eMail mit Indy

Zitat von Sir Rufo:

Kuckst du mal da, das hat geholfen
eMail mit Indy

Jajajah, hab's gelesen. Kann Synapse auch den "SSL/TLS-Kram" (mit libeay32.dll
und ssleay32.dll), den z.B. GoogleMail verlangt?

LG
vergessen

Doku Synapse

Zitat von Sir Rufo:

Doku Synapse

Danke!

Das Problem kann beim Sender oder beim Empfänger der Mail (oder an beiden Seiten) liegen.
Wenn du an der falschen Stelle suchst, kannst du tagelang deine Zeit verschwenden.
Es bringt wenig in deinem Code (oder Indy-Code) nach Fehlern zu suchen, wenn du die Ursache nicht kennst.
Also weshalb zeigt der EMail-Client auf dem Mac den Anhang nicht an?

Zitat von sx2008:

Das Problem kann beim Sender oder beim Empfänger der Mail (oder an beiden Seiten) liegen.
Wenn du an der falschen Stelle suchst, kannst du tagelang deine Zeit verschwenden.
Es bringt wenig in deinem Code (oder Indy-Code) nach Fehlern zu suchen, wenn du die Ursache nicht kennst.
Also weshalb zeigt der EMail-Client auf dem Mac den Anhang nicht an?

Weil die Mail nicht ganz RFC konform ist?