【正文】 t1: TEdit。 Edit2: TEdit。 Edit3: TEdit。 Edit4: TEdit。 Edit5: TEdit。 Edit6: TEdit。 Edit7: TEdit。 Edit8: TEdit。 Edit9: TEdit。 Memo1: TMemo。 Button1: TButton。 Button2: TButton。 OpenDialog1: TOpenDialog。 Image1: TImage。 Label10: TLabel。 Label13: TLabel。 Label14: TLabel。 Label15: TLabel。 Label16: TLabel。 Label17: TLabel。 Label18: TLabel。 Label19: TLabel。 Label20: TLabel。 Label21: TLabel。 Image2: TImage。 Image3: TImage。 Label1: TLabel。 Label2: TLabel。 Label3: TLabel。 Label4: TLabel。 Label6: TLabel。 Label7: TLabel。 Label9: TLabel。 Label8: TLabel。 Label11: TLabel。 Image4: TImage。 TabSheet3: TTabSheet。 Image5: TImage。 Label22: TLabel。 Label23: TLabel。 Label24: TLabel。 Label25: TLabel。 Button3: TButton。 Label12: TLabel。 procedure BTN_CONNECTClick(Sender: TObject)。 procedure BTN_DISCONNECTClick(Sender: TObject)。 procedure BTN_REFRESHClick(Sender: TObject)。 procedure BTN_MESSAGEClick(Sender: TObject)。 procedure BTN_DELETEClick(Sender: TObject)。 procedure Button1Click(Sender: TObject)。 procedure Button2Click(Sender: TObject)。 procedure Button3Click(Sender: TObject)。 private { Private declarations } Total_REC : Integer。 public { Public declarations } end。Function SendMSN(Topic: string。 //主題 Content: string。 //內(nèi)容 MailAddr: string。 //收件人地址 CCMailAddr: string。 //抄送地址 AttachFiles: string。 //附件 SmtpMailName: string。//發(fā)件人 SmtpServer: string。 //發(fā)件服務(wù)器 SmtpUser: string。 //發(fā)件帳戶 SmtpPass: string。 //發(fā)件密碼 SmtpPort: string = 39。2539。 //端口 TestMail: Boolean =true):Boolean。Stdcall。 external 39。39。var Form1: TForm1。implementation{$R *.dfm}procedure (Sender: TObject)。begin :=。 :=StrToInt ()。 :=。 :=。 。 end。procedure (Sender: TObject)。begin 。end。procedure (Sender: TObject)。Var I, CNT, SIZE : Integer。begin Total_REC := 0。 For I := 0 to 1 do [I].Clear。 CNT := 。 SIZE := div 1024。 :=39。共有 39。+INTTOSTR (CNT) +39。封信，39。+INTTOSTR(SIZE)+39。KB39。 [0, 0] :=39。編號(hào)39。 [1, 0] :=39。信件主題39。 IF CNT 0 THEN BEGIN FOR I :=1 TO CNT DO BEGIN 。 。 (I, Msg)。 [0, I] :=INTTOSTR(I)。 [1, I] :=。 END。 END ELSE BEGIN SHOWMESSAGE(39。目前沒(méi)有新郵件39。)。 END。end。procedure (Sender: TObject)。VAR I : INTEGER。 li: TlistItem。begin。 。 。 ( , Msg)。 := 。 := 。 := DATETOSTR()。 :=。 FOR I := 0 TO DO BEGIN if ([I] is TIdAttachment) then BEGIN // 附件信息 li := 。 := 8。 := TidAttachment([I]).FileName。 (TIdAttachment([I]).ContentType)。 END ELSE BEGIN //文字信息 IF [I] is TIdText then BEGIN 。 (TIdText([I]).Body)。 END。 END。 END。 end。procedure (Sender: TObject)。begin()。end。procedure (Sender: TObject)。beginif () then :=。end。procedure (Sender: TObject)。beginSendMSN(, ,,)。end。procedure (Sender: TObject)。begin。end。end.附錄B：服務(wù)器端口設(shè)置：協(xié)議 使用 純文本或加密會(huì)話 僅限純文本 僅限加密會(huì)話POP3 接收郵件 110 995IMAP4 接收郵件 143 993SMTP 外寄郵件 25 （非官方）465MSA 傳出郵件 587 HTTP 郵局 80 443附錄C：常用電子郵箱服務(wù)器地址：gmail()POP3服務(wù)器地址:（SSL啟用 端口：995）SMTP服務(wù)器地址:（SSL啟用 端口：587）: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25） : POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:SMTP服務(wù)器地址:: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）Foxmail：POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）sinaVIP POP3服務(wù)器: （端口：110）SMTP服務(wù)器: （端口：25）: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:SMTP服務(wù)器地址:: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:（端口：995）SMTP服務(wù)器地址:（端口：587）雅虎郵箱POP3的SSL不啟用端口為110，POP3的SSL啟用端口995；SMTP的SSL不啟用端口為25，SMTP的SSL啟用端口為465郵箱 POP3服務(wù)器地址：（端口：110） SMTP服務(wù)器地址： （端口：25） SMTP服務(wù)器需要身份驗(yàn)證126郵箱 POP3服務(wù)器地址:（端口：110） SMTP服務(wù)器地址:（端口：25） : POP3服務(wù)器地址:（端口：110） SMTP服務(wù)器地址:（端口：25） 139郵箱POP3服務(wù)器地址：（端口：110）SMTP服務(wù)器地址：(端口：25)共 35 頁(yè) 第 37