用Indy9發(fā)送郵件是件很方便的事,用IdSMTP控件和IdMessage控件結(jié)合起來(lái)就能輕而易舉辦到。首先在窗體上放一個(gè)IdMessage,這個(gè)控件是郵件主體,其中必須填的屬性有4個(gè):
idmsg1.Body.Assign(mmo1.Lines);//郵件內(nèi)容主體
idmsg1.From.Address := ‘XXX@1XXX.com‘;//郵件從那里發(fā)來(lái)的,就是用來(lái)發(fā)郵件的地址
idmsg1.Recipients.EMailAddresses := XXX;//發(fā)給誰(shuí)
idmsg1.Subject := edt2.Text;//主題;
只要填好這4個(gè)屬性,然后再結(jié)合IdSMTP就能順暢得發(fā)送郵件。