Code:Procedura wysyłki maila po nowemu
Z Motława
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).[[Code:AddGUID_ADDr_O_G_K_A|AddGUID_ADDr_O_G_K_A]](''); 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).GUI_AddrDlg := False; // TMailSenderParams(ApplicationMailSender.SenderParams).[[Code:ModeAddr|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; // <-- używaj ukrytej kopi wysyłanego maila 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);
Legenda:
- INDY_SMTP_Mode - wybor adresu nadawcy (firmowe konta...)
- SendAddrMode
- SendINDYQualifier_GUID
- AddGUID_ADDr_O_G_K_A
- ModeAddr