Has Anyone Worked with Esker Fax for Notes

HCL Domino Domino Forum
1

We are having a long drawn out obstacle with an in-house application sending string of data to a Notes database. The Notes database parses out the data (as shown below). Sends from the Notes database - hits Domino Server and the FROM field is automatically overwritten (which by the way is a dynamic field - never will it be from the same name - depending on the person who is sending the fax from the in-house program which sends to the Notes database for parsing) to equal DOMINO and that’s how it populates our cover page when sent to the ESKER Fax for Notes. It doesn’t seem that ESKER supports the Principal field which we know would be our solution. Any suggestions would be GREATLY appreciated.

Sub Initialize

Dim s As New NotesSession

Dim db As NotesDatabase

Dim emaildoc As NotesDocument

Dim faxdoc As NotesDocument

Dim dc As NotesDocumentCollection

Dim rt As NotesRichTextItem

Dim item As NotesItem

Dim subjText As String

Dim temp As String

Dim temp1 As String

Dim tempName As String

Dim v As NotesView 



Set db = s.CurrentDatabase

Set dc = db.UnprocessedDocuments

Set emaildoc = dc.GetFirstDocument

While Not(emaildoc Is Nothing)

	Set item = emaildoc.GetFirstItem("Delete")

	If Not(item Is Nothing) Then

		'Skip Deleted documents..

		Goto NextDoc

	End If

'Parse subject line

	Set item = emaildoc.GetFirstItem("Subject")

	If (item Is Nothing) Then

		Goto NextDoc

	Else 			

		subjText = item.Text

		If (Instr (subjText,"@fax1") = 0) Then

			Call emaildoc.ReplaceItemValue("Delete","Yes")

			Call emailDoc.Save(True,False,False)

			Goto NextDoc

		Else

			tempName=Strleftback(subjText, "@fax1")

			tempName =tempName & "@fax1"

			temp=Strright(subjText, "@fax1")

			Set faxdoc = db.CreateDocument

			faxdoc.form = "Memo"

			faxdoc.date = Now

			

			Set item = emaildoc.GetFirstItem("From")

			faxdoc.From = item.text

			faxdoc.FaxFrom = item.text

			faxdoc.Principal = "CN=Melissa Muth/O=ESB"

			temp1=Strleftback(item.text, "@")

			Faxdoc.FaxFrom = Strrightback(item.text, "<")

			faxdoc.Subject = temp

			Set rt = emailDoc.GetFirstItem("Body")

			faxdoc.Body = rt.GetFormattedText(False,0)

			Call rt.CopyItemToDocument(faxdoc,"Attachments")

			faxdoc.email = faxdoc.email(0)

			faxdoc.SendTo = tempName

			Call emaildoc.ReplaceItemValue("Delete","Yes")

			Call emailDoc.Save(True,False,False)

			Call faxdoc.Send(False)

		End If

	End If

NextDoc:

	Set emaildoc = dc.GetNextDocument(emaildoc)

Wend

End Sub