求助！如何将收的邮件自动以另一帐号转发出去？

zxsong · 发表于 2004-6-25 22:37

求助各位。我在单位上的机子用outlook会自动收取internet上的邮件，也能用规则向导将所有邮件分发至各个部门的邮箱中，但想让机子达到无人值守而转发到各部门的内部邮箱中去，自动转发功能不能自动切换成以内部邮箱的账号来发送，在此，请教一下各位朋友，有什么办法来实现这一设想呢？谢谢各位了。

zxsong · 发表于 2004-6-27 23:37

我尽快下一个来装上看看。

zxsong · 发表于 2004-6-28 11:12

我装上了ol203，规则只能用于收件人的帐号选择，不能用于发件时的帐号。

再请教一下，能否通过编程用vb来实现？谢谢了！

zxsong · 发表于 2004-6-28 21:40

版主，你好，

由于我每天都要收大量的外部邮箱的邮件，并要求要第一时间转发给相关内部局域网的用户，本身有邮件病毒防火墙，问题不太，重要的是我一外出邮件无法转发，就会误事，至于ol2003不能用，我可以重新装回ol2000，但寻求一种vb编程的方式能实现这种方式就行了，谢谢！

zxsong · 发表于 2004-6-29 22:09

非常感谢你的指点，我这就试一试，谢谢！

但好象有一点小问题，在代码中如何切换到我的局域网邮箱帐号，如何以我的内部邮箱来转发，在代码中好象没有指定？

[此贴子已经被作者于2004-6-29 22:13:09编辑过]

zxsong · 发表于 2004-6-30 15:24

版主你好，关键就是在这里了。因为我默认设置的就是外部邮箱的账号，这样才能自动随时接收新邮件，根据过滤器，相关的关键词自动转发（自动切换至内部邮箱的账号后）至局域网的内部邮箱中，否则的话，我用自动转发功能就解决了，不用使用vba了。再次感谢！

loadhigh · 发表于 2004-7-2 12:29

zxsong:你好！

不存在这样的问题，我这里的outlook上的信箱就有内部和外部的两种。即使是设置内部邮箱为默认的也不存在outlook不去检查外部信箱内有无新邮件的情况。

loadhigh · 发表于 2004-6-30 05:20

zxsong:你好！

你可以将局域网中的信箱设定为默认。

loadhigh · 发表于 2004-6-29 13:04

zxsong:你好！

既然是这样的话，那就请参考如下的代码：

代码的说明：

这里是利用outlook的newmail事件。代码的功能是当新的邮件来了以后，将所有的新邮件（未读）发送到指定的信箱中去，这里你可以在此基础上按不同的分类加入代码，完成分发到不同的信箱的功能。这里我提供的源代码是将所有的新邮件发送到我的信箱中去，请注意修改。

Private Sub Application_NewMail()

Dim mymailitem As MailItem Set mymailitem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast '获取最后一封邮件 Do mymailitem.Forward '转发 mymailitem.To = "loadhigh@21cn.com" '转发的目的邮箱是本人的信箱，这里你可以修改成你需要转发的地址 mymailitem.Send '发送 Set mymailitem = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Items.GetLast '获取下一个邮件 Loop Until mymailitem.UnRead = False '直到所有未读邮件被转发完为止，这里条件还可以在细化些。 End Sub

loadhigh · 发表于 2004-6-28 21:05

zxsong：你好！

vba方法制作的宏在ol2k3上运行起来可能不方便。因为，ol2k3会提醒有程序试图发送邮件，需要操作的人确认该操作，主要是为了防止病毒的考虑。只有在ol2k里才可以，但是就不能控制邮件病毒的传播。因此建议你在仔细的考虑一下这样做是否会对整个局域网络内的机器可能带来不安全。

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