I am trying to send a customized report to each of 650 field users that is
generated by Access. The code creates the custom report and generates the
outlook item just fine. But, I have one step left to automate. The pushing
of the "Send" button 650 times was not fun today! How can I automate the
"sending" of the 650 emails that my looping and mail code already generate?

Here is my current relevant code:
Dim EmailApp, NameSpace, EmailSend As Object

Set EmailApp = CreateObject("Outlook.Application")
Set NameSpace = EmailApp.GetNamespace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)
EmailSend.To = rscriteria![login id]
EmailSend.CC = ""
EmailSend.Subject = "Proposed Forced Pickups (w/e 08/06/07)"
EmailSend.Body = ""
EmailSend.Attachments.Add "\\Zion\Databases\FPU\Proposed
Forced Pickups.xls"
EmailSend.Display

I think what you want may be found here:
http://www.granite.ab.ca/access/email.htm

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II

"worksfire1" <(E-Mail Removed)> wrote in message
news:C10B6418-4590-4CEF-9E31-(E-Mail Removed)...
>I am trying to send a customized report to each of 650 field users that is
> generated by Access. The code creates the custom report and generates the
> outlook item just fine. But, I have one step left to automate. The
> pushing
> of the "Send" button 650 times was not fun today! How can I automate the
> "sending" of the 650 emails that my looping and mail code already
> generate?
>
> Here is my current relevant code:
> Dim EmailApp, NameSpace, EmailSend As Object
>
> Set EmailApp = CreateObject("Outlook.Application")
> Set NameSpace = EmailApp.GetNamespace("MAPI")
> Set EmailSend = EmailApp.CreateItem(0)
> EmailSend.To = rscriteria![login id]
> EmailSend.CC = ""
> EmailSend.Subject = "Proposed Forced Pickups (w/e
> 08/06/07)"
> EmailSend.Body = ""
> EmailSend.Attachments.Add "\\Zion\Databases\FPU\Proposed
> Forced Pickups.xls"
> EmailSend.Display
>
>
>

I looked all over the site. It had a lot of good code, but really didn't
focus on email code. It would always say 'insert some type of email code
here. I just wish I knew the MAPI command. I thought maybe saying
SendMail.Display = FALSE but I don't think that is the propery I need in
order to make it send the emails automatically without me hitting send. It
doesn't work.

"Gina Whipp" wrote:

> I think what you want may be found here:
> http://www.granite.ab.ca/access/email.htm
>
> --
> Gina Whipp
>
> "I feel I have been denied critical, need to know, information!" - Tremors
> II
>
> "worksfire1" <(E-Mail Removed)> wrote in message
> news:C10B6418-4590-4CEF-9E31-(E-Mail Removed)...
> >I am trying to send a customized report to each of 650 field users that is
> > generated by Access. The code creates the custom report and generates the
> > outlook item just fine. But, I have one step left to automate. The
> > pushing
> > of the "Send" button 650 times was not fun today! How can I automate the
> > "sending" of the 650 emails that my looping and mail code already
> > generate?
> >
> > Here is my current relevant code:
> > Dim EmailApp, NameSpace, EmailSend As Object
> >
> > Set EmailApp = CreateObject("Outlook.Application")
> > Set NameSpace = EmailApp.GetNamespace("MAPI")
> > Set EmailSend = EmailApp.CreateItem(0)
> > EmailSend.To = rscriteria![login id]
> > EmailSend.CC = ""
> > EmailSend.Subject = "Proposed Forced Pickups (w/e
> > 08/06/07)"
> > EmailSend.Body = ""
> > EmailSend.Attachments.Add "\\Zion\Databases\FPU\Proposed
> > Forced Pickups.xls"
> > EmailSend.Display
> >
> >
> >
>
>
>

