Auto Send Email via Excel Userform

[jamieleeuk]

Is it possible to send a screenshot of a userform via an email to a specific email address once a button has been pressed on said userform?

 

[jamieleeuk]

Should mention that i want it to send the email from MS outlook.

thanks

 

[Leith Ross]

Hello jamieleeuk,

What is the userform - a worksheet or VBA USerForm?

Sincerely,
Leith Ross

 

[jamieleeuk]

Hi,

thanks for the reply. Its an actual VBA userform.

 

[Leith Ross]

Hello jamieleeuk,

It would be easiest to send the form as an attachment. Will that work for you?

Sincerely,
Leith Ross

 

[Mansel160]

Hi JamieLeeuk,

The following code should do what you require.

Sub PrintTheScreen()
Application.SendKeys "(%{1068})"
DoEvents
End Sub

Hope it helps!

Also it's well worth looking in to usin CDO for sending emails VERY easy to use and below is a very usefull link which explaines how.

http://www.rondebruin.nl/cdo.htm

Good Luck

Mansel160

 

[Leith Ross]

Hello jamieleeuk,

You can't use the SendKeys method to capture the screen. You need to use the Windows API.

'Written: October 23, 2008
'Author:  Leith Ross
'Summary: Capture the screen image as a picture. VBA SendKeys won't do this function.
'         It can be done using the WIndows API. The imageis automatically transfered
'         to the clipboard.

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal _
  bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_SNAPSHOT = &H2C
Private Const VK_MENU = &H12

Sub ScreenCapture()
    keybd_event VK_MENU, 0, 0, 0
    keybd_event VK_SNAPSHOT, 0, 0, 0
    keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
    keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
End Sub

Sincerely,
Leith Ross

 

[Mansel160]

Hi Leith,

I am very new to VBA but have tested the code above and it really does capture the screen and send it to the clipboard!

Kind regards

Mansel160

 

[huseyin.kasirga]

Hi Leith,

I was just looking for a solution like you mentioned above. I want to take a screenshot of an active userform and then send it with Outlook to a pre-defined email address automatically when clicked on a command button. A have seen your code above and had some trials. However I have failed with VBA to integrate it with second part I mentioned (sending with email to a predefined address). I am new with VBA. Could you help me about this issue?

Thanks in advance.

 

[Leith Ross]

Hello huseyin.kasirga,

Did you want to send the picture as an attachment or in the body of the email?