如何用宏表达“将答复发送给”这个功能

07241 · 发表于 2012-5-14 18:24

如题，在我使用vba发送邮件时，如何写“将答复发送给”这一句？

谢谢！

dsd999 · 发表于 2012-5-15 09:13

没看明白，能再详细的说说吗。

07241 · 发表于 2012-5-15 12:07

本帖最后由 07241 于 2012-5-15 12:32 编辑

我用outlook发信的时候，点击选项-延迟发送，有一个选项叫做“把答复发送给”。比如我是A，发邮件给B，把答复发送给设为c@111.com，那么B在收到我的邮件后，如果点击回复，收件人就不是A而是c@111.com了，我想在用vba的.to 和.cc发送邮件时，也实现此功能，不知应当如何写？

谢谢！

dsd999 · 发表于 2012-5-16 09:56

.ReplyRecipients

你先试试。

07241 · 发表于 2012-5-16 13:23

不成功，答复的邮箱，还是原先的发件人

dsd999 · 发表于 2012-5-17 09:16

Sub replyTo()

Dim myItem As mailItem
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
myItem.Subject = "test reply3"
myItem.To = "a@sohu.com"

myItem.ReplyRecipients.add ("dsd999@sohu.com")
myItem.Send

End Sub

07241 · 发表于 2012-10-4 19:57

6楼版主，这么写确实通过了，但如果邮箱地址是变量怎么办？myItem.ReplyRecipients.add (range("a1"))这么写好像通不过啊

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