(急问题,在线等)dsmtp发邮件的问题:如果内容有附件,和有HTML格式,经常收件方只能收到附件或html(给出完整能用代码的给分,分不够再加啊) ( 积分:

  • 主题发起人 主题发起人 pxingplay
  • 开始时间 开始时间
P

pxingplay

Unregistered / Unconfirmed
GUEST, unregistred user!
(急问题,在线等)dsmtp发邮件的问题:如果内容有附件,和有HTML格式,经常收件方只能收到附件或html(给出完整能用代码的给分,分不够再加啊) ( 积分: 100 )<br />用idsmtp发邮件的问题:如果内容有附件,和有HTML格式,经常收件方只能收到附件或html
,不能都显示,急啊 如果是发文本格式的则邮件内容显示为空的?
给出完整能用代码的给分,分不够再加啊(kwodkwod@126.com)
代码如下

procedure Tbxsyoujianfrm2.bsendClick(Sender: TObject);
begin
inherited;
with IdMsgSend do
begin
ContentType := 'text/html';
Body.Assign(editor.Lines);
From.Text :=susr_mail;
ReplyTo.EMailAddresses := susr_mail;
Recipients.EMailAddresses := edtTo.Text; { To: header }
Subject := edtSubject.Text; { Subject: header }
Priority := TIdMessagePriority(3); { Message Priority }
ReceiptRecipient.Text :=susr_mail;
end;
SmtpAuthType:=1;
case SmtpAuthType of
0: SMTP.AuthenticationType := atNone;
1: SMTP.AuthenticationType := atLogin; {Simple Login}
end;
SMTP.Username := susr_mailname;
SMTP.Password := susr_mailPassword;

{General setup}
SMTP.Host := susr_mailsmtp;
SMTP.Port :=25;

{now we send the message}
SMTP.Connect;
try
SMTP.Send(IdMsgSend);
finally
SMTP.Disconnect;
end;
saveyj;
Application.MessageBox(
'成功发送邮件!',
'ERP-k CRM',
MB_OK + MB_iconinformation);


end;
 
用idsmtp发邮件的问题:如果内容有附件,和有HTML格式,经常收件方只能收到附件或html
,不能都显示,急啊 如果是发文本格式的则邮件内容显示为空的?
给出完整能用代码的给分,分不够再加啊(kwodkwod@126.com)
代码如下

procedure Tbxsyoujianfrm2.bsendClick(Sender: TObject);
begin
inherited;
with IdMsgSend do
begin
ContentType := 'text/html';
Body.Assign(editor.Lines);
From.Text :=susr_mail;
ReplyTo.EMailAddresses := susr_mail;
Recipients.EMailAddresses := edtTo.Text; { To: header }
Subject := edtSubject.Text; { Subject: header }
Priority := TIdMessagePriority(3); { Message Priority }
ReceiptRecipient.Text :=susr_mail;
end;
SmtpAuthType:=1;
case SmtpAuthType of
0: SMTP.AuthenticationType := atNone;
1: SMTP.AuthenticationType := atLogin; {Simple Login}
end;
SMTP.Username := susr_mailname;
SMTP.Password := susr_mailPassword;

{General setup}
SMTP.Host := susr_mailsmtp;
SMTP.Port :=25;

{now we send the message}
SMTP.Connect;
try
SMTP.Send(IdMsgSend);
finally
SMTP.Disconnect;
end;
saveyj;
Application.MessageBox(
'成功发送邮件!',
'ERP-k CRM',
MB_OK + MB_iconinformation);


end;
 
大富翁高手哪里去了,???郁闷啊
 
散分啦,顶者有分
 
不是这样的吧,我做的带附件,每次都可以的呀!
 
你再试一试如果不行明天给你贴我的代码!
 
TO: fxh7622
你能不能贴出你的代码,我这个代码试有时不行,好像不稳定。
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
811
import
I
后退
顶部