lifeofguenter

' Anonymise "Received" header on outgoing emails
Sub OnAcceptMessage(oClient, oMessage)
	' Only delete received headers from own clients/submissions
	If Len(oClient.Username) > 0 Then
		Dim oHeaders
		set oHeaders = oMessage.Headers

		Dim i
		For i = oHeaders.Count -1 To 0 Step -1