[RESOLVED] Fax events in VBA

Hi,
I've a problem to work with Fax events in VBA. I want to run a procedure when the 'OnOutgoingMessageAdded' event is triggered. The code is following:


Option Explicit
Dim WithEvents oFS As FAXCOMEXLib.FaxServer

Private Sub Application_Startup()

Set oFS = New FAXCOMEXLib.FaxServer

End Sub

Sub oFS_OnOutgoingMessageAdded(Fserver As FAXCOMEXLib.FaxServer, MsgId As String)
' the event handler
End Sub

and the error I get in the last procedure definition is:
Procedure declaration does not match description of event or procedure having same name


I appreciate any help.

Welcome to the forums. :wave:

Typically that error message means you have to procedures (Subs or Functions or whatever) with the exact same name and VB does not know how to deal with that.

Hi,
Thanks for your time.
The issue is that the Sub oFS_OnOutgoingMessageAdded() is not duplicated anywhere else in my code. It's unique. As soon as I rename it, the error disappears. It seems that when I instantiate the FaxServer object, this sub conflicts with something. If I rename this sub, then the event does not trigger. Does anybody has a better idea to use this event?:wave:

Thanks.

did you create the sub?

the sub is an event of fax server and is created automatically when you declare with events even if there is no sub of that name. if you find the drop down box for the code pane where you declare with events you can find the events of the fax server created

Hi,
Thanks for all your comments.
I found the final solution here:

http://msdn.microsoft.com/en-us/libr...13(VS.85).aspx