?
Solved

Trouble transferring attachment

Posted on 2010-08-31
2
Medium Priority
?
219 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
2 Comments
 
LVL 10

Accepted Solution

by:
doninja earned 2000 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

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

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

You’ve got a lotus Domino web server, and you have been told that “leverage browser caching” is a must do. This means that we have to tell the browser everywhere in the web to use cache. In other words, we set (and send) an expiration date in the HT…
I thought it will be a good idea to make a post as it will help in case someone else faces these issues. I trust this gives an idea how each entry in Notes.ini can mean a lot for the Domino Server to be functioning properly. This article discusses t…
In this brief tutorial Pawel from AdRem Software explains how you can quickly find out which services are running on your network, or what are the IP addresses of servers responsible for each service. Software used is freeware NetCrunch Tools (https…
In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment. To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…

765 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