I have a simple application for email using email button in FFC. It worked years ago, but now it cannot send emails out as they are all bounced by server. Here's the code.

if not empty(thisform.cLoginName)
	this.parent.olemSess.UserName = thisform.cLoginName
	this.parent.olemSess.Password = thisform.cLoginPassword
endif

IF !this.parent.signon()	
	RETURN
ENDIF
	
IF this.parent.LogSession	

	this.parent.OleMMess.sessionid=this.parent.OleMSess.sessionid
	this.parent.OleMMess.compose
	this.parent.OleMMess.msgnotetext=""
	this.parent.OleMMess.msgsubject=""
	
	this.parent.OleMMess.RecipIndex = 0
	this.parent.OleMMess.RecipType = 1
	this.parent.OleMMess.RecipDisplayName = ReceiverName
	this.parent.OleMMess.RecipAddress = ReceiverEmailAddress

        this.parent.OleMMess.send(1)
	this.parent.OleMSess.signoff
ENDIF

After the code run, the outlook is brought with the correct email address filled. After typing in the message and clicking send button in outlook, the email seems to be sent. Then a bounced message from the server comes in, saying the server cannot send this message to the recipient(s), though the listed email address is correct. I can manually send the email to that recipient in the same outlook. Our email server was changed. How can I solve this problem? Thanks.