I thought EMailSenate does what you asked for. I thought pressing send once
was better then umpteen times.
--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II
"worksfire1" <(E-Mail Removed)> wrote in message
news:0D96CB60-796D-45B3-A75C-(E-Mail Removed)...
>I looked all over the site. It had a lot of good code, but really didn't
> focus on email code. It would always say 'insert some type of email code
> here. I just wish I knew the MAPI command. I thought maybe saying
> SendMail.Display = FALSE but I don't think that is the propery I need in
> order to make it send the emails automatically without me hitting send.
> It
> doesn't work.
>
> "Gina Whipp" wrote:
>
>> I think what you want may be found here:
>> http://www.granite.ab.ca/access/email.htm
>>
>> --
>> Gina Whipp
>>
>> "I feel I have been denied critical, need to know, information!" -
>> Tremors
>> II
>>
>> "worksfire1" <(E-Mail Removed)> wrote in message
>> news:C10B6418-4590-4CEF-9E31-(E-Mail Removed)...
>> >I am trying to send a customized report to each of 650 field users that
>> >is
>> > generated by Access. The code creates the custom report and generates
>> > the
>> > outlook item just fine. But, I have one step left to automate. The
>> > pushing
>> > of the "Send" button 650 times was not fun today! How can I automate
>> > the
>> > "sending" of the 650 emails that my looping and mail code already
>> > generate?
>> >
>> > Here is my current relevant code:
>> > Dim EmailApp, NameSpace, EmailSend As Object
>> >
>> > Set EmailApp = CreateObject("Outlook.Application")
>> > Set NameSpace = EmailApp.GetNamespace("MAPI")
>> > Set EmailSend = EmailApp.CreateItem(0)
>> > EmailSend.To = rscriteria![login id]
>> > EmailSend.CC = ""
>> > EmailSend.Subject = "Proposed Forced Pickups (w/e
>> > 08/06/07)"
>> > EmailSend.Body = ""
>> > EmailSend.Attachments.Add "\\Zion\Databases\FPU\Proposed
>> > Forced Pickups.xls"
>> > EmailSend.Display
>> >
>> >
>> >
>>
>>
>>

worksfire1 <(E-Mail Removed)> wrote:

>I looked all over the site.

See the Outlook Security Patch in Outlook 98, 2000 SP-2 and Outlook
2002 section at http://www.granite.ab.ca/access/email/outlook.htm

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

Tony,

I missed that... I guess I need more coffee....

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II
"Tony Toews [MVP]" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> worksfire1 <(E-Mail Removed)> wrote:
>
>>I looked all over the site.
>
> See the Outlook Security Patch in Outlook 98, 2000 SP-2 and Outlook
> 2002 section at http://www.granite.ab.ca/access/email/outlook.htm
>
> Tony
> --
> Tony Toews, Microsoft Access MVP
> Please respond only in the newsgroups so that others can
> read the entire thread of messages.
> Microsoft Access Links, Hints, Tips & Accounting Systems at
> http://www.granite.ab.ca/accsmstr.htm
> Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

"Gina Whipp" <(E-Mail Removed)> wrote:

>I guess I need more coffee....

Not really. It's certainly not obvious as to what that section is
about.

Tony
--
Tony Toews, Microsoft Access MVP
Please respond only in the newsgroups so that others can
read the entire thread of messages.
Microsoft Access Links, Hints, Tips & Accounting Systems at
http://www.granite.ab.ca/accsmstr.htm
Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/

I may be missing it, but I do not see any MAPI code to send the Outlook
emails that Access generates without manual intervention. I see mention of a
couple of 3rd party programs that will manage security settings so that you
are not prompted when security prompts would normally prompt up.

I am not having any kind of message on a security-level pop up. I am just
looking for a MAPI property that keeps you from having to review/edit/send
the hundreds of custom emails that Access generated for me.

"Tony Toews [MVP]" wrote:

