隐藏“;“发送”;Outlook 2013中的按钮
我有Outlook插件,在用户点击“发送”按钮后打开弹出窗口。在此窗口中,用户选择电子邮件发件人。因此,我使用“ItemSend”事件,如果我在该事件中更改“SendOnRepresentation”属性,Outlook就会覆盖我的更改,所以我应该在“ItemSend”之前执行该操作。我在“ItemSend”之前只找到一个事件,它是“BeforeCheckNames”,但我无法使用它,因为弹出窗口打开了很多次。所以我的最后一个想法可能是,我可以隐藏标准按钮“发送”并放置发送电子邮件的按钮,这样我就可以进行更改,然后说email.Send()。我发现以前有人问过这个问题,但没有答案。也许你有什么想法?谢谢您的帮助否,无法隐藏“发送”按钮。为什么不在功能区中添加一个组合框,让用户在发送前指定发件人?只要用户从组合框中选择一个值,就可以设置SendOnRepresentation 否,无法隐藏发送按钮。为什么不在功能区中添加一个组合框,让用户在发送前指定发件人?只要用户从组合框中选择一个值,就可以设置SendOnRepresentation 否,无法隐藏发送按钮。为什么不在功能区中添加一个组合框,让用户在发送前指定发件人?只要用户从组合框中选择一个值,就可以设置SendOnRepresentation 否,无法隐藏发送按钮。为什么不在功能区中添加一个组合框,让用户在发送前指定发件人?只要用户从组合框中选择一个值,就可以设置SendOnRepresentation 或者,您可以修改ItemSend代码。SentOnBehalfOfName将粘贴到复制的项隐藏“;“发送”;Outlook 2013中的按钮,outlook,outlook-addin,Outlook,Outlook Addin,我有Outlook插件,在用户点击“发送”按钮后打开弹出窗口。在此窗口中,用户选择电子邮件发件人。因此,我使用“ItemSend”事件,如果我在该事件中更改“SendOnRepresentation”属性,Outlook就会覆盖我的更改,所以我应该在“ItemSend”之前执行该操作。我在“ItemSend”之前只找到一个事件,它是“BeforeCheckNames”,但我无法使用它,因为弹出窗口打开了很多次。所以我的最后一个想法可能是,我可以隐藏标准按钮“发送”并放置发送电子邮件的按钮,这样我
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim copiedItem As MailItem
If Item.Class = olMail Then
Set copiedItem = Item.Copy
copiedItem.SentOnBehalfOfName = "someone@someplace.com"
'copiedItem.Display
copiedItem.Send
Item.Delete
Cancel = True
End If
Set copiedItem = Nothing
End Sub
或者,您可以修改您的ItemSend代码。SentOnBehalfOfName将粘贴到复制的项
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim copiedItem As MailItem
If Item.Class = olMail Then
Set copiedItem = Item.Copy
copiedItem.SentOnBehalfOfName = "someone@someplace.com"
'copiedItem.Display
copiedItem.Send
Item.Delete
Cancel = True
End If
Set copiedItem = Nothing
End Sub
或者,您可以修改您的ItemSend代码。SentOnBehalfOfName将粘贴到复制的项
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim copiedItem As MailItem
If Item.Class = olMail Then
Set copiedItem = Item.Copy
copiedItem.SentOnBehalfOfName = "someone@someplace.com"
'copiedItem.Display
copiedItem.Send
Item.Delete
Cancel = True
End If
Set copiedItem = Nothing
End Sub
或者,您可以修改您的ItemSend代码。SentOnBehalfOfName将粘贴到复制的项
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim copiedItem As MailItem
If Item.Class = olMail Then
Set copiedItem = Item.Copy
copiedItem.SentOnBehalfOfName = "someone@someplace.com"
'copiedItem.Display
copiedItem.Send
Item.Delete
Cancel = True
End If
Set copiedItem = Nothing
End Sub
另一种选择是使用替换或替换所有允许完全替换标准表单的表单区域类型
- 替换-将表单区域添加为新页面,以替换Outlook表单的默认页面
- 全部替换-将整个Outlook表单替换为表单区域
有关更多信息,请参阅。另一个选项是使用替换或替换所有允许完全替换标准表单的表单区域类型
- 替换-将表单区域添加为新页面,以替换Outlook表单的默认页面
- 全部替换-将整个Outlook表单替换为表单区域
有关更多信息,请参阅。另一个选项是使用替换或替换所有允许完全替换标准表单的表单区域类型
- 替换-将表单区域添加为新页面,以替换Outlook表单的默认页面
- 全部替换-将整个Outlook表单替换为表单区域
有关更多信息,请参阅。另一个选项是使用替换或替换所有允许完全替换标准表单的表单区域类型
- 替换-将表单区域添加为新页面,以替换Outlook表单的默认页面
- 全部替换-将整个Outlook表单替换为表单区域
有关详细信息,请参阅。将递归调用ItemSend事件处理程序。。。每次调用Send方法时,基本上我们需要首先检查属性值。只有当它没有任何值时,我们才能设置它。@Eugene。如果有递归,但对我来说不是递归的。ItemSend事件处理程序将被递归调用。。。每次调用Send方法时,基本上我们需要首先检查属性值。只有当它没有任何值时,我们才能设置它。@Eugene。如果有递归,但对我来说不是递归的。ItemSend事件处理程序将被递归调用。。。每次调用Send方法时,基本上我们需要首先检查属性值。只有当它没有任何值时,我们才能设置它。@Eugene。如果有递归,但对我来说不是递归的。ItemSend事件处理程序将被递归调用。。。每次调用Send方法时,基本上我们需要首先检查属性值。只有当它没有任何值时,我们才能设置它。@Eugene。如果有递归,但对我来说不是递归的。