| NMSMTP1->Connect(); NMSMTP1->PostMessageA->FromName=Name1->Text; NMSMTP1->PostMessageA->FromAddress=″superlink@yeah.net″; NMSMTP1->PostMessageA->ToAddress->Add(Address1->Text); NMSMTP1->PostMessageA->Subject=Subject1->Text; NMSMTP1->PostMessageA->Body->Add(Body1->Text); NMSMTP1->PostMessageA->LocalProgram=″SendMail″; NMSMTP1->SendMail(); Application->MessageBoxA(″发送完成!″,″邮件系统″,MB_OK); NMSMTP1->Disconnect(); |