.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

 

[mole999]

when you step through with F8 is userinput email fully formed. Is outlook running. Do you have authority to send through the account

 

[siddo]

when you step through with F8 is userinput email fully formed. Is outlook running. Do you have authority to send through the account

Yes so when I use .Display it works fine, Outlook pops open with an attachment

 

[siddo]

T

Yes so when I use .Display it works fine, Outlook pops open with an attachment

Tried removing on error next from the above code and got this as error "Run time error 287 Application defined or object defined error" can you help?

 

[siddo]

Or if somone can help me with the fresh written code without any errors, appreciated

 

[welshgasman]

FWIW the code works fine for me, even with the On Errors commented out.?

 

[siddo]

FWIW the code works fine for me, even with the On Errors commented out.?

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

 

[mole999]

out of date virus checker causes issues

 

[siddo]

out of date virus checker causes issues

How to resolve this any idea?

 

[mole999]

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