> "Gina Whipp" <(E-Mail Removed)> wrote:
>
> >I guess I need more coffee....
>
> Not really. It's certainly not obvious as to what that section is
> about.
>
> Tony
> --
> Tony Toews, Microsoft Access MVP
> Please respond only in the newsgroups so that others can
> read the entire thread of messages.
> Microsoft Access Links, Hints, Tips & Accounting Systems at
> http://www.granite.ab.ca/accsmstr.htm
> Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/
>

I thought this section (http://www.granite.ab.ca/access/email/mapi.htm) of
that page had something but I guess not. Maybe someone else has some ideas.

--
Gina Whipp

"I feel I have been denied critical, need to know, information!" - Tremors
II
"worksfire1" <(E-Mail Removed)> wrote in message
news:6489746C-E931-42E3-9699-(E-Mail Removed)...
>I may be missing it, but I do not see any MAPI code to send the Outlook
> emails that Access generates without manual intervention. I see mention
> of a
> couple of 3rd party programs that will manage security settings so that
> you
> are not prompted when security prompts would normally prompt up.
>
> I am not having any kind of message on a security-level pop up. I am just
> looking for a MAPI property that keeps you from having to review/edit/send
> the hundreds of custom emails that Access generated for me.
>
> "Tony Toews [MVP]" wrote:
>
>> "Gina Whipp" <(E-Mail Removed)> wrote:
>>
>> >I guess I need more coffee....
>>
>> Not really. It's certainly not obvious as to what that section is
>> about.
>>
>> Tony
>> --
>> Tony Toews, Microsoft Access MVP
>> Please respond only in the newsgroups so that others can
>> read the entire thread of messages.
>> Microsoft Access Links, Hints, Tips & Accounting Systems at
>> http://www.granite.ab.ca/accsmstr.htm
>> Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/
>>

Case in point!!

The OP posted to the newsgroup asking for help. He got six responses but no
help. He is no better off than when he started. You call yourself a
professional consultant but you left the OP high and dry and are moving on
to something else rather than break from the Arno R, John Marshall, Keith
Wilby mentality. You will NEVER convince me that this in accordance with the
principles of newsgroups!

To the OP:
I don't have an answer for you off the top of my head or I would help you
here in this thread. I am willing to research your problem until I come up
with a solution for you for a reasonable fee. If you would like my help,
contact me at my email address below.

PC Datasheet
Providing Customers A Resource For Help With Access, Excel And Word
Applications
(E-Mail Removed)




"Gina Whipp" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
>I thought this section (http://www.granite.ab.ca/access/email/mapi.htm) of
>that page had something but I guess not. Maybe someone else has some
>ideas.
>
> --
> Gina Whipp
>
> "I feel I have been denied critical, need to know, information!" - Tremors
> II
> "worksfire1" <(E-Mail Removed)> wrote in message
> news:6489746C-E931-42E3-9699-(E-Mail Removed)...
>>I may be missing it, but I do not see any MAPI code to send the Outlook
>> emails that Access generates without manual intervention. I see mention
>> of a
>> couple of 3rd party programs that will manage security settings so that
>> you
>> are not prompted when security prompts would normally prompt up.
>>
>> I am not having any kind of message on a security-level pop up. I am
>> just
>> looking for a MAPI property that keeps you from having to
>> review/edit/send
>> the hundreds of custom emails that Access generated for me.
>>
>> "Tony Toews [MVP]" wrote:
>>
>>> "Gina Whipp" <(E-Mail Removed)> wrote:
>>>
>>> >I guess I need more coffee....
>>>
>>> Not really. It's certainly not obvious as to what that section is
>>> about.
>>>
>>> Tony
>>> --
>>> Tony Toews, Microsoft Access MVP
>>> Please respond only in the newsgroups so that others can
>>> read the entire thread of messages.
>>> Microsoft Access Links, Hints, Tips & Accounting Systems at
>>> http://www.granite.ab.ca/accsmstr.htm
>>> Tony's Microsoft Access Blog - http://msmvps.com/blogs/access/
>>>
>
>