将标题从一个NotesMIMEEntity复制到另一个时遇到问题。
oMIMEheaders = oSrcMime.Headerobjects
ForAll h In oMIMEheaders
Set oMIMEheader = oDstMime.CreateHeader( h.HeaderName )
If oMIMEheader Is Nothing Then
' Output
Else
Call oMIMEheader.SetHeaderVal( h.GetHeaderVal( ))
End If
End ForAll
此代码成功处理了许多邮件。但是CreateHeader无法处理标头List-Unsubscribe,它返回Nothing。
Header: List-Unsubscribe
Value: <http://yyy.xxx.com/i/unsubscribe/hdh3vfe5bp5vdmozs5ihyzzn7u4iwtze2ykdcansp767fvptvk3a>,<mailto:unsubscribe-hdh3vfe5bp5vdmozs5ihyzzn7u4iwtze2ykdcansp767fvptvk3a@yyy.xxx.com?subject=unsubscribe>
IBM Notes无法以某种方式处理该标头。感谢您的帮助!