Problem beim Kopieren von Headern

[PeterMIME]

Ich habe Probleme, wenn ich die Header von einer NotesMIMIEntity in eine andere kopieren möchte.

Code

		oMIMEheaders = oSrcMime.Headerobjects
		ForAll h In oMIMEheaders
			Set oMIMEheader = oDstMime.CreateHeader( h.HeaderName )
			If oMIMEheader Is Nothing Then
				' Ausgabe
			Else	
				Call oMIMEheader.SetHeaderVal( h.GetHeaderVal( ))
			End If			
		End ForAll

Bei einer Vielzahl von Mails funktioniert dies, bloß beim List-Unsubscribe-Header kann CreateHeader nicht durchgeführt werden. Es wird Nothing zurückgeliefert. Folgendes ist der Inhalt des ursprünglichen Headers:

Header: List-Unsubscribe
Value: <http://yyy.xxx.com/i/unsubscribe/hdh3vfe5bp5vdmozs5ihyzzn7u4iwtze2ykdcansp767fvptvk3a>,<mailto:unsubscribe-hdh3vfe5bp5vdmozs5ihyzzn7u4iwtze2ykdcansp767fvptvk3a@yyy.xxx.com?subject=unsubscribe>

Irgendwie scheint Notes nicht damit zurechtzukommen. Im Voraus vielen Dank für eure Hilfe!