I have an agent that creates an email with text and also attaches pdf’s through LS. This agent worked great when Domino resided on the AS400 (where the attachments are). The Domino server has been migrated to a Windows 2003 server and now when I run the agent, it will not embed the attachments to the email. Here is part of the code: Does anyone have any ideas as to what I need to change so that it will embed the attachment:
AttServer = result4.GetValue (“QZYJT6”)
AttShare = Result4.GetValue ("QZYKT6")
AttPath = result4.GetValue ("QZYLT6")
AttFile = result4.GetValue ("QZYMT6")
'filename = "\"+ AttPath + "\" + AttFile
'filename = "\\" + AttPath + "\" + AttFile 'changed from above line for windows 2003 server
filename = "\\" + AttShare + "\" + AttPath + "\" + AttFile
Set object = rtitem.EmbedObject (Embed_Attachment, "", filename)
If ( object Is Nothing ) Then
Messagebox( "Unable to find an object" )
Print "Unable to find object"
Else
Messagebox( "Found an object" )
Print "able to find object"
End If
I have checked the permissions on the folder on the AS400 through iSeries Navigator and my id has proper access to the data. Do I need the Notes Server to have access to that folder. When I try a run command from the server and put my user name and password in, I can get to the server and then drill down but cannot put the entire path in to begin with. Does anyone have any ideas as to how I might get this to work.