i dont want to save my email befor send

[cameron_kyle]

I have a macro that when activated will copy a range of formatted cells along with text and email it to the person who’s email address appears within the table, through lotus notes

It works great and I must admit it has been a life saver since I have to email at least several hundred people per week,

However before the email is sent, Lotus notes displays a message box asking me whether or not I would like to save the document after I sent the email,,,,, I don not want to save the email and having this message box appear waste a lot of time


Below is the section of code where the message prompt appears


Can anyone show me how to automatically select no to this message box?

Application.CutCopyMode = False


Call UIdoc.Send(False)
Call UIdoc.Close(False)


Set UIdoc = Nothing: Set WorkSpace = Nothing
Set db = Nothing: Set Notes = Nothing

    Exit Sub
    
 Next r

End Sub