Thank You Bill.
Jim Wagner
On Monday, November 30, 2015 10:18 AM, "wrmosca@comcast.net [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:
Jim
By using .Display, you are giving the user a chance to edit the email. It's up to them to send it. If you use .Send you sometimes have to give Outlook a kick by using this:
.Send
DoEvents
objOLApp.Session.SendAndReceive
Why the Send sometimes gets stuck in the Outbox is a mystery to me.
-Bill
---In MS_Access_Professionals@yahoogroups.com, <luvmymelody@yahoo.com> wrote :
.NoAging = True
.Display
End With
Set objmail = Nothing
Set objol = Nothing
SendKeys "%{s}", True
---In MS_Access_Professionals@yahoogroups.com, <luvmymelody@yahoo.com> wrote :
Hello all,
I would like for my email message being sent from Access to not go directly to the outbox. I have never had this issue before. My code below that I am using will send an email but will not let the user edit it without opening it from the outbox. I took out the email address for privacy reasons. Is there something I am missing?
Thank You
Jim Wagner
Set objol = New Outlook.Application
Set objmail = objol.CreateItem(olMailItem)
With objmail
.To = ""
.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.... "
Set objmail = objol.CreateItem(olMailItem)
With objmail
.To = ""
.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
__._,_.___
Posted by: Jim Wagner <luvmymelody@yahoo.com>
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (4) |
.
__,_._,___
Tidak ada komentar:
Posting Komentar