Solved

Trouble transferring attachment

Posted on 2010-08-31
2
208 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

How to run any project with ease

Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails

Join & Write a Comment

For Desktop Techs: How to retain a user's Notes configuration data when swapping out the end user's computer. (Assuming that you are not upgrading to a completely different version of Notes client) All you need to do is: 1) install Notes o…
This article covers general Notes 8.5 troubleshooting information including recreating the Notes\Data folder.
This video discusses moving either the default database or any database to a new volume.
This tutorial demonstrates a quick way of adding group price to multiple Magento products.

706 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

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now