我想知道在Outlook 2010中是否有可能自动检测收件人地址并相应地更改签名?这只是一个一般性的问题。
我曾经有同样的问题,但到目前为止还没有找到答案。作为一个很好的解决方案,我成功地使用了这里提供的解决方案:https://superuser.com/a/228633/74819。最终,您可以在工具栏上获得一个按钮,允许您创建一个新消息,其中包括指定的收件人和预定义的正文内容(包括签名)。
现在,我实际上认为这种方法比我所寻找的更好,因为它更可预测。如果签名(因此是邮件正文)基于收件人列表而更改,那么您将失去对文本的控制。此外,使用自己的工具,您可以设置不止一个签名。
您是在寻找设置来实现此功能,还是愿意使用宏?如果您愿意使用宏,请参考下面的内容,并回复您可能遇到的问题。
Public WithEvents goInspectors As Outlook.Inspectors
Public WithEvents myMailItem As Outlook.MailItem
Private Sub Application_Startup()
Initialize_Inspector
End Sub
Private Sub Initialize_Inspector()
Set goInspectors = Outlook.Application.Inspectors
End Sub
Private Sub goInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.currentItem.Class = olMail Then
Set myMailItem = Inspector.currentItem
End If
End Sub
Private Sub myMailItem_PropertyChange(ByVal Name As String)
'The variable below should be modified for your situation.
'If you are in an Exchange environment, then you can use "last name, firstname"(caps-sensitive).
'If the the recipient is not in Outlook's address list, use "person@email.com"
customSignatureFor = "Lastname, Firstname"
'Use vbCrLf to account for enter/returns
oldSignature = "Respectfully," & vbCrLf & vbCrLf & "Phillip"
newSignature = "v/r," & vbcrlf & "Phil"
If Name = "To" Then
For i = 1 To myMailItem.Recipients.count
If InStr(myMailItem.Recipients(i), customSignatureFor) > 0 Then
tempstring = Replace(myMailItem.Body, oldSignature, newSignature)
myMailItem.Body = tempstring
End If
Next
End If
End Sub
oldSignature
以等于预先制作的“标准”签名中的文本即可。如果不清楚,请发布一个显示签名的空白电子邮件截图,我可以提供帮助。 - phillip3196772