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 ..
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