Delphi中server面板的问题

[Somehang]

我应用Server面板中的outlookApplication时，运行程序时出现未注册类别， 是怎么回事？
哪位仁兄知道如何用此控件导入和生成outlook文件吗？？？


如能解答，不胜感激，100分相谢

[lovend]

帮你顶

[TechnoFantasy]

你的机器上装了Outlook吗？

[longtusoft]

Component->Install Activex Component

[Somehang]

是的，错误提示 是因为没装outlook。。


另外，哪位仁兄对操作outLook比较熟悉呀，帮助给一段代码吧

[redmoon_line]

你的机器没装Outlook吧

[Somehang]

没装，是这个问题？？？

[TechnoFantasy]

没有装的话是没法调用的.

[aiirii]

http://www.dsdt.info/tipps/?id=608

create a new Outlook contact item?
{
Dieser Tip arbeitet mit D5/D6 und mit Outlook 2000 oder Outlook 98
This Tip works with D5/D6, with Outlook 2000 or Outlook 98
}

{$IFDEF SYN_COMPILER_6}
uses
ComObj, Outlook2000;
{$ELSE}
uses
ComObj, Outlook8;
{$ENDIF}

procedure NewContactItem;
var
OutlApp: OutlookApplication;
OutlNamespace: Namespace;
ContactFolder: MAPIFolder;
Contact: ContactItem;
begin
OutlApp := CoOutlookApplication.Create;
OutlNamespace := OutlApp.GetNameSpace('MAPI');
ContactFolder := OutlNamespace.GetDefaultFolder(olFolderContacts);
Contact := OutlApp.createitem(olContactItem) as ContactItem;
Contact.LastName := 'User';
Contact.FirstName := 'Jack';
Contact.HomeAddressStreet := 'Street';
Contact.HomeAddressCountry := 'Germany';
Contact.HomeAddressPostalCode := '12345';
Contact.HomeAddressCity := 'City';
Contact.HomeTelephoneNumber := '+49(0)1239/23903';
Contact.HomeFaxNumber := '+49(0)1239/23904';
Contact.Email1Address := '[e-mail]';
Contact.Save;
OutlApp := nil;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
NewContactItem;
end;

[Somehang]

楼上的aiirii()兄弟的代码真的不错，这个增加的例子很好。


我想再问一下：
就是我有其它格式的数据 想转化（保存）为 Wab格式的或其它的例如cvs的，应怎么做呀？走过的
路过的兄弟帮忙呀

[Somehang]

顶上去