[MS_AccessPros] Email code question to display on screen before sending

 

Hello all

I just put some code on forms that allows the users to send an email to me and my director if the users have an issue, a request for enhancements or questions for a specific database. But the email sends so fast that the users do not have the ability to type their request or issue. It just sends.

How do show the email message on the screen?

My code is below. I know I need to change or add one thing.

Thank You

Jim Wagner

Private Sub cmdEmailDataManagementServices_Click()

 

 

Set objol = New Outlook.Application

Set objmail = objol.CreateItem(olMailItem)

With objmail

.To = "xxxxxxxxxx"

.CC = "xxxxxxxxxxx"

.Subject = "Requesting help for the Agency/Org Database"

.Body = "Database found at P:\BUDGETING_FINANCE\FORMS AND POLICIES\Business Operations Documents" _

& vbCrLf & vbCrLf & _

" Please assist with the following issue.... "

 

 

.NoAging = True

.Display

End With

Set objmail = Nothing

Set objol = Nothing

SendKeys "%{s}", True

 

End Sub

__._,_.___

---

Posted by: luvmymelody@yahoo.com

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (1)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• New Members 1

• Privacy • Unsubscribe • Terms of Use

.

__,_._,___