Emailabsender aus Datenbankdaten einfügen

[manfred_h]

Besten dank für Eure Hilfe

hier noch der code:

Delphi-Quellcode:

procedure Tfrm_email.btn_sendClick(Sender: TObject);
begin
  JvMail1.Clear;
  JvMail1.Recipient.AddRecipient(ToEdit.Text);
  if CcEdit.Text <> '' then JvMail1.CarbonCopy.AddRecipient(CcEdit.Text);
  if BcEdit.Text <> '' then JvMail1.BlindCopy.AddRecipient(BcEdit.Text);
  if cb_serialmail.Text = 'all Member' then
    begin
      DM.Member_Mail.first;
      while not DM.Member_Mail.EOF do
        begin
          JvMail1.BlindCopy.AddRecipient(DM.Member_Mail.FieldByName('EMAIL_MEMBER_G').AsString);
          DM.Member_Mail.Next;
        end;
      end;
  JvMail1.Subject := SubjectEdit.Text;
  JvMail1.Body.Text := BodyEdit.Text;
  JvMail1.Attachment.Assign(AttachmentMemo.Lines);
  JvMail1.SendMail;
end;

besten dank
Manfred