Trouble transferring attachment

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

jforget1Asked:
Who is Participating?
 
doninjaConnect With a Mentor Commented:
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
 
jforget1Author Commented:
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
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.