Outlook Macro更改/编辑发件人姓名的显示

Question

Outlook-我已将ost文件转换为pst。 但是转换器将发件人名称更改为- 名， 即姓氏和方括号后没有空格。

我系统中的常规电子邮件在姓氏和<之间有空格。 如-姓。 我需要一个宏来更改/编辑带有空格的发件人姓名。因为我找不到重复的电子邮件。

请帮我。我也是宏编程的新手。

Answer 1

MailItem.SenderName属性是只读的，因此您必须使用PropertyAccessor.SetProperty来更改PR_SENT_REPRESENTING_NAME_W MAPI属性：

Dim objEmail As Outlook.MailItem
Dim objPA As Outlook.PropertyAccessor

Set objEmail = ActiveInspector.CurrentItem
Set objPA = objEmail.PropertyAccessor
'PR_SENT_REPRESENTING_NAME_W
'http://schemas.microsoft.com/mapi/proptag/0x0042001F
objPA.SetProperty "http://schemas.microsoft.com/mapi/proptag/0x0042001F", "Stack Overflow Rocks!"
objEmail.Save