Fax Server is printing a blank page when using EmbedObject “embed_attachment “

pts.
Tags:
Lotus Domino
PLEASE SOMEONE HELP ME... Ok-- i wrote a Visual Basic NT Service that is reading from MSMQ.. Which then turn around (within the same program..) sends the information to our lotus notes fax server. I have written it to be "asyn multl thread..". Our Lotus notes guys have set up the Notes server to re-route everything that has "ANY NAME@555.555.5555@FAX" to the FAX Server. This part works well -- does not fail! All corresponding faxes are sent correctly with a cover sheet and pdf attacement.. Cover sheet says 3 pages including cover sheet.. The cover sheet is 1, the blank page is 2 and the pdf attachment is 3. This blank page is the problem. I AM NOT SETTING (ReplaceItemValue) ANYwhere to the body. No value are set what so ever to body.. Below is a the ENTIRE function call within the VB ****start function ******************** Public Sub SendNotesMail(ByVal subject1 As String, ByVal subject2 As String, ByVal attachment As String, ByVal recipient As String, ByVal faxfrom As String, ByVal retfax As String, ByVal faxcover As String, ByVal saveit As Boolean) 'Set up the objects required for Automation into lotus notes Dim objLNDatabase As Domino.NotesDatabase ' The Database object Dim objLNDocument As Domino.NotesDocument ' The Document object Dim AttachME As Object 'The attachment richtextfile object Set objLNDatabase = m_objLNSession.GetDatabase("***", "mail***.nsf") If objLNDatabase.IsOpen = True Then 'Already open for mail Else objLNDatabase.Open End If 'Set up the new mail document Set objLNDocument = objLNDatabase.CreateDocument 'pass all corresponding values to notes document objLNDocument.ReplaceItemValue "subject", Trim(subject1) objLNDocument.ReplaceItemValue "IS_FaxOutSendersAddress1", Trim(subject2) objLNDocument.ReplaceItemValue "NFX_FaxOutCoverPageName", Trim(faxcover) objLNDocument.ReplaceItemValue "NFX_FaxOutSenderName", Trim(faxfrom) objLNDocument.ReplaceItemValue "IS_FaxOutReturnFaxNumber", Trim(retfax) 'this has to be set to false -- if not an error is returned objLNDocument.SaveMessageOnSend = saveit 'Set up the embedded object and attachment and attach it If attachment <> "" Then Set AttachME = objLNDocument.CreateRichTextItem("Attachment") AttachME.EmbedObject 1454, "", Trim(attachment), "Attachment" Call objLNDocument.Save(True, True) End If 'Send the document objLNDocument.Send 0, Trim(recipient) 'clean up (delete) attachment file Set objFile = objFSO.GetFile(attachment) 'validate object objFile.Delete True 'Clean Up lotus notes objects Set objLNDocument = Nothing Set objLNDatabase = Nothing Set AttachME = Nothing End Sub

Answer Wiki

Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Discuss This Question:  

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following