Vba 将约会转换为电子邮件并发送

我正在尝试将传入的约会消息转换为电子邮件并发送

Public子转换MeetingToEmail（ActiveFolder，收件箱为字符串）
将myNamespace设置为Outlook.NameSpace
将myFolder设置为Outlook.Folder
将子文件夹设置为Outlook.Folder
将项目变暗为对象
将myMtg暗显为Outlook.MeetingItem
Dim objMsg作为邮件项
设置objMsg=Application.CreateItem（olMailItem）
设置myNamespace=Application.GetNamespace（“MAPI”）
设置myFolder=myNamespace.Folders（ActiveFolder）
设置文件夹=myFolder.Folders
设置子文件夹=文件夹。项目（收件箱）
对于子文件夹中的每个项。项
如果Item.MessageClass=“IPM.Schedule.Meeting.Request”，则
'将约会转换为电子邮件并转发消息
“它的Sudo代码不起作用
objMsg.To=”example@emp.com"
objMsg.Subject=Item.Subject
objMsg.Body=Item.Body
发送
如果结束
下一个
端接头

从约会和主题中复制正文并发送到其他电子邮件地址非常重要

我不能转达这个约会。我必须把它转换成电子邮件

更新

我添加了一行代码，它可以工作：

Set myMtg = Item

objMsg.To = "example@emp.com"
objMsg.Subject = myMtg.Subject
objMsg.Body = myMtg.Body
objMsg.Send

---

如果要将现有会议项目作为常规电子邮件发送，则需要将属性设置为

IPM。注意

首先。

MessageClass

属性将项目链接到它所基于的表单。选择某个项目后，Outlook将使用message类定位表单并显示其属性，例如

Reply

命令。然后可以将对象强制转换为

MailItem

类，并调用Send方法（当然，在指定收件人之后）

---

在另一侧，

MeetingItem

类的方法对项目执行

Forward

操作，并将结果副本作为MeetingItem对象返回。因此，基本上会返回一个新的

MeetingItem

对象，该对象表示新的会议项目，可以发送。

正如我所说的，我在VBA和编程方面都是新手。你能给出一个基于我上面代码的例子吗？你的目标是什么？是否要转发会议项目或发送由邮件项目表示的报告？我将转发会议，但不作为会议项目。假设会议电子邮件有日期、时间、收件人等-我将获取所有这些元数据，并将其作为平面电子邮件转发到另一个电子邮件地址，该数据作为电子邮件bodyCall

forward

，然后在返回的项目上将

MessageClass

属性设置为

IPM。注意

，并将其强制转换为邮件项目对象。维奥拉，你现在可以打电话给

Send

。