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).Addr_Recipients := 'mail@odbiorcy'; | TMailSenderParams(ApplicationMailSender.SenderParams).Addr_Recipients := 'mail@odbiorcy'; | ||
TMailSenderParams(ApplicationMailSender.SenderParams).Init_SenderEMail := 'mail@nadawcy'; | TMailSenderParams(ApplicationMailSender.SenderParams).Init_SenderEMail := 'mail@nadawcy'; |
Wersja z 09:58, 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).Addr_Recipients := 'mail@odbiorcy'; TMailSenderParams(ApplicationMailSender.SenderParams).Init_SenderEMail := 'mail@nadawcy'; ApplicationMailSender.SendMail_INDY(aErr);