SendMail mit Anhang

[Sir Rufo]

Delphi-Quellcode:

function SendEmail( Recipient : string; CCList : string; sSubject : string; Body : TStringList; Pfad : string )
  : boolean;
var
  nAlarmnr :   integer;
  Attachment : TIdAttachment;
  // Das fehlte hier noch !!!
  idSMTP : TIdSMTP;
  idMessage : TIdMessage;
begin

  Result := False;

  idSMTP := TidSMTP.Create;
  try

    idMessage := TidMessage.Create;
    try

      idSMTP.Host     := 'XXX.XXX.XXX.XXX';
      idSMTP.Username := 'XXXXXX';
      idSMTP.Password := 'XXXX';
      idSMTP.Port     := XX;

      idMessage.From.text   := '[e-mail]';
      idMessage.Sender.text := idMessage.From.text;

      idMessage.Recipients.EMailAddresses := Recipient;
      idMessage.CCList.EMailAddresses     := CCList;
      idMessage.Subject                   := sSubject;
      idMessage.ContentType               := 'multipart/*';

      with TidText.Create( idMessage.MessageParts, Body ) do
        begin
          ContentType := 'text/html';
        end;

      with TIdAttachmentFile.Create( idMessage.MessageParts, Pfad ) do
        begin
          idMessage.MessageParts.Add( );
        end;

      try
        idSMTP.Connect;
        try
          idSMTP.Send( idMessage );
          Result := True;
        finally
          idSMTP.Disconnect;
        end;
      except
        // Das macht man ja eigentlich nicht, keine Exception-Behandlung
      end;

    finally
      idMessage.Free;
    end;

  finally
    idSMTP.Free;
  end;

end;

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1137217)

Ich sehe da 4 mal Create, aber nicht 1 mal Free. Üblicherweise macht man das ja so:

Die Text- und Attachmentteile hängen sich an die Message und werden mit dieser freigegeben.
(falls man die Message freigibt)

Zitat:

Delphi-Quellcode:

// Das macht man ja eigentlich nicht, keine Exception-Behandlung

Vorallem da man so nicht mehr rausbekommt, was genau schief lief.
Ein billiger Boolean sagt ja nichts Genaueres. (eine Exceptions dagegen schon mehr)


Dein Programm kann dem User so ja nur sagen "nee, ging nicht" aber nicht "ging nicht, weil ...".


Wobei Indy diesen ContentType auch selber setzt.

text/plain = Textmail ohne anhang
multipart/alternative = z.B. Text und HTML parallel
multipart/mixed = Anhänge mit Text und/oder HTML

Zitat:

// Das fehlte hier noch !!!

Um wieviel wollen wir wetten, daß sich dort ein paar Globale Variablen versteckten?

[Sir Rufo]

Zitat:

Zitat von himitsu (Beitrag 1139588)

Zitat:

// Das fehlte hier noch !!!

Um wieviel wollen wir wetten, daß sich dort ein paar Globale Variablen versteckten?

;) die scheinen wieder in Mode zu kommen ;)

[Gustav.R]

Nur so aus dem OFF reingeplärrt:

CC ist wohl das neue BCC der Superheimlich-Multi-Geheimagenten?