客服电话
APP下载
迪恩网络APP
随时随地掌握行业动态
官方微信
扫描二维码
关注迪恩网络微信公众号
var
html: TIdText;
begin
if not SMTP.Connected then
SMTP.Disconnect();
try
SMTP.Connect;
try
if SMTP.Authenticate then //验证
begin
EMessage.Recipients.EMailAddresses := FUser;
EMessage.ClearBody;//清空正文
html:= TIdText.Create(EMessage.MessageParts);
EMessage.Subject:='Nest MAC Traceability Report';
html.ContentType := 'text/html;charset=gb2312';
html.ContentTransfer := '7bit';
EMessage.ContentType := 'multipart/alternative';
html.Body.Add('Dear Sir:');
html.Body.Add('');
html.Body.Add('Mac address Status');
html.Body.Add('<html>');
html.Body.Add('<head>');
html.Body.Add('<meta http-equiv="Content-Type" content="textml; charset=big5">');
html.Body.Add('<meta name="GENERATOR" content="Microsoft FrontPage 4.0">');
html.Body.Add('<meta name="ProgId" content="FrontPage.Editor.Document">');
html.Body.Add('<title>Nest MAC Traceability Report</title>');
html.Body.Add('<body>');
html.Body.Add('<table>');
html.Body.Add('<tr>Date : </tr>');
html.Body.Add('<tr>');
html.Body.Add('<table bordercolorlight="black" width="50%" border="3" bordercolor="black" cellspacing="0" >');
html.Body.Add('<tr bgcolor="#31C4F5" align="Center">');
html.Body.Add('<td width="500">Image</td>');
html.Body.Add('<td width="500">Releasing date</td>');
html.Body.Add('<td width="700">Total released Qty</td>');
html.Body.Add('<td width="1000">Cumulative Consumed Qty</td>');
html.Body.Add('<td width="500">Leftover Qty</td>');
html.Body.Add('<td width="700">Cumulative scrap Qty</td>');
html.Body.Add('</tr>');
html.Body.Add('<tr>');
html.Body.Add('</tr>');
html.Body.Add('</table>');
html.Body.Add('</tr>');
html.Body.Add('</table>');
html.Body.Add('</body>');
html.Body.Add('<ml>');
EMessage.From.Address := SMTP.Username;//发送人
EMessage.From.Name := '彭工';
if FileExists(FAttacFile) then
begin
AttachmentFile := TIdAttachmentFile.Create(EMessage.MessageParts, FAttacFile);
AttachmentFile.ContentType := 'text/plain';
end;
SMTP.Send(EMessage);
end;
finally
FreeAndNil(html);
FreeAndNil(EMessage);
if Assigned(AttachmentFile) then
FreeAndNil(AttachmentFile);
SMTP.Disconnect();
end;
except ON E: Exception do
raise Exception.Create(E.Message);
end;
end;
|
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
六六分期app的软件客服如何联系？不知道吗？加qq群【895510560】即可！标题：六六分期
今天小编告诉大家如何处理win10系统火狐flash插件总是崩溃的问题，可能很多用户都不知
今天小编告诉大家如何对win10系统删除桌面回收站图标进行设置，可能很多用户都不知道
今天小编告诉大家如何对win10系统电脑设置节能降温的设置方法，想必大家都遇到过需要
我们在使用xp系统的过程中,经常需要对xp系统无线网络安装向导设置进行设置，可能很多
今天小编告诉大家如何处理win7系统玩cf老是与主机连接不稳定的问题，可能很多用户都不
电脑对日常生活的重要性小编就不多说了，可是一旦碰到win7系统设置cf烟雾头的问题，很
我们在日常使用电脑的时候，有的小伙伴们可能在打开应用的时候会遇见提示应用程序无法
今天小编告诉大家如何对win7系统打开vcf文件进行设置，可能很多用户都不知道怎么对win
今天小编告诉大家如何对win10系统s4开启USB调试模式进行设置，可能很多用户都不知道怎
请发表评论