Code:Procedura wysyłki maila po nowemu: Różnice pomiędzy wersjami
Z Motława
| (Nie pokazano 7 pośrednich wersji utworzonych przez tego samego użytkownika) | |||
| Linia 1: | Linia 1: | ||
{{PracaWre}} | {{PracaWre}} | ||
| − | + | uses JMailUtils; | |
| − | + | ||
| − | 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.... zobacz legenda | + | 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).Init_Attach := ''; // <-- ścieżki do plików oddzielone ; | TMailSenderParams(ApplicationMailSender.SenderParams).Init_Attach := ''; // <-- ścieżki do plików oddzielone ; | ||
| − | TMailSenderParams(ApplicationMailSender.SenderParams). | + | TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:SendAddrMode|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).[[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). | + | 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); | ApplicationMailSender.SendMail_INDY(aErr); | ||
| − | + | ||
| Linia 38: | Linia 36: | ||
* [[Code:SendINDYQualifier_GUID|SendINDYQualifier_GUID]] | * [[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
 |
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:
- INDY_SMTP_Mode - wybor adresu nadawcy (firmowe konta...)
- SendAddrMode
- SendINDYQualifier_GUID
- AddGUID_ADDr_O_G_K_A
- ModeAddr
