send object help (1 Viewer)

[aftershokk]

I want a user to be able to click send email from my switchboard and have the utility do the following.

In the BCC: line I want to import all email based on a simple query first and then they can fill out the rest when the new email screen appears. We have Access 2003 and it does recognize our groupwise client and pull up an email screen but I need the BCC: line to populate the email addresses from my query.

I am not a great VBA gut by the way - thanks!

 

[aftershokk]

maybe the illustartion below would help..

Function Macro11()
On Error GoTo Macro11_Err

DoCmd.SendObject , "", "", "", "", "Select * from email list qry (all emails will have a comma after each line as a seperator)", "", "", False, ""


Macro11_Exit:
Exit Function

Macro11_Err:
MsgBox Error$
Resume Macro11_Exit

End Function

 

[pbaldy]

You would loop through the query:

http://www.granite.ab.ca/access/email/recordsetloop.htm

and build your string:

strTo = strTo & RS!cEmailAddress & ";"

 

[aftershokk]

is there an easier way? my vba is not that great... so I am a little confused reading it

 

[aftershokk]

I just want a blank new email message screen but the email addresses populated in the bcc: line, I would think it would be a couple of lines of code....

 

[pbaldy]

You need the loop, though much of what's in that example can be dropped.

 

[aftershokk]

I dont really follow the code. I actually used run commands to copy the email list then open the new email message in groupwise and the user has to click on the bcc field to paste the emails... any additonal tips especially on paste into the groupwise email would be great.
thanks

 

[aftershokk]

here is what I have so far, if I could ajust auto paste when groupwise appears I would be all set...

Function Macro2()
On Error GoTo Macro2_Err

DoCmd.SetWarnings False
DoCmd.OpenQuery "email_list_new", acViewNormal, acEdit
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy
DoCmd.SendObject , "", "", "", "", "", "", "", False, ""


Macro2_Exit:
Exit Function

Macro2_Err:
MsgBox Error$
Resume Macro2_Exit

End Function