Code:Procedura wysyłki maila po nowemu: Różnice pomiędzy wersjami
Z Motława
Linia 3: | Linia 3: | ||
<source lang=pascal> | <source lang=pascal> | ||
− | + | 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). | + | 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'; | ||
+ | |||
ApplicationMailSender.SendMail_INDY(aErr); | ApplicationMailSender.SendMail_INDY(aErr); | ||
</source> | </source> | ||
[[Kategoria: Programowanie]] | [[Kategoria: Programowanie]] |
Wersja z 10:10, 15 maj 2009
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ć |
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'; ApplicationMailSender.SendMail_INDY(aErr);