automate "sending" email via MAPI

G

Guest

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
 
G

Guest

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 said:
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 said:
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
Click to expand...
Click to expand...
 
G

Gina Whipp

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 said:
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 said:
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 said:
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
Click to expand...
Click to expand...
Click to expand...
 
T

Tony Toews [MVP]

G

Guest

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.
 
S

Steve

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 address removed)
 
T

Tony Toews [MVP]

worksfire1 said:
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.
Click to expand...
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.
Click to expand...

My apologies. Somehow I read your message that you were getting the
security warning.

I'm not sure as I've never worked with MAPI. I prefer to use code and
work directly through the SMTP server.

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/
 
T

Tony Toews [MVP]

Steve said:
Case in point!!
Rubbish.

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.
Click to expand...

There may not be an answer in this particular situation as MS might
have deliberately not put in that functionality.
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.
Click to expand...

Presumably your comment was directed at me rather than Gina as I have
a signature line telling folks where my website and blog are.

I did not leave the original poster high and dry. I did misunderstand
the original question. But who says I'm leaving this thread?

As far as Arno R, John M and Keith W they are doing exactly the right
thing in combatting your soliciting business in the newsgroups.
You will NEVER convince me that this in accordance with the
principles of newsgroups!
Click to expand...

Clearly you're incapable of realizing any morals or ethics other than
your own definition.

The newsgroups are *not* the area to solicit paying work. You are
currently and have repeatedly violated this rule.
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.
Click to expand...

To the original poster. If you do feel like using Steve's services I
would strongly urge you to pay him only if he gets an answer. Do not
pay him ahead of time.

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/
 
G

Gina Whipp

Oh dear... Your new mission in life...

I did not leave him high and dry, I thought someone else might kow his
answer and sure enough they did, see UpRiders' response.

However, this thread is still on my watch list and if that answer is not
sufficient, I have some old MAPI code (I had to dig around for it and did
not want to offer prior to locating it) that might be of help, which I will
supply for FREE, no payment, no research fees, NADA!

Feel free to follow me around, I know you are hoping to find me 'trolling'
but you won't and I don't mind the company, keeps me on my toes.
 
S

Steve

Tony Toews said:
There may not be an answer in this particular situation as MS might
have deliberately not put in that functionality.


Presumably your comment was directed at me rather than Gina as I have
a signature line telling folks where my website and blog are.

I did not leave the original poster high and dry. I did misunderstand
the original question. But who says I'm leaving this thread?
Click to expand...

If I wanted to make a comment directed to you, I would have posted the
comment under your response!!

As far as Arno R, John M and Keith W they are doing exactly the right
thing in combatting your soliciting business in the newsgroups.
Click to expand...

Rules of conduct
Appropriate Language: The purpose of our communities is to exchange
technical information and expertise about Microsoft products. Please avoid
personal attacks, slurs, and profanity in your interactions.

I guees the you feel the rules do not apply to them!!!

If they think my posts violate any rules, there is a proper venue to follow.
They choose however to not follow the rules and make personal attacks and
use slurs and profanity as they track my posts.


Clearly you're incapable of realizing any morals or ethics other than
your own definition.

The newsgroups are *not* the area to solicit paying work. You are
currently and have repeatedly violated this rule.


To the original poster. If you do feel like using Steve's services I
would strongly urge you to pay him only if he gets an answer. Do not
pay him ahead of time.
Click to expand...

I work on a fixed fee basis and every customer always knows what my fees
will be before I start work. My terms of payment is ALWAYS payment is due at
the conclusion of the project.
 
T

Tony Toews [MVP]

If I wanted to make a comment directed to you, I would have posted the
comment under your response!!
Click to expand...

Oh, I'm sorry. I thought you had made a mistake.
Rules of conduct
Appropriate Language: The purpose of our communities is to exchange
technical information and expertise about Microsoft products. Please avoid
personal attacks, slurs, and profanity in your interactions.

I guees the you feel the rules do not apply to them!!!
Click to expand...
If they think my posts violate any rules, there is a proper venue to follow.
They choose however to not follow the rules and make personal attacks and
use slurs and profanity as they track my posts.
Click to expand...

Advertising/Solicitation: These communities were created as a forum
for providing peer-to-peer assistance on Microsoft products and
services. We ask that you refrain from posting advertisements or
solicitations that do not pertain directly to the intended use and
purpose of the newsgroup or chat.

You brought their rebuttals to your postings on yourself.
I work on a fixed fee basis and every customer always knows what my fees
will be before I start work. My terms of payment is ALWAYS payment is due at
the conclusion of the project.
Click to expand...

Glad to read that.

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/
 
S

Steve

Tony Toews said:
Oh, I'm sorry. I thought you had made a mistake.



Advertising/Solicitation: These communities were created as a forum
for providing peer-to-peer assistance on Microsoft products and
services. We ask that you refrain from posting advertisements or
solicitations that do not pertain directly to the intended use and
purpose of the newsgroup or chat.

You brought their rebuttals to your postings on yourself.
Click to expand...

So once again, I guees the you feel the rules do not apply to them!!!

If they think my posts violate any rules, there is a proper venue to follow.
They choose however to not follow the rules and make personal attacks and
use slurs and profanity as they track my posts.

So once again, I guees the you feel the rules do not apply to them!!! You
turn a blind eye to their personal attacks, their slurs and their profanity
as they track my posts.
 
T

Tony Toews [MVP]

Steve said:
So once again, I guees the you feel the rules do not apply to them!!!

If they think my posts violate any rules, there is a proper venue to follow.
Click to expand...

What proper venue? Make a complaint.
They choose however to not follow the rules and make personal attacks and
use slurs and profanity as they track my posts.
Click to expand...

You're complaining about personal attacks when you are violating the
rules?
So once again, I guees the you feel the rules do not apply to them!!! You
turn a blind eye to their personal attacks, their slurs and their profanity
as they track my posts.
Click to expand...

Profanity? Now that's not nice.

Personal attacks and slurs are very much in the eye of the beholder.

Please post the Google URL of some of those so I can make up my own
mind.

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/
 
T

Tony Toews [MVP]

Steve said:
So once again, I guees the you feel the rules do not apply to them!!!
Click to expand...

And once again your reply was unsubstantial. Are you or you not
posting solicitations in these newsgroups? In my opinion you are and
thus you should stop that activity.

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/
 
S

StopThisAdvertising

Steve said:
I work on a fixed fee basis and every customer always knows what my fees
will be before I start work. My terms of payment is ALWAYS payment is due at
the conclusion of the project.
Click to expand...

Rubbish!! You still are, and always will be a liar !!
Read about Laura, who was a bit dissappointed....
She had to pay in advance....

<quote>
Terms: Payment in full to start the project. Payment can be made by check
(preferred) or with credit card through PayPal at my website
</quote>

http://groups.google.nl/groups?hl=nl&lr=&[email protected]

AnoR
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

What if invalid email address? 3
Business Objects and Excel 1

Top