Add header to forward mail

Hi all,

Could anybody help me with this problem:

I want to add an extra header item when forwarding emails to another SMTP server.

I have tried with this, but it doesn’t work:

Session.ConvertMIME = False

Set mime = notesitem.CreateMIMEEntity

Set header = mime.createHeader(“ExtraField”)

Call header.SetHeaderVal(“PACK”)

Session.ConvertMIME = True

Have also tried to just add a notesitem, but again without luck.

Set notesitem = New NotesItem (doc, “$extra_field”,session.UserName)

Hope that somebody know the answer