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?

 

[huseyin.kasirga]

Hello Leith,

I would like to send in the body of email. I have tried both way, but cannot be successfull, resulted in a scrap-workbook

Thanks for your help

 

[huseyin.kasirga]

Hello Leith,

I think I have mistake combining two codes together. Here are two codes I am working on. First one is "ScreenCapture" to copy the active window into clipboard and second one is "emailimage" to paste clipboard to outlook mail. If I run them seperately with two buttons (click first then second), they do what I want. However I cannot combine them to run just with 1 click (I have used Call code, but screencapture is not seems to work properly )

1.Code: Screencapture

'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 image is 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

2.Code: Pasting clipboard to email

Sub emailimage()

Dim OutApp As Object
Dim OutMail As Object

'Shift-Print Screen
Application.SendKeys "(%{1068})"

On Error Resume Next

'Prepare the email
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)

On Error Resume Next
    
    With OutMail
        .To = "youremail@test.com"
        .Subject = "Subject line"
        .Display
    
        Application.SendKeys "(^v)"
        
    End With
On Error GoTo 0

OutApp.Session.Logoff
Set OutMail = Nothing
Set OutApp = Nothing

End Sub

3. Runboth:

Sub Runboth()
Call ScreenCapture
Call emailimage
End Sub

 

[huseyin.kasirga]

Hello All,

Does anyone have an idea about the soulution?

Thanks in advance for your support.

 

[huseyin.kasirga]

Dear All,

Has nobody any idea for solution?