Posts by The_Spocker

Quote from Logit

Compare the code line by line. I commented out a few lines and corrected the TIME to "00:00:02" where noted.

I ran the edited code without error and it consistently produce a copy of my desktop 10 times in a row ... whereas

your original code would error out on the 3rd or 4th attempt.

Thank you Logit, I tested it work today and it worked as advertised!!

Quote from Logit

Compare the code line by line. I commented out a few lines and corrected the TIME to "00:00:02" where noted.

I ran the edited code without error and it consistently produce a copy of my desktop 10 times in a row ... whereas

your original code would error out on the 3rd or 4th attempt.

ahh!! thank you! When I get to work today, I will test this out for sure!

Quote from Logit

'The following seems to work consistently here :

Code

Option Explicit



Sub autoCpy()

Dim OutApp As Object

Dim OutMail As Object

Dim strbody As String

Set OutApp = CreateObject("Outlook.Application")



OutApp.Session.Logon

Set OutMail = OutApp.CreateItem(0)



Call PrintTheScreen

Application.Wait (Now + TimeValue("00:00:02"))

strbody = "screen shot of your screen"



On Error Resume Next



With OutMail



.to = "[email protected]"

.cc = ""

.BCC = ""

.Subject = "Updated Unit Training Tracker"

.Body = strbody

.Display

SendKeys "^v", True

'DoEvents

Application.Wait (Now + TimeValue("00:00:02"))

'.send

End With

'On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

End Sub

Sub PrintTheScreen()

Application.SendKeys "(%{1068})"

'DoEvents

End Sub

Display More

I suspect the primary edit involved the wait time.

Were you able to just run mine without any error, or did you do something to it? I am comparing and not seeing any change.


One of the biggest issues I am having is the consistency of it working..

I wrote another script to avoid the sendkeys, and starting using the API way. And also, I am seeing if I can avoid pasting a screenshot and just attach the screen shot as a file.

just letting the forum know I am still looking into this issue.

Quote from royUK

SenKeys can be tricky.

What exactly are you trying to copy.

I am capturing the screen with sendkey command for Print Screen, and pasting it into an outlook email.

I am trying to screen capture and send the image via Email. However, sometimes it works, and sometimes the screen capture ends up in the Excel WorkSheet.. Any idea one what I can do to make this more consistent?

Private Sub auto_Open()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String

    Set OutApp = CreateObject("Outlook.Application")
    
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    

Call PrintTheScreen
Application.Wait (Now + TimeValue("0:00:2"))
    strbody = "screen shot of your screen"
                
    On Error Resume Next
    
    With OutMail
    
        .to = "[email protected]"
        .cc = ""
        .BCC = ""
        .Subject = "Updated Unit Training Tracker"
        .Body = strbody
        .Display
        SendKeys "^v", True
        DoEvents
        Application.Wait (Now + TimeValue("0:00:2"))
       .send
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

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