Code:Procedura wysyłki maila po nowemu: Różnice pomiędzy wersjami

Z Motława
Linia 21: Linia 21:
 
   TMailSenderParams(ApplicationMailSender.SenderParams).UseProgressDlg := False;
 
   TMailSenderParams(ApplicationMailSender.SenderParams).UseProgressDlg := False;
 
   TMailSenderParams(ApplicationMailSender.SenderParams).GUI_SubjectBodyDlg := False;
 
   TMailSenderParams(ApplicationMailSender.SenderParams).GUI_SubjectBodyDlg := False;
 +
 +
  TMailSenderParams(ApplicationMailSender.SenderParams).GetCallDataForMail(DS.DataSet.fieldbyname('GUID').asString,'ST'); // pobierz z calla info o temacie i tresci maila domyslnej oraz czy pokazywac okno edycji
  
  

Wersja z 07:58, 3 lis 2010

Inprogress.png
 Ten artykuł jest w trakcie tworzenia, nie wszystkie odnośniki mogą działać poprawnie lub być rozwinięte
Możesz nam pomóc przy rozbudowie dokumentacji systemu - zobacz jak możesz tego dokonać 



uses JMailUtils;
 
  TMailSenderParams(ApplicationMailSender.SenderParams).ClearInits;
  TMailSenderParams(ApplicationMailSender.SenderParams).INDY_SMTP_Mode := 'ORG;';
  TMailSenderParams(ApplicationMailSender.SenderParams).Init_Subject := 'TEST maila!';
  TMailSenderParams(ApplicationMailSender.SenderParams).Init_BodyText := 'TO OPIS maila';
  TMailSenderParams(ApplicationMailSender.SenderParams).AddGUID_ADDr_O_G_K_A('');
  TMailSenderParams(ApplicationMailSender.SenderParams).Init_Attach := '';
  TMailSenderParams(ApplicationMailSender.SenderParams).GUI_SendDlg := False;
  TMailSenderParams(ApplicationMailSender.SenderParams).SendAddrMode := sam_N_Mail_1_Addr;
  TMailSenderParams(ApplicationMailSender.SenderParams).GUI_AddrDlg := False;
///  TMailSenderParams(ApplicationMailSender.SenderParams).ModeAddr := 'K';//K bo szukamy kontrahenta a nie G jako grupy w crm
  TMailSenderParams(ApplicationMailSender.SenderParams).Addr_Recipients := 'adres@odbiorcy';
 
 
  TMailSenderParams(ApplicationMailSender.SenderParams).UseBCC := False;
  TMailSenderParams(ApplicationMailSender.SenderParams).UseProgressDlg := False;
  TMailSenderParams(ApplicationMailSender.SenderParams).GUI_SubjectBodyDlg := False;
 
  TMailSenderParams(ApplicationMailSender.SenderParams).GetCallDataForMail(DS.DataSet.fieldbyname('GUID').asString,'ST'); // pobierz z calla info o temacie i tresci maila domyslnej oraz czy pokazywac okno edycji
 
 
 
 ApplicationMailSender.SendMail_INDY(aErr);


Legenda:

Źródło „https://wiki.int.com.pl/index.php?title=Code:Procedura_wysyłki_maila_po_nowemu&oldid=9264”