如何自动运行缺省的邮件程序去检查或提取新邮件??(10分)

如何自动运行缺省的邮件程序去检查或提取新邮件??

取注册表吧，同志哥，给你看一个控件中的代码，至于要取的是mail,news,Contacts,
Calendar还是Internet Call你自己看着办吧
function TEmbeddedWB.OpenClient(Client: string): Boolean;
var
s, params, Exec: string;
begin
Result := FALSE;
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software/Clients/' + Client, FALSE);
S := ReadString('');
CloseKey;
OpenKey('Software/Clients/' + Client + '/' + S + '/shell/open/command', FALSE);
S := ReadString('');
CloseKey;
if S <> '' then begin
{ if Pos('/', S) > 0 then begin
Exec := system.Copy(S, 1, Pos('/', S) - 2);
Params := system.Copy(s, Length(exec) + 1, length(S));
end else begin
Exec := S;
Params := '';
end;
Result := TRUE;
shellExecute(handle, 'open', Pchar(Exec), pChar(Params), '', SW_SHOW);
}
winexec(PChar(s),SW_SHOW);
Result:=True;
end;
finally
Free;
end;
end;

运行是可以的，但你要求“检查或提取新邮件”这就有点困难了，除非你的邮件客户端
程序是可以用参数来控制自动收取邮件的，要不你就去学ｖｂａ来控制ｏｕｔｌｏｏｋ吧。

何不自己写个邮件客户端程序通过IMAP或POP3协议去收取
邮件呢？

如果能自己写一个好的邮件客户端的话，那去写邮件客户端算了，还写别的干嘛？
肯定是怎么所谓的ｏａ系统之类的要用到。