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

Z Motława
 
(Nie pokazano 9 pośrednich wersji utworzonych przez tego samego użytkownika)
Linia 1: Linia 1:
 
{{PracaWre}}
 
{{PracaWre}}
  
−
 
+
uses JMailUtils;
−
<source lang=pascal>
+
−
uses JMailUtils;
+
  
 
   TMailSenderParams(ApplicationMailSender.SenderParams).ClearInits;  // <-- wyczyść bufor
 
   TMailSenderParams(ApplicationMailSender.SenderParams).ClearInits;  // <-- wyczyść bufor
−
   TMailSenderParams(ApplicationMailSender.SenderParams).INDY_SMTP_Mode := 'ORG;';  // <-- ASK; - wybor konta nadawczego, ORG; narzuca konto organizacji (do sprawdzenia)
+
   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_Subject := 'TEST maila!';  // <-- temat maila
 
   TMailSenderParams(ApplicationMailSender.SenderParams).Init_BodyText := 'TO OPIS maila'; // <-- treść maila
 
   TMailSenderParams(ApplicationMailSender.SenderParams).Init_BodyText := 'TO OPIS maila'; // <-- treść maila
−
  TMailSenderParams(ApplicationMailSender.SenderParams).AddGUID_ADDr_O_G_K_A('');
 
 
   TMailSenderParams(ApplicationMailSender.SenderParams).Init_Attach := ''; // <-- ścieżki do plików oddzielone ;
 
   TMailSenderParams(ApplicationMailSender.SenderParams).Init_Attach := ''; // <-- ścieżki do plików oddzielone ;
−
   TMailSenderParams(ApplicationMailSender.SenderParams).GUI_SendDlg := False;
+
   TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:SendAddrMode|SendAddrMode]] := sam_N_Mail_1_Addr;
−
  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).[[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).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).UseBCC := False; // <-- używaj ukrytej kopi wysyłanego maila
+
   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
−
  TMailSenderParams(ApplicationMailSender.SenderParams).UseProgressDlg := False;
+
−
  TMailSenderParams(ApplicationMailSender.SenderParams).GUI_SubjectBodyDlg := False; // <-- pokaż edycję tematu i treści przed wysłaniem
+
−
 
+
−
  TMailSenderParams(ApplicationMailSender.SenderParams).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);
 
  ApplicationMailSender.SendMail_INDY(aErr);
−
</source>
+
 
  
  
Linia 36: Linia 34:
 
* [[Code:INDY_SMTP_Mode|INDY_SMTP_Mode]] - wybor adresu nadawcy (firmowe konta...)
 
* [[Code:INDY_SMTP_Mode|INDY_SMTP_Mode]] - wybor adresu nadawcy (firmowe konta...)
 
* [[Code:SendAddrMode|SendAddrMode]]
 
* [[Code:SendAddrMode|SendAddrMode]]
 +
* [[Code:SendINDYQualifier_GUID|SendINDYQualifier_GUID]]
 
* [[Code:AddGUID_ADDr_O_G_K_A|AddGUID_ADDr_O_G_K_A]]
 
* [[Code:AddGUID_ADDr_O_G_K_A|AddGUID_ADDr_O_G_K_A]]
−
 
+
* [[Code:ModeAddr|ModeAddr]]
  
  
 
[[Kategoria: Programowanie|Procedura wysyłki maila po nowemu]]
 
[[Kategoria: Programowanie|Procedura wysyłki maila po nowemu]]
 
[[Kategoria: MotlawaTech|Procedura wysyłki maila po nowemu]]
 
[[Kategoria: MotlawaTech|Procedura wysyłki maila po nowemu]]

Aktualna wersja na dzień 13:39, 17 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;   // <-- wyczyść bufor
 TMailSenderParams(ApplicationMailSender.SenderParams).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).SendAddrMode := sam_N_Mail_1_Addr;
 
 // TMailSenderParams(ApplicationMailSender.SenderParams).ModeAddr := 'K'; //K bo szukamy kontrahenta a nie G jako grupy w crm
 // TMailSenderParams(ApplicationMailSender.SenderParams).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).GUI_SubjectBodyDlg := False; // <-- pokaż edycję tematu i treści przed wysłaniem

 TMailSenderParams(ApplicationMailSender.SenderParams).Addr_Recipients := 'adres@odbiorcy';

 TMailSenderParams(ApplicationMailSender.SenderParams).UseBCC := False; // <-- używaj ukrytej kopi wysyłanego maila
 TMailSenderParams(ApplicationMailSender.SenderParams).UseProgressDlg := False;

 TMailSenderParams(ApplicationMailSender.SenderParams).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://wikii.int.com.pl/index.php?title=Code:Procedura_wysyłki_maila_po_nowemu&oldid=9306”