Sub Initialize(oInfoCenter, key)
 
  Set oBar = oInfoCenter.GetCommandBar("MessageEditor/Standard")
 
  oBar.Insert 4, "X-Feld", key, "ablage.ico", "OnTest", true 

End Sub 



sub OnTest(oInfoCenter, oEditor)

  Set oBar = oEditor.CommandBars("MessageEditor/Standard")

  Set oButton = oBar.GetButton("X-Feld")

  if oButton.Pressed = false then

   oButton.Pressed = true

   oEditor.Item.Options.SMTPFields = "X-Test: Irgendetwas"

  else

   oButton.Pressed = false

   oEditor.Item.Options.SMTPFields = ""

  end if

end Sub

Der Service Layer unterstützt zusätzlich den neuen Befehl SMTPFIELD. Damit lässt sich dies automatisiert per FileScan machen, bzw. Systemweit oder Benutzerbezogen per Includes.

Beispiel: @@SMTPFIELD X-Test1: 1@@ @@SMTPFIELD X-Test2: 2@@