I found the problem.  I was closing the window after the call to
SMTPSocket1.SendMail.  But the email hasn't been completely sent at that
point.  Now I'm keeping the window open until the Email Sent event.

Thanks anyway,

On 7/20/06, Jim Dossey <[EMAIL PROTECTED]> wrote:

Here's the code.  This method takes a window, makes an image of it, and
then emails that image along with a note.  The idea was to give users a way
of emailing a screen dump whenever they have a problem.  I have a window
with 4 EditFields, FromEmailAddress, ToEmailAddress, MessageSubject and
MessageBody.  I also have the source window SrcWindow from which an Image is
created and attached to the message.  And the email server address and port
number are stored in a module.

  Dim Image As Picture
  Dim Message As EmailMessage
  Dim Attachment As EmailAttachment
  Dim TempDir, TempFile As FolderItem

........

  SMTPSocket1.Messages.Append(Message)
  SMTPSocket1.SendMail

  TempFile.Delete()

  Self.Close






_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>

Reply via email to