导航:
论坛 -> 网络通讯
斑竹:liumazi,sephil
作者:
2007/9/6 12:23:28
标题:
高手指教,用IDSMTP发送HTML格式邮件,带附件时不正常(邮件容显示HTML代码)急在线等
浏览:2474
加入我的收藏
楼主:
Msg.Clear; Msg.Body.Clear; Msg.CCList.Clear; iFjCount:=lvFjList.Items.Count -1; //if iFjCount>-1 then //begin // Msg.ContentType :='multipart/mixed'; // end; msg.From.Text:=trim(frmmenulist.EmailAddress.Caption); msg.ReplyTo.EMailAddresses:=e_smtpUses; Msg.Recipients.EMailAddresses :=trim(toMail.text); Msg.Subject := Trim(Sobject.text); //主题 Msg.Priority := TIdMessagePriority(Jedit.ItemIndex); //邮件级别 if trim(cSEdit.Text)<>'' then begin // Msg.CCList.EMailAddresses:=_strCclist; msg.CCList.EMailAddresses:=Trim(cSEdit.text);//抄送; end else strCCList:='' ; If remail.text<>'' Then //需要已读回执 Msg.ReceiptRecipient.Address := trim(remail.text);//用户邮箱地址 Msg.ContentType :='text/html'; Msg.CharSet:='gb2312'; iFjCount:=lvFjList.Items.Count -1; Msg.Body.Append((mmHtmlEdit.DocumentHTML)); For i:=0 to iFjCount do//附件 Begin sFileName := lvFjList.Items[i].SubItems[0]; If FileExists(sFileName) Then Begin //Msg.References := ChangeFileExt(ExtractFileName(sFileName), ''); TIdAttachment.Create(Msg.MessageParts,sFileName) ; // TIdAttachment.Create(Msg.MessageParts,lvFjList.Items[i].SubItems[0]); End; end;
----------------------------------------------
-
作者:
2007/9/6 12:59:21
1楼:
问题已解决.
----------------------------------------------
-
作者:
2008/1/10 12:22:13
2楼:
怎么解决的
----------------------------------------------
环境发射点
作者:
2018/11/2 8:51:23
3楼:
怎么解决的?
----------------------------------------------
-