Sending screenshot via email

[Drivenn]

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

 

[CasperTFG]

This FAQ will do it for you...

faq222-179

With or without outlook.

Casper

There is room for all of gods creatures, "Right Beside the Mashed Potatoes".