W
worksfire1
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??
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??
UpRider said:I believe it's
EmailSend.Send
UpRider
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