SendKeys "%{S}" Not Working anymore?

Ecc_9:10 · 2024-09-23T17:40:50+0100

Hi there,

This was working and suddenly it is only opening the email and not sending automatically so SendKeys has stopped functioning.

Is there anything else I can do. (PS complete newbie - please speak in lay mans terms as best as you can, I really am just trying my best to get things working)

Private Sub cmd_Submit_Click()

Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

txt_PName.SetFocus

strbody = "<BODY style = font=size:11pt; font-family:Courier New>" & _
"Hi, " & _
"ID: " & PID.Value & " " & _

With OutMail

.SentOnBehalfOfName = " "
.To = ""
.CC = RE_Name.Value
.BCC = ""
.Subject = "Submission Form - " & txt_PName.Value
.HTMLBody = strbody
.Display
SendKeys "%{S}"
End With

MarkK · 2024-09-23T17:41:49+0100

Try reboot your machine.

MsAccessNL · 2024-09-23T17:46:39+0100

Use .Send instead of .Display remove the sendkeys.

Gasman · 2024-09-23T17:51:39+0100

Why can't you just use
.Send
??????

Ecc_9:10 · 2024-09-23T17:53:10+0100

MsAccessNL said:
Use .Send instead of .Display remove the sendkeys.

Send never worked for me that's why I had to use SendKeys, however I have just added true to sendkeys line and its working. I'm not sure if this will hold up though.

Gasman · 2024-09-23T17:57:35+0100

Try the send without the display.

Ecc_9:10 · 2024-09-23T21:44:45+0100

Gasman said:
Try the send without the display.

It gives a runtime 287 error

Gasman · 2024-09-23T22:32:50+0100

Ecc_9:10 said:
It gives a runtime 287 error

Hmm, seems a lot of others had the same problem, and it appears to be the late binding, from the links.
One person reckons you need to have outlook open already? before running your code, then kill it. I have always used Early Binding.

Application-Defined or Object-Defined error 287

My codes generate the error 287 at the objMail.Send. I think the path is wrong, but I don't know why. If I use "On Error Resume Next" above the Send, then there is no error popping up, but there is no email sent, either. Please show me how to fix it. Thank you. ------ strDocName = "frmStud"...

www.pcreview.co.uk

I see that I have this in one of my DBs, cannot remember why though.

Code:

            If blnDisplayMsg Then
                .Display
            Else
                .Save
                .Send
            End If

The blnDispl;ay was just a checkbox on the form, in case I wanted to view it first for some reason.

SendKeys "%{S}" Not Working anymore?

Ecc_9:10

New member

MarkK

bit cruncher

MsAccessNL

Member

Gasman

Enthusiastic Amateur

Ecc_9:10

New member

Gasman

Enthusiastic Amateur

Ecc_9:10

New member

Gasman

Enthusiastic Amateur

Application-Defined or Object-Defined error 287

Similar threads

Users who are viewing this thread