db yani paradox yapıda veri tabanını nasıl taşırım...

[mcetin_58]

programın oluşturduğu a.db ve a.px dosayaları ben internet aracığılıyla kullanıcıya taşıttırıcam...mail adresini gir ve hangi kayıt arası diye seçenek ten seçim yapacak...onları belirtilen maile gönderecek...mailden de aynı şekilde upload edecek...yardımlarınızı bekliyorum...

[fahrettin]

açıkcası ne yapmak istediğinizi anlayamadım.

Daha açık izah ederseniz sevinirim...

Kolay gelsin.....

[DotCom]

@mcetin_58

Anladığım kadarı ile paradox bir vt var ve bu deki a isimli table daki filter işleminden sonra dilediğin kayıtları dileğidin mail adresine göndermek istiyorsun.

Eğer filtreleme işleminde bir problem yaşamıyorsan sonucu benim tahminim. INDY ile yapabilirsin sonucu mail olarak yollayabilirsin....

Forumda Bir Arama yaptım ve @CengRecep isimli arkadaşımızın bir örneği var...

Kod: Tümünü seç

function TForm1.SendMails(const Subject, Body, FileName, 
                  SenderName, SenderEMail, 
                  RecipientName, RecipientEMail: string): Integer; 
var 
  Message: TMapiMessage; 
  lpSender, lpRecipient: TMapiRecipDesc; 
  FileAttach: TMapiFileDesc; 

  SM: TFNMapiSendMail; 
  MAPIModule: HModule; 
begin 
  FillChar(Message, SizeOf(Message), 0); 
  with Message do 
    begin 
      if (Subject <> '') then lpszSubject := PChar(Subject); 
      if (Body <> '') then lpszNoteText := PChar(Body); 
      if (SenderEmail <> '') then 
         begin 
           lpSender.ulRecipClass := MAPI_ORIG; 
           if (SenderName = '') then lpSender.lpszName := PChar(SenderEMail) 
                                else lpSender.lpszName := PChar(SenderName); 
           lpSender.lpszAddress := PChar(SenderEmail); 
           lpSender.ulReserved := 0; 
           lpSender.ulEIDSize := 0; 
           lpSender.lpEntryID := nil; 
           lpOriginator := @lpSender; 
         end; 
      if (RecipientEmail <> '') then 
         begin 
           lpRecipient.ulRecipClass := MAPI_TO; 
           if (RecipientName = '') then lpRecipient.lpszName := PChar(RecipientEMail) 
                                   else lpRecipient.lpszName := PChar(RecipientName); 
           lpRecipient.lpszAddress := PChar(RecipientEmail); 
           lpRecipient.ulReserved := 0; 
           lpRecipient.ulEIDSize := 0; 
           lpRecipient.lpEntryID := nil; 
           nRecipCount := 1; 
           lpRecips := @lpRecipient; 
         end 
         else lpRecips := nil; 

      if (FileName = '') then 
         begin 
           nFileCount := 0; 
           lpFiles := nil; 
         end 
       else 
         begin 
           FillChar(FileAttach, SizeOf(FileAttach), 0); 
           FileAttach.nPosition := Cardinal($FFFFFFFF); 
           FileAttach.lpszPathName := PChar(FileName); 
           nFileCount := 1; 
           lpFiles := @FileAttach; 
         end; 
   end; //with Message do 

  MAPIModule := LoadLibrary(PChar(MAPIDLL)); 
  if MAPIModule = 0 then 
     Result := -1 
  else 
    try 
      @SM := GetProcAddress(MAPIModule, 'MAPISendMail'); 
      if @SM <> nil then 
         begin                                          //MAPI_DIALOG or 
           Result := SM(0, Application.Handle, Message, MAPI_LOGON_UI, 0); 
         end 
      else 
          Result := 1; 
    finally 
      FreeLibrary(MAPIModule); 
    end; //try 
  if Result <> 0 then 
     MessageDlg('Mesaj gönderilemedi (' + IntToStr(Result) + ').',mtError, [mbOK], 0) 
  else 
     ListBox1.Items.Add(RecipientEMail + ' : Başarılı oldu'); 
  Update; 
end; 

Kullanımı :

SendMails('Deneme amaçlı maildir', Memo1.Text, '', '', 'duyuru@a.com', '', s@s.com);

Bu şekilde SendMails Function u ile Memo içine filtrelediğin değerleri istediğin kişiye gönderebilmem mümkün...

Fakat !

Gelen mailler arasından kayıtları table ına alman konusunda benim kafam baya karıştı. O konuda açıkçası bir fikrim yok.

Kolay Gelsin...