Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations bkrike on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Storing a ScreenDump in a Variable. How???

Status
Not open for further replies.

Car57

Programmer
May 7, 2000
4
AU
Hi Guys,<br>I need to send an email of a help desk problem to a vendor.<br><br>I Dim variables and fill them from the open form, but when it comes to the field that holds the screen dump I can't seem to find the correct object. The code I am using is below:<br><br>I'd be very grateful for any advice<br><br>Dim sndIssueNum As String<br>Dim sndProblemType As String<br>Dim sndPriority As String<br>Dim sndLoggedBy As String<br>Dim sndClientVer As String<br>Dim sndFaultDesc As String<br><br>Dim SSD As Integer<br>Dim sndScreenDump As Object<br><br><br><br>Dim SEL As Integer<br>Dim sndErrorLog As Object<br><br>'SSD = Me!fltScreenDumpNum<br>'sndScreenDump.Picture = GetScreenDump(SSD)<br><br>'sndErrorLog = GetErrorLog(SEL)<br><br><br>sndIssueNum = Me!fltUniqueID<br>sndProblemType = Me!fltProblemType<br>sndPriority = Me!fltVendorPriority<br>sndLoggedBy = Me!fltOperatorName<br>sndClientVer = &quot;Not Currently Recorded&quot;<br>sndFaultDesc = Me!fltFaultDescrip<br>sndScreenDump = Me!fltScreenDumpPic<br><br>EmailHelpCall sndIssueNum, sndProblemType, sndPriority, sndLoggedBy, sndClientVer, sndFaultDesc, sndScreenDump<br><br><br><br><br>Public Function EmailHelpCall(sndIssueNum, sndProblemType, sndPriority, sndLoggedBy, sndClientVer, sndFaultDesc, sndScreenDump)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim session As Object<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim db As Object<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim doc As Object<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set session = CreateObject(&quot;Notes.NotesSession&quot;)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set db = session.GETDATABASE(&quot;&quot;, &quot;mail\crippon.nsf&quot;)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;db.OPENMAIL<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Set doc = db.CREATEDOCUMENT()<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;doc.Subject = &quot;SEC: UNCLASSIFIED: Defence Issue &quot; & sndIssueNum<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;doc.Body = &quot;Defence Issue: &quot; & sndIssueNum & vbCrLf & &quot;Type: &quot; & vbTab & sndProblemType & _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&quot;Priority: &quot; & sndPriority & vbCrLf & &quot;Logged by: &quot; & sndLoggedBy & vbCrLf & &quot;Client Version: &quot; & _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;sndClientVer & vbCrLf & &quot;Description: &quot; & vbCrLf & sndFaultDesc & vbCrLf & vbCrLf & sndScreenDump<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;doc.SEND 0, &quot;Craig Rippon/HRM_DCC&quot;<br>End Function
 
Actually declaring sndScreenDump as a Variant allows the code to run but the output in the email program (Lotus Notes) looks liike this:<br><br>&#7189;/<br><br><br>
 
Man, i think you made something wrong here...<br>&nbsp;&nbsp;Dim sndScreenDump As Object<br><br>while you assign this variable using..<br>sndScreenDump = Me!fltScreenDumpPic<br><br>so, i think you should use the follwing to assign an object<br>SET sndScreenDump = Me!fltScreenDumpPic<br><br>i wish this would help ....<br> <p>Mohamed Aly<br><a href=mailto:samara_79@hotmail.com>samara_79@hotmail.com</a><br><a href= > </a><br>
 
SET sndScreenDump = Me!fltScreenDumpPic<br><br><br>Well,<br>now the code will run but in the body of the message, instead of getting a screen dump I get &#7189;/.<br><br>Ant ideas anyone?
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top