各位帮忙看看,邮件发送提示成功却查不到! ( 积分: 20 )

procedure TForm1.BitBtn1Click(Sender: TObject);
var
my_message:TIdMessage;
begin
try
IdSMTP1.Connect();
except
showmessage('连接邮件服务器失败!');
exit;
end;
//开始发送
try
my_message:=TIdMessage.Create(application);
try
my_message.Body.Add('发送邮件,哈哈');
my_message.Headers.Add('发送邮件');
my_message.Subject:='发送邮件';
my_message.From.Address:='xinhuirong@163.com';
my_message.From.Name:='发送邮件';
my_message.From.Text:='xinhuirong@163.com';
my_message.Recipients.EMailAddresses:='xinhuirong@163.com';
IdSMTP1.SendMsg(my_message);
except
showmessage('send fail!');
exit;
end;
finally
my_message.Free;
end;
showmessage('send success!');
end;
程序运行提示"'send success",但打开邮箱并没有到收到邮件,不知是代码哪里有问题!!
host:smtp.163.com

procedure TForm1.BitBtn1Click(Sender: TObject);
var
my_message:TIdMessage;
begin
try
IdSMTP1.Connect();
except
showmessage('连接邮件服务器失败!');
exit;
end;
//开始发送
try
my_message:=TIdMessage.Create(application);
try
my_message.Body.Add('发送邮件,哈哈');
my_message.Headers.Add('发送邮件');
my_message.Subject:='发送邮件';
my_message.From.Address:='xinhuirong@163.com';
my_message.From.Name:='发送邮件';
my_message.From.Text:='xinhuirong@163.com';
my_message.Recipients.EMailAddresses:='xinhuirong@163.com';
IdSMTP1.SendMsg(my_message);
except
showmessage('send fail!');
exit;
end;
finally
my_message.Free;
end;
showmessage('send success!');
end;
程序运行提示"'send success",但打开邮箱并没有到收到邮件,不知是代码哪里有问题!!
host:smtp.163.com

顶!!

那是还没收到,这个总要有个时间的吧,就想你写封信,你写完了,投到邮局了,那么是不是方就立即可以收到了,他们总是将这些信件拿出来,最后统筹安排一下(内部可能还有其他事情要做),然后分配到各个地区,再一一交到收信人手上............
发是发,收是收,这是两个工作方式

TO ddzhouqian:
昨天晚上发的,今天还是没收到!是不是我上面的代码有问题,帮我看看!