Solved

Trouble transferring attachment

Posted on 2010-08-31
2
210 Views
Last Modified: 2013-12-18
THis is a follow up to a question from last week for me. I have tried to get the code below working to take the attached doc in the "doc" field on a record and copy this over to a tracer email which is sent to the user. I have tried many edits on this one but cannot get the attachment to come over to the letter. It is probably some simple little edit needed, but if anyone sees what I am missing here it would be greatly appreciated. The field on the main doc that has the attachment is called doc and the fieldname on the letter that goes to the user is called doc_attached.  
Sub Initialize
	Dim ws As New notesuiworkspace
	Dim session As New NotesSession 
	
	Set db = session.CurrentDatabase
	Set uidoc=ws.currentdocument
	Set doc=uidoc.document
	extractpath = "c:\temp\"
	On Error Resume Next
	Set emaildoc = db.CreateDocument
	
	
	emaildoc.Form = "exp_mgt_final_copy"
	emaildoc.SendTo = doc.contact
	emaildoc.Principal = "IDSalesMaterialSubmission"
	emaildoc.Subject ="Submission # " + doc.sub_num(0) +" Approved - Please return Final product "
	
	Set rtitema = doc.GetFirstItem( "doc" ) ' or specify whichever RTField you need.
	If Not ( Isempty( rtitema.EmbeddedObjects) ) Then
		
		Forall o In rtitema.EmbeddedObjects
			If ( o.Type = EMBED_ATTACHMENT ) Then
                  ' extract file attachment to temp area
				Call o.ExtractFile( extractpath & o.source )
                  ' embed in other doc
				Set object = rtitemb.EmbedObject( EMBED_ATTACHMENT, "", extractpath & o.source)      
				Set rtitemb = New NotesRichTextItem(emaildoc, "doc_attached")
			End If
		End Forall
	End If		
	emaildoc.ld_num = doc.ld_num
	Call emaildoc.Send(True)
'	doc.status = "Final Copy Required" 
	Call doc.Save(True,True)
End Sub

Open in new window

0
Comment
Question by:jforget1
2 Comments
 
LVL 10

Accepted Solution

by:
doninja earned 500 total points
ID: 33567912
Reading the code are you embedding the object inb line 26 before you have the richtext field defined in line 27 ?

Try swapping those two around so you have a field to embed into.
0
 

Author Comment

by:jforget1
ID: 33567947
Wow I thought it was close but had no idea it was that close. Swapped those 2 lines and it attached perfectly. Thanks for the help.
0

Featured Post

Gigs: Get Your Project Delivered by an Expert

Select from freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely and get projects done right.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

  In today’s Arena we can’t imagine our lives without Internet as we are highly used to of it. If we consider our life style just for only 2 min we found that face to face communication is swapped by e-communication.  Every Where from Works place to…
IBM Notes offer Encryption feature using which the user can secure its NSF emails or entire database easily. In this section we will discuss about the process to Encrypt Incoming and Outgoing Mails in depth.
Established in 1997, Technology Architects has become one of the most reputable technology solutions companies in the country. TA have been providing businesses with cost effective state-of-the-art solutions and unparalleled service that is designed…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question