.Send function is not working for by below code

[siddo]

Sub Mail_workbook_Outlook_1()

Dim UserInputToEmail As String

    Dim OutApp As Object
    Dim OutMail As Object

    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    
 UserInputToEmail = Application.InputBox("Enter your email id")

    On Error Resume Next
    With OutMail
        .to = UserInputToEmail
        .CC = ""
        .BCC = ""
        .Subject = "This is the Subject line"
        .Body = "Hi there"
        .Attachments.Add ActiveWorkbook.FullName
        .Send
 Application.Wait (Now + TimeValue("0:00:15"))
    End With
    On Error GoTo 0

    Set OutMail = Nothing
    Set OutApp = Nothing
End Sub

 

[siddo]

i got my code from the Ron De Bruin site. Outlook balks at sending mails that it can't have scanned

Is there any way out of it?

 

[siddo]

Is there any way out of it?

Because when I use .Display function it works just fine

 

[welshgasman]

I dont know why im facing this issue then. Can you tell me what references you have added in the tools section of vba?

Step through with F8, what line does it actually error on?
Test to make sure oApp is created?

 

[siddo]

It

Step through with F8, what line does it actually error on?
Test to make sure oApp is created?

View attachment 15022

It goes user object not defined.. Let it be will use .Display function as it works fine

 

[welshgasman]

It

It goes user object not defined.. Let it be will use .Display function as it works fine

On what line though?

 

[siddo]

.

On what line though?

@ .Send

 

[welshgasman]

Ok, when that happens, inspect the outlook properties in the Locals window.
I am assuming it is happening every time?

 

[siddo]

Ok, when that happens, inspect the outlook properties in the Locals window.
I am assuming it is happening every time?

Yes everytime

 

[welshgasman]

Yes everytime

Report back on the values of the outlook properties.

Try the .Display just before the send
Try a repair of Office?