This topic has been archived. It cannot be replied.
-
工作学习 / 专业技术讨论 / 如何把一个folder里的email的"from"and "subject"按时间顺序导出到文件里?写报告要把一个项目往来邮件列出来，邮件内容不需要，有日期发信人和标题就可以了。我用outlook和mozilla谢
-llrm(小陳);
2005-8-2
(#2429342@0)
-
这个容易,刚花了几分,学习了一下,就会写了.Dim ns As NameSpace
Dim Inbox As MAPIFolder
Set ns = GetNamespace("MAPI")
Set Inbox = ns.GetDefaultFolder(olFolderInbox)
If Inbox.Items.Count > 0 Then
For Each Item In Inbox.Items
Subject = Item.Subject
From = Item.SenderName
Debug.Print Subject + " @ " + From
Next Item
Else
MsgBox "There is no message in the box."
End If
-canadiantire(轮胎-M.I.N.K.);
2005-8-2
{443}
(#2429383@0)
-
挖，编程序啊，这太高深了。这VB码在哪里运行？在IE上吗？怎么操作？刚才给你戴帽穿靴
<html>
<script LANGUAGE="VBScript">
<--
。。。。。。。
-->
</script>
</html>
加载到IE，未遂，别骂我土。
-llrm(小陳);
2005-8-2
{136}
(#2429427@0)
-
我啥也没说。
-canadiantire(轮胎-M.I.N.K.);
2005-8-2
{865}
(#2429437@0)
-
谢谢大侠啦，是我没说清楚，我是outlook express，没有那个菜单，公司又不让装软件。这个已经存盘，准备找一个没有control的机器试试。。。
-llrm(小陳);
2005-8-2
(#2429446@0)
-
惨。
-canadiantire(轮胎-M.I.N.K.);
2005-8-2
(#2429453@0)
-
do you have ms word? run it in any VB or VBA software.
-iwantcar(EnjoyStudying);
2005-8-3
(#2430714@0)
-
未遂。Compile error: User-defined type not defined @ "Dim ns as NameSpace" 非Outlook 不行:<
-llrm(小陳);
2005-8-3
(#2430780@0)
-
I did similar thing in Ms Access. Keep trying.
-iwantcar(EnjoyStudying);
2005-8-3
(#2431008@0)
-
I write the code myself. It is not difficult. I feel lazy to find the source code. Do some homework yourself. please. Your task is rather easy.
-iwantcar(EnjoyStudying);
2005-8-3
(#2431012@0)
-
向大家汇报一下。中午skip午饭，装outlook2003,试轮胎大侠的代码，几经周折，成功了：把Outbox folder下project folder里的信标题打出来了。最后代码见内，修改原因表问我，不改不转，另外
-llrm(小陳);
2005-8-3
{855}
(#2431112@0)
-
GOOD.
-iwantcar(EnjoyStudying);
2005-8-7
(#2438910@0)
-
COOL
-weiweiwoo(summer);
2005-8-11
(#2445209@0)
-
再给你一个不错的ref
-canadiantire(轮胎-M.I.N.K.);
2005-8-2
(#2429387@0)
-
放弃，the configuration of this system prevents installing applications, please contact your system administrator....我还是1笔1笔的敲吧，也就几百疯信件。。。
-llrm(小陳);
2005-8-2
(#2429432@0)
-
渥太华工作的朋友们在哪里按摩?
-vega_lee(天津包子-就不改);
2005-8-2
(#2429422@0)
-
NO知道，对不起，我们公司1楼就有physio诊所，你进步来 :( chinatown和bells corners看见过有，没去过不好推荐。
-llrm(小陳);
2005-8-2
(#2429438@0)
-
有现成程序，可以导出outlookexpress所有邮件
-foolzz(foolzz);
2005-8-2
(#2429781@0)
-
C++ source code? 挖，望码兴叹。谢谢anyway
-llrm(小陳);
2005-8-3
(#2430699@0)