Y
yeszhang
Unregistered / Unconfirmed
GUEST, unregistred user!
此代码发送后收不到:
mmo2.Text:='z阿瑟毒发';
with IdMsgSend do
begin
ContentType:='text/html';
Body.Assign(mmo2.Lines);
From.Text :='13818851887@163.com';
ReplyTo.EMailAddresses :='13818851887@163.com';
Recipients.EMailAddresses :='13818851887@163.com';
Subject := 'zz阿瑟毒发';
Priority := TIdMessagePriority(2);//Normal
ReceiptRecipient.Text := '';
end;
SMTP.AuthenticationType := atLogin;
SMTP.Username := AqEmailPars.SmtpServerUser;
SMTP.Password := AqEmailPars.SmtpServerPassword;
SMTP.Host := AqEmailPars.SmtpServerName;
SMTP.Port := AqEmailPars.SmtpServerPort;
SMTP.Connect;//通过
try
SMTP.Send(IdMsgSend);//通过
finally
SMTP.Disconnect;
end;
发送很正常,也能成功.但就是收不到邮件
把mmo2.Text:='asdfasdf'; 和 Subject := 'zsdfsdfsaf';后却能很正常收到?? 怎么办?
mmo2.Text:='z阿瑟毒发';
with IdMsgSend do
begin
ContentType:='text/html';
Body.Assign(mmo2.Lines);
From.Text :='13818851887@163.com';
ReplyTo.EMailAddresses :='13818851887@163.com';
Recipients.EMailAddresses :='13818851887@163.com';
Subject := 'zz阿瑟毒发';
Priority := TIdMessagePriority(2);//Normal
ReceiptRecipient.Text := '';
end;
SMTP.AuthenticationType := atLogin;
SMTP.Username := AqEmailPars.SmtpServerUser;
SMTP.Password := AqEmailPars.SmtpServerPassword;
SMTP.Host := AqEmailPars.SmtpServerName;
SMTP.Port := AqEmailPars.SmtpServerPort;
SMTP.Connect;//通过
try
SMTP.Send(IdMsgSend);//通过
finally
SMTP.Disconnect;
end;
发送很正常,也能成功.但就是收不到邮件
把mmo2.Text:='asdfasdf'; 和 Subject := 'zsdfsdfsaf';后却能很正常收到?? 怎么办?