ricevute di ritorno

Ragazzi ho un problemino con il blocco delle ricevute di ritorno.
In queryopen nel form memo ho questo script:

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As
Variant, Continue As Variant)

	If Not isnewdoc Then
		Dim ThisDoc As notesdocument
		Dim EvitaCopiaValue As String, EvitaCopiaField As String,
ReturnReceiptValue As String, ReturnReceiptField As String

		Set ThisDoc = source.document

		If ThisDoc.HasItem( "$KeepPrivate" ) = True Then
			EvitaCopiaValue = ThisDoc.GetFirstItem( "$KeepPrivate" ).values(0)

			If EvitaCopiaValue = "1" Then
				resp% =  Msgbox ("Doc protetto da copia, inoltro e stampa," &
Chr(10)_
				& "vuoi disattivare protezione ?", 36, "Attn")

				If resp% = 6 Then
					Call ThisDoc.RemoveItem( "$KeepPrivate" )
					Call ThisDoc.save (True, False, True)
				End If
			End If
		End If

		If ThisDoc.HasItem( "ReturnReceipt" ) = True Then
			ReturnReceiptValue ThisDoc.GetFirstItem( "ReturnReceipt" ).values(0)

			If ReturnReceiptValue = "1" Then
				resp2% =  Msgbox ("E' stata richiesta la ricevuta di ritorno," &
Chr(10)_
				& "la vuoi bloccare ?", 36, "Attn")

				If resp2% = 6 Then
					Call ThisDoc.RemoveItem( "ReturnReceipt" )
					Call ThisDoc.save (True, False, True)
				End If
			End If
		End If
	End If

	'*********************************************
	'Begin Quota Checking Code
	'*********************************************
	Dim check_quota As Integer
	check_quota = False

	If source.IsNewDoc Then
		check_quota=True
	Elseif source.document.HasItem("IsMailStationery") Then
		If source.document.GetItemValue("IsMailStationery")(0) = 1 Then
			check_quota=True
		End If
	End If

	If check_quota Then
		Dim quotaCheck As New CheckQuota

		If quotaCheck.isEnabled Then
			Call quotaCheck.init

			If quotaCheck.dbQuota<> 0 Then
				If quotaCheck.dbSize >= quotaCheck.dbQuota Then
					Call quotaCheck.DoMessageBox(MB_QUOTAOVER,MB_OK, MB_QUOTAOVER)
					Continue = False
				Elseif quotaCheck.dbSize >= quotaCheck.dbWarning Then
					If quotaCheck.dbWarning <> 0 Then
						Call quotaCheck.DoMessageBox(MB_QUOTAWARNING,MB_OK,
MB_QUOTAWARNING)
					End If
				End If
			End If
		End If
	End If
	'*********************************************
	'End Quota Checking Code
	'*********************************************

	Set cMemoObject = New UIMemoDocument
	Call cMemoObject.Init(Source,Isnewdoc)
End Sub

questo fà in modo che se il mittente ha richiesto la ricevuta di
ritorno a me apparre un popup che mi chiede se bloccarla o meno. Se
ricevo posta all'interno del dominio questa cosa funziona
perfettamente anche senza entrare fisicamente nel memo ma se ricevo
dall'esterno mi parte in automatico la ricevuta di ritorno senza darmi
la possibilità di bloccarla!!

idee??

grazie

bubu07