Sending screenshot to recipient as email

Hi,

I have program that takes screenshot from active window and saves it to directory. Is it possible to send Screenshot as an email to recipient with the same click-event and how you do it?

Public Function Capture_Desktop As Boolean

DoEvents
Call Keybd(vbKeySnapshot, 1, 0, 0)
DoEvents
SavePicture Clipboard.GetData(vbCFBitmap), Destination$
Capture_Desktop = True

Exit Function
errl:
MsgBox "no form selected"

Capture_desktop = False
End Function


Private Sub Command1_Click()
On error Resume Next

Capture_Desktop App.Path & "\Form " + Text1.Text + ".jpg"
Me.caption = Text10.Text


Thanks

Drivenn

Once you know where the jpg file is located, you can email using cdosys or some other email component. There are numerous tutorials on using email from vb, try a google search.