Emailabsender aus Datenbankdaten einfügen

[manfred_h]

Hallo zusammen

seit einiger Zeit versuche ich mit JvMail eine Maillösung für meine Anwendung zu "erstellen".
Bei den Jedi-Demos existiert ja das Demo für Jvmail das auch gut funktioniert.
Jetzt möchte ich aber diemöglichkeit haben dass die Daten für eine Serienmail aus der DB kommen.
Dazu habe ich eine Tabelle ( genauer View ) erstellt in dem nur die Emailadressen stehen.
Eine Combobox habe ich auch noch auf mein Form gepackt damit ich zwischen mehreren Sourcen wählen kann.
Leider stehe ich ein wenig auf dem schlauch .. :gruebel: könnte mir jeman einen Tipp geben?

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.ItemIndex <> 'all Member' then JvMail1.BlindCopy.AddRecipient(
      DM.Member_Mail.first;
        for i := 1 to DM.Member_Mail.RecordCount do
        begin
          (DM.Member_Mail.FieldByName(('EMAIL_MEMBER_G')+',').AsString);
          DM.Member_Mail.Next;
//        end;
  );
  JvMail1.Subject := SubjectEdit.Text;
  JvMail1.Body.Text := BodyEdit.Text;
  JvMail1.Attachment.Assign(AttachmentMemo.Lines);
  JvMail1.SendMail;
end;

Manfred

[s-off]

Hallo,

muss der Operator nicht '=' lauten, wenn Du alle einfügen möchtest?

Delphi-Quellcode:

if cb_serialmail.ItemIndex = '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;

[Mackhack]

Und hier:

Delphi-Quellcode:

for i := 1 to DM.Member_Mail.RecordCount do

Sollte das net

Delphi-Quellcode:

for I := 0 To DM.Member_Mail.RecordCount - 1 do

heissen?

[manfred_h]

Danke schon mal werde es anpassen :)

Manfred

[manfred_h]

Besten dank für Eure Hilfe :wink:

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

[s-off]

Bitte bitte,

aber hast Du jetzt auch Separatoren zwischen den einzelnen Adressen im BCC?

[manfred_h]

Zitat:

Zitat von s-off

Bitte bitte,

aber hast Du jetzt auch Separatoren zwischen den einzelnen Adressen im BCC?

Nein noch nicht :oops:
werde dass noch anpassen... danke für den Hinweis

Manfred