E-Mail senden

[HPB]

Guten Tag Delphianer,
ich möchte eine E-Mail senden. Im Body der E-Mail befindet sich ein Bild.
Wenn ich nun die E-Mail sende, wird der Text korrekt übermittelt,
aber das Bild im Body nicht.
Nun habe ich schon verschiedene ContentType ausprobiert, aber es gelingt nicht.

Delphi-Quellcode:

  idmsgSendeMail.ContentType := 'multipart/mixed';
idmsgSendeMail.CharSet := 'UTF-8';  
// idmsgSendeMail.ContentType := 'multipart/Image;
// idmsgSendeMail.CharSet := 'windows-1256';
  idmsgSendeMail.ContentTransferEncoding := '64bit';

Welchen ContentType muss ich nehmen? Oder liegt es am CharSet??
Weiß mir keinen Rat mehr. Vielleicht hat ja jemand eine Lösung??
Mit gruß
HPB

[dataspider]

Ich hatte mal ein ähnliches Problem.

Das sollte zum Testen genügen.
Inline - Images erfordern schon ein paar besondere Bemühungen...

Frank

[Sir Rufo]

Indy 10 hat da schon was vorbereitet:

Delphi-Quellcode:

uses
  IdMessageBuilder, IdMessage;

procedure TForm1.Button2Click( Sender: TObject );
var
  b: TIdMessageBuilderRtf;
  m: TIdMessage;
  s: TStringStream;
begin
  s := TSTringStream.Create;
  try

    RichEdit1.Lines.SaveToStream( s );

    m := TIdMessage.Create( nil );
    try
      b := TIdMessageBuilderRtf.Create;
      try
        s.Position := 0;
        b.Rtf.LoadFromStream( s );
        b.FillMessage( m );
      finally
        b.Free;
      end;

      // Wir zeigen die Mail einfach nur mal an
      s.Clear;
      m.SaveToStream( s );

    finally
      m.Free;
    end;

    ShowMessage( s.DataString );

  finally
    s.Free;
  end;
end;

[Koloss]

Falls du ein Bild mitsenden möchtest, habe ich eine fertige Funktion dafür:

In ImageFiles stehen die Bilder mit Pfad drinnen.

Diese Indy Units werden benötigt:

Code:

IdSMTPBase, IdSMTP, IdMessage, IdMessageParts, IdText, IdAttachment, IdAttachmentFile, idGlobal

Komponente idSMTP liegt bei mir in einer Form, kannst aber mitgeben oder createn etc. wie du möchtest.

Code:

function TMailThread.SendMail(ToAddress, Subject : String; MailText : String; ImageFiles : TStringDynArray) : Boolean;
var IdMessage: TIdMessage; lTextPart: TIdText;
  idAttachment: TIdAttachment;
  Stream: TStream;
  Enc: TIdTextEncoding;
  i : Integer;
begin
  Result := False;
  IdMessage := TIdMessage.Create(nil);
  IdMessage.Subject := Subject;
  with IdMessage do
  begin
    ContentType := 'multipart/related; type="text/html"';
    CharSet:= 'ISO-8859-1';
    ContentTransferEncoding := 'quoted-printable';
    From.Address := MailSettings.FromAddress;
    From.Name := MailSettings.FromName;
    Recipients.EMailAddresses := ToAddress;
  end;
  with TIdText.Create(IdMessage.MessageParts, nil) do
  begin
    Body.Text := MailText;
    ContentType := 'text/html';
    CharSet := 'ISO-8859-1';
  end;
  for i := 0 to High(ImageFiles) do
    with TIdAttachmentFile.Create(IdMessage.MessageParts, ImageFiles[i]) do
    begin
      ContentID := 'image' + IntToStr(i+1);
      ContentType := 'image/jpeg';
    end;
  try
    IdSMTP.Send(IdMessage);
    Result := True;
  finally
    IdMessage.Free;
  end;
end;

[HPB]

Guten Tag Delphianer,
vielen Dank für Eure Hilfe.
Zu Koloss
es sollen keine Dateien angehängt werden.
Sondern das Bild das im Body eingefügt worden ist, soll mit übertragen werden.

Zu SirRufo
Ich benutze eine TADVRichEditor-Komponente.
Diese Komponente kennt die Eigenschaft "Lines" nicht.

Zu Dataspider
Den begefügten Quellcode werde ich mir mal ansehen.

Vielleicht weiss ja jemand noch eine andere Lösung?
Mit Gruß
HPB

[mrtwo12]

Moin,

Zitat von HPB:

Zu SirRufo
Ich benutze eine TADVRichEditor-Komponente.
Diese Komponente kennt die Eigenschaft "Lines" nicht.

http://www.tmssoftware.biz/Download/...RichEditor.pdf

Seite 12 erste Zeile lautet:
SaveToStream(const AStream: TStream);
Save a document in the .RTE file format to stream

mfg
S.Simon

[dataspider]

Zitat von HPB:

Vielleicht weiss ja jemand noch eine andere Lösung?
Mit Gruß
HPB

Es wäre hilfreich zu wissen:
Welches Format benutzt du für Bodytext - RTF oder HTML?

Bei RTF kannst du ja Sir Rufo' s Vorschlag testen.
Ich habe nie RTF benutzt, weil oft vor der Benutzung gewarnt wird.
Es kann wohl nicht jeder Client damit umgehen.
Bei HTML musst du die Bilder "rausholen", die werden als Anhang versendet.
Dann kannst du mein Beispiel benutzen.
Es bleibt dann das Problem der Trennung von Text und Bild.
Und ich habe bisher außer WPTools nichts gefunden, was das kann.

Frank