在outlook中的itemsend例程中从userform传输变量

时间:2016-10-24 03:24:13

标签: vba input outlook-vba userform

目前,我在发送和发送电子邮件时运行了一个例程。

代码的目的是每当我发送电子邮件给B时自动CC组织A中的人。那就是说,我有一个带有单选按钮的用户表单,组织A中有4个人,所以我可以选择它们作为CCd当我发送电子邮件。

当我点击发送时,我可以打开用户窗体,并根据我点击用户窗体的按钮为变量分配正确的值。

但是,一旦我单击确定userform子例程,我就无法将此值传回itemsend例程。以下是代码:

来自userform

Private Sub CommandButton1_Click()

            Dim strBcc As String
            If option1.Value = True Then
            strBcc = "xxx@xxxx.com"
            End If
End Sub
Set frm = New userfrm
            frm.show

从项目发送:

Set frm = New userfrm
            frm.show

一旦告诉itemsend显示我的userform,我该如何将该输入传回itemsend例程?

2 个答案:

答案 0 :(得分:0)

将在项目上设置属性。您应该可以使用MailItem.PropertyAccessor.GetProperty访问它。要查看实际的DASL属性名称,请使用OutlookSpy查看“已发送邮件”文件夹中的项目 - 单击“IMessage”按钮,选择相关属性,查看“DASL”编辑框。

答案 1 :(得分:0)

在CommandButton1_Click中隐藏表单。没有其他代码。

在ItemSend

FROM base/arch

# <omitted>

RUN /bin/cp -f /etc/trusted-key.key /etc/unbound/
CMD ["/usr/bin/unbound", "-d"]