automate "sending" email via MAPI

[Steve]

What proper venue? Make a complaint.


You're complaining about personal attacks when you are violating the
rules?


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.

Here's a recnt sample of the mentality you support --

By Arno R "You are just a peace of lunatic shit .........."

 

[StopThisAdvertising]

Here's a recnt sample of the mentality you support --

By Arno R "You are just a peace of lunatic shit .........."

As I said there: I was trying to be friendly ....

Read about *your* mentality at:
http://home.tiscali.nl/arracom/whoissteve.html
(Until now 3100+ pageloads, 2100+ first-time visitors)

BTW1:
It is all very simple: just stop your advertising here ...
BTW2:
I am intending to hunt *all* of your posts again if you don't stop advertising.
When I start with that I will *not* stop as soon as the last time... Promised!

Arno R

 

[Guest]

I added the line EmailSend.Send to my code and it seems to get me one step
closer, but no cigar! It generates the custom email with the body, subject,
sender, and attachment I desire, but when it gets to the EmailSend.Send line,
a pop-up opens up asking me if I really want to send this? I am sure I can
find a way to get around the pop-up so that I don't have to manually click
"Yes" I really want to send this, but when I manually click it, it still
doesn't send it. It just leaves the message on the screen still waiting for
me to hit "Send". Odd, puzzingly, what am I missing??

I believe it's
EmailSend.Send

UpRider

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

 

[Guest]

Hmm, I had commented out where you set the item back to nothing. Now that I
uncommented that, it really seems like it is actually ABOUT to send my email
without my manual intervention, but at the last step, after I say "Yes, it is
okay to send these emails, it is not a virus" to the security pop-up, an
error message pops up stating "Outlook does not recognize one or more names."
I go to "Debug" and hit has high-lighted the new line of code
"EmailSend.Send" Why does outlook not recognize this???? It recognizes
everything else enough to create the mail item, receipients, subject, body
and attachments correctly. Am I not declaring enough or properly?

Here is my code as it stands:
Private Sub test_click()
Dim EmailApp, NameSpace, EmailSend As Object

Set EmailApp = CreateObject("Outlook.Application")
Set NameSpace = EmailApp.GetNamespace("MAPI")
Set EmailSend = EmailApp.CreateItem(0)

EmailSend.To = "(e-mail address removed)"
EmailSend.CC = "This is a test to see if the email can be
sent automatically w/o having to hit 'Send'."
EmailSend.Subject = "Final Forced Pickups (w/e 07/30/07)"
EmailSend.Body = "test if sent."
EmailSend.Attachments.Add "\\Zion\Databases\FPU\Final Forced
Pickups.xls"
'EmailSend.Display
EmailSend.Send

Set EmailApp = Nothing
Set NameSpace = Nothing
Set EmailSend = Nothing


MsgBox "Process complete."
End Sub

I added the line EmailSend.Send to my code and it seems to get me one step
closer, but no cigar! It generates the custom email with the body, subject,
sender, and attachment I desire, but when it gets to the EmailSend.Send line,
a pop-up opens up asking me if I really want to send this? I am sure I can
find a way to get around the pop-up so that I don't have to manually click
"Yes" I really want to send this, but when I manually click it, it still
doesn't send it. It just leaves the message on the screen still waiting for
me to hit "Send". Odd, puzzingly, what am I missing??

I believe it's
EmailSend.Send

UpRider

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

 

[Gina Whipp]

I believe what's happening is what Tony refered to earlier in his response
regarding the new, improved (and annoying) security feature in Outllook. I
use: http://www.contextmagic.com/express-clickyes/ to get around that.
There are two versions o that page and one is free of charge.

--
Gina Whipp

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

I added the line EmailSend.Send to my code and it seems to get me one step
closer, but no cigar! It generates the custom email with the body,
subject,
sender, and attachment I desire, but when it gets to the EmailSend.Send
line,
a pop-up opens up asking me if I really want to send this? I am sure I
can
find a way to get around the pop-up so that I don't have to manually click
"Yes" I really want to send this, but when I manually click it, it still
doesn't send it. It just leaves the message on the screen still waiting
for
me to hit "Send". Odd, puzzingly, what am I missing??

I believe it's
EmailSend.Send

UpRider

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

 

[Guest]

Yeah, I went and installed ClickYesPro, but now my problem is that Outlook
doesn't recognize the line that UpRider suggested "EmailSend.Send"

I believe what's happening is what Tony refered to earlier in his response
regarding the new, improved (and annoying) security feature in Outllook. I
use: http://www.contextmagic.com/express-clickyes/ to get around that.
There are two versions o that page and one is free of charge.

--
Gina Whipp

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

I added the line EmailSend.Send to my code and it seems to get me one step
closer, but no cigar! It generates the custom email with the body,
subject,
sender, and attachment I desire, but when it gets to the EmailSend.Send
line,
a pop-up opens up asking me if I really want to send this? I am sure I
can
find a way to get around the pop-up so that I don't have to manually click
"Yes" I really want to send this, but when I manually click it, it still
doesn't send it. It just leaves the message on the screen still waiting
for
me to hit "Send". Odd, puzzingly, what am I missing??

I believe it's
EmailSend.Send

UpRider

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

 

[Guest]

I got it to work!!

Thanks UpRider. I just had to comment out EmailSend.Display and add your
line EmailSend.Send and get the ClickYesPro program Gina directed me to, in
order to get around security prompts.

 

[Gina Whipp]

Did that happen after installed ClickYesPro ?

--
Gina Whipp

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

Yeah, I went and installed ClickYesPro, but now my problem is that Outlook
doesn't recognize the line that UpRider suggested "EmailSend.Send"

I believe what's happening is what Tony refered to earlier in his
response
regarding the new, improved (and annoying) security feature in Outllook.
I
use: http://www.contextmagic.com/express-clickyes/ to get around that.
There are two versions o that page and one is free of charge.

--
Gina Whipp

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

I added the line EmailSend.Send to my code and it seems to get me one
step
closer, but no cigar! It generates the custom email with the body,
subject,
sender, and attachment I desire, but when it gets to the EmailSend.Send
line,
a pop-up opens up asking me if I really want to send this? I am sure I
can
find a way to get around the pop-up so that I don't have to manually
click
"Yes" I really want to send this, but when I manually click it, it
still
doesn't send it. It just leaves the message on the screen still
waiting
for
me to hit "Send". Odd, puzzingly, what am I missing??

:

I believe it's
EmailSend.Send

UpRider

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