Code:Procedura wysyłki maila po nowemu

Z Motława
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;   // <-- wyczyść bufor
  TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:INDY_SMTP_Mode|INDY_SMTP_Mode]] := 'ORG;';  // <-- ASK; - wybor konta nadawczego, ORG; narzuca konto organizacji.... zobacz legenda
  TMailSenderParams(ApplicationMailSender.SenderParams).Init_Subject := 'TEST maila!';  // <-- temat maila
  TMailSenderParams(ApplicationMailSender.SenderParams).Init_BodyText := 'TO OPIS maila'; // <-- treść maila
  TMailSenderParams(ApplicationMailSender.SenderParams).Init_Attach := ''; // <-- ścieżki do plików oddzielone ;
  TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:SendAddrMode|SendAddrMode]] := sam_N_Mail_1_Addr;
 
  // TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:ModeAddr|ModeAddr]] := 'K'; //K bo szukamy kontrahenta a nie G jako grupy w crm
  // TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:AddGUID_ADDr_O_G_K_A|AddGUID_ADDr_O_G_K_A]]('GUID');
 
  TMailSenderParams(ApplicationMailSender.SenderParams).GUI_AddrDlg := False; // <-- Włącza wybór maili odbiorców
  TMailSenderParams(ApplicationMailSender.SenderParams).GUI_SendDlg := False; // <--  Informacja o wysłaniu w formie okienka "Wysłano"
  TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:GUI_SubjectBodyDlg|GUI_SubjectBodyDlg]] := False; // <-- pokaż edycję tematu i treści przed wysłaniem
 
  TMailSenderParams(ApplicationMailSender.SenderParams).Addr_Recipients := 'adres@odbiorcy';
 
  TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:UseBCC (mail)|UseBCC]] := False; // <-- używaj ukrytej kopi wysyłanego maila
  TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:UseProgressDlg|UseProgressDlg]] := False;
 
  TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:GetCallDataForMail|GetCallDataForMail]](DS.DataSet.fieldbyname('GUID').asString,'ATTR'); // pobierz z calla info o temacie i tresci maila domyslnej oraz czy pokazywac okno edycji, ATTR to np. numer typu dokumentu
 
 
 
 ApplicationMailSender.SendMail_INDY(aErr);


Legenda:

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