[求助]我想在OUTLOOK打印联系人，怎么样才实现？

xuanhf · 发表于 2006-2-11 16:23

[求助]我想在OUTLOOK打印联系人，在选按电话目录打印的时候，想把部门、单位和电子邮件也打出来，怎么样才实现？

Kevin · 发表于 2006-2-12 11:01

Outlook的联系人打印是所见即所得的，你的视图里面包含的项目，都会被打印出来！

vsvs619 · 发表于 2006-2-13 11:09

是啊，不知道你想要什么格式的

hxzy · 发表于 2006-2-13 15:21

视图里面包含的项目，都会被打印出来！

xuanhf · 发表于 2006-2-13 17:17

视图里没有包含电子邮件，但我也打印出来，有没有好办法啊？

osramchina · 发表于 2006-2-18 10:55

'在ＥＸＣＥＬ　ＶＢＡ里，如在outlook里要修改

Sub zxj()
Dim i, n, m(), Om, Oo
Set Oo = CreateObject("Outlook.Application")
Set Om = Oo.GetNamespace("MAPI").GetDefaultFolder(10).Items
n = Om.Count
ReDim m(n)
For i = 1 To n
m(i - 1) = Om.Item(i).email1address

'查ContactItem属性，你要的都在里面
Sheets("sheet1").Cells(i, 1) = Om.Item(i).email1address
Sheets("sheet1").Cells(i, 2) = Om.Item(i).CompanyAndFullName
Next i
End Sub

xuanhf · 发表于 2006-11-11 09:02

我不太懂VBA，版主能手把手教一下吗？

[此贴子已经被作者于2006-11-11 9:16:26编辑过]

xuanhf · 发表于 2006-11-11 09:11

我想版主误会我的意思了，我是想要这样的打印格式

[此贴子已经被作者于2006-11-11 9:15:55编辑过]

		自动登录	找回密码
密码			免费注册