大讨论:如何去掉outlook的提示的问题，求助高守！！！！ (100分)

偶在用delphi编程实现自动接收电子邮件，并把邮件内容（包括附件指WORD文件）
写入数据库时，老出现“有一个程序正试图访问保存于outlook电子邮件地址，
是否允许该操作？”提示，烦烦烦....
请教如何去掉outlook的上述提示？求助高守！！！！

或者求教 用程序摸拟键盘按键的方式来自动处理上述提示的过程，
按键过程：Shift+TAB,Shift+TAB,空格,TAB,TAB,RETURN
注意，提示问题的窗口和程序的窗口不一样，如何把摸拟键盘命令发送到提示信息的窗口....

现在的问题是，OutLook如何知道不是它自己在“访问OutLook电子邮件地址”的？
靠反查Owner？还是不是通过你的实现方式？

你本身是要如何实现这个功能的？
可否考虑通过VBA代码来实现？

procedure TForm1.Button1Click(Sender: TObject);
var
Email: _MailItem;
i,j,num_email:integer;
pxlevariant;
fn:string;
begin

outlook.Connect;
NmSpace.ConnectTo(outlook.GetNamespace('MAPI'));
MAPIFolders := NmSpace.getdefaultfolder(olFolderInbox) as MAPIFolder;
num_email:= MAPIFolders.Items.Count;
if num_email < 1 then exit;
// MAPIFolders.items.Sort('接收时间',olDescending);
// MAPIFolders.Display ;


for i:=1 to num_email do
begin
Email := MAPIFolders.items.item(i) as _MailItem;
memo1.Lines.Add (datetimetostr(email.ReceivedTime)) ;

memo1.Lines.Add (email.sendername); //读取发件人，加入此句就会出现上述问题提示
memo1.Lines.Add (email.Subject);
memo1.Lines.Add ('');
memo1.Lines.Add (email.body);
memo1.Lines.Add ('');
memo1.Lines.Add ('');
for j:=1 to email.Attachments.Count do
begin
fn:=email.Attachments.Item(j).FileName;
fn:=ExtractFileExt(fn);
fn:=uppercase(fn);
if UpperCase(ExtractFileExt(fn))='.DOC' then
begin
email.Attachments.Item(j).SaveAsFile('C:/AAA.DOC');

end;
end;

end;

end;

看了一下代码，确实是使用Com访问出提示的。
你似乎真的可以考虑使用VBA来完成，当然VBA需要数字签名才能够正常使用。
估计那样不会出现提示

偶在用delphi编程实现自动接收电子邮件，并把邮件内容（包括附件指WORD文件）
写入数据库时，老出现“有一个程序正试图访问保存于outlook电子邮件地址，
是否允许该操作？”提示，烦烦烦....

求教 用程序摸拟键盘按键的方式来自动处理上述提示的过程，
按键过程：Shift+TAB,Shift+TAB,空格,TAB,TAB,RETURN
注意，提示问题的窗口和程序的窗口不一样，如何把摸拟键盘命令发送到提示信息的窗口....

谢谢yzhshi,你要多少芬? 能否继续....

分到无所谓，关键俺是不特别清楚你的具体需求。
1、为什么必须使用Outlook进行收email呢？
2、为什么必须死死抓住Delphi呢，在VBA中来实现，然后使用Delphi控制VBA不也是一个比较不错的方法吗？
3、模拟按键消除提示是一个办法，但是绝对不是好办法，而且一般不应该采用，除非万不得已。

up